circus: keys: Pad out second half.
authorrekado <rekado@elephly.net>
Tue, 15 Nov 2016 09:50:52 +0000 (10:50 +0100)
committerrekado <rekado@elephly.net>
Tue, 15 Nov 2016 09:50:52 +0000 (10:50 +0100)
03-circus/music/keys.ly

index f1260cf7737aa3abd89501bf6a414b97604e3a8f..c406f3b3d6120155b998d23982ce57837d1c06d0 100644 (file)
@@ -188,6 +188,43 @@ keysBeautyLower = \relative c {
   }
 }
 
+keysBeforeArpeggioUpper = \relative c' {
+  \time 3/4 r2. | r2. ~ | r2. ~ | r2. |
+}
+
+keysBeforeArpeggioLower = \relative c {
+  \time 3/4 r2. | r2. ~ | r2. ~ | r2. |
+}
+
+keysArpeggioUpper = \relative c' {
+  \repeat unfold 2 {
+    <e g b>2.   ~ | q ~ | q2 r4 | r2. |
+    <d fis g>2. ~ | q ~ | q2 r4 | r2. |
+    <e g b>2.   ~ | q ~ | q | r2. |
+    <d fis g>2. ~ | q ~ | q2 r4 | r2. |
+
+  }
+}
+
+keysArpeggioLower = \relative c {
+  \repeat unfold 2 {
+    e2. ~ | q ~ | q ~ | q |
+    d2. ~ | q ~ | q ~ | q |
+  }
+}
+
+keysArpeggioLongerUpper = \relative c' {}
+keysArpeggioLongerLower = \relative c {}
+
+keysDramaUpper = \relative c' {}
+keysDramaLower = \relative c {}
+
+keysDramaEndingUpper = \relative c' {}
+keysDramaEndingLower = \relative c {}
+
+keysFinalUpper = \relative c' {}
+keysFinalLower = \relative c {}
+
 keyboard = <<
   \new Staff \relative c'  {
     \set Staff.midiInstrument = #"reed organ"
@@ -220,6 +257,22 @@ keyboard = <<
     %% Beauty
     \set Staff.midiInstrument = #"string ensemble 1"
     \keysBeautyUpper
+
+    %% Arpeggio
+    \key e \minor
+    \keysBeforeArpeggioUpper
+    \keysArpeggioUpper
+
+    \key fis \minor
+    \transpose c d { \keysArpeggioUpper }
+    \keysDramaUpper
+    \keysDramaEndingUpper
+
+    \keysArpeggioLongerUpper
+    \key fis \minor
+    \transpose c d { \keysArpeggioUpper }
+    \keysDramaUpper
+    \keysFinalUpper
   }
 
   \new Staff \relative c {
@@ -252,5 +305,21 @@ keyboard = <<
     %% Beauty
     \set Staff.midiInstrument = #"string ensemble 1"
     \keysBeautyLower
+
+    %% Arpeggio
+    \key e \minor
+    \keysBeforeArpeggioLower
+    \keysArpeggioLower
+
+    \key fis \minor
+    \transpose c d { \keysArpeggioLower }
+    \keysDramaLower
+    \keysDramaEndingLower
+
+    \keysArpeggioLongerLower
+    \key fis \minor
+    \transpose c d { \keysArpeggioLower }
+    \keysDramaLower
+    \keysFinalLower
   }
 >>