circus: Fix repetitions and finish tempo track.
[music/pretentious.git] / 03-circus / parts / stick.ly
index e33d9ab38e7f3ca9e3f00fc8b93b8f8728e53d12..4ea8c18d01a9e1f6532e53920fffe6dee144c850 100644 (file)
@@ -73,10 +73,10 @@ stickBeautyLeft = \relative c, {
 
   \time 4/4
   <b, d'>4.-> <a cis'> <a cis'>8-> <g b'>8 ~ |
-  \time 5/8
-  <g b'>4 r8 g8 fis |
-  \time 4/4
-  e4. r4 d8 r cis |
+  \time 6/8
+  <g b'>4. r8 g8 fis |
+  \time 9/8
+  e2 r4 d8 r cis |
 
   \repeat volta 2 {
     \time 7/8
@@ -98,16 +98,16 @@ stickBeautyLeft = \relative c, {
   } \alternative {
     {
       \relative c, {
-        \time 5/8
-        <g' b'>4 r8 g8 fis |
-        \time 4/4
-        e4. r4 d8 r cis |
+        \time 6/8
+        <g' b'>4. r8 g8 fis |
+        \time 9/8
+        e2 r4 d8 r cis |
       }
     }
     {
       \relative c, {
-        \time 5/8
-        <g' b'>4 r8 g8 fis |
+        \time 6/8
+        <g' b'>4. r8 g8 fis |
       }
     }
   }
@@ -119,8 +119,8 @@ stickBeautyRight = \relative c' {
     \time 3/4 { R2. | }
   }
   \time 4/4 { R1 |}
-  \time 5/8 R8*5 |
-  \time 4/4 R1 |
+  \time 6/8 R8*6 |
+  \time 9/8 R8*9 |
 
   \repeat volta 2 {
     \time 7/8 { R8*7 | }
@@ -132,13 +132,67 @@ stickBeautyRight = \relative c' {
     }
     \time 4/4 { R1 |}
   } \alternative {
-    { \time 5/8 R8*5 |
-      \time 4/4 R1 | }
-    { \time 5/8 { R8*5 |} }
+    { \time 6/8 R8*6 |
+      \time 9/8 R8*9 | }
+    { \time 6/8 { R8*6 |} }
   }
 }
 
+
+stickBeforeArpeggioLeft = \relative c, {
+  \time 3/4
+  e2. ~ | e2. ~ | e2. ~ | e2. |
+}
+
 stickArpeggioLeft = \relative c, {
+  e8\sustainOn b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+  e,4. g'4. | r2. |
+
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,2. ~ d2.
+
+  %% repeat, but with more pathos!
+  e8\sustainOn b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+}
+
+stickBeforeArpeggioRight = \relative c' {
+  \time 3/4
+  r2. ~ | r2. ~ | r2. ~ | r2. |
+}
+
+stickArpeggioRight = \relative c' {
+  \time 3/4
+  r4.\sustainOn d,8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  d4 b' fis ~ | fis2.
+
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r2. r2.
+
+  %% repeat, but with more pathos!
+  r4.\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+}
+
+stickArpeggioLeftHigher = \relative c, {
   \time 3/4
   e8\sustainOn b' g' ~ g4.
   e,8 b' g' ~ g4.
@@ -151,23 +205,73 @@ stickArpeggioLeft = \relative c, {
   d,8 a' fis' ~ fis4.\sustainOff
 }
 
-stickArpeggioRight = \relative c' {
+stickArpeggioRightHigher = \relative c' {
   \time 3/4
-  \repeat unfold 8 {
-    r4.\sustainOn d,8 b' fis
-  }
+  r4.\sustainOff\sustainOn d,8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis\sustainOff
 }
 
+stickArpeggioRightLonger = \relative c' {
+  \time 3/4
+  r4.\sustainOn d,8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  d4 b' fis ~ | fis2.
+
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r2. r2. r2.
+
+  %% repeat, but with more pathos!
+  r4.\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+  r4.\sustainOff\sustainOn d8 b' fis
+}
+
+stickArpeggioLeftLonger = \relative c, {
+  e8\sustainOn b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+  e,4. g'4. | r2. |
+
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,2. ~ d2. ~ d2.
+
+  %% repeat, but with more pathos!
+  e8\sustainOn b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+  e,8 b' g' ~ g4. |
+
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+}
+
+
 stickDramaLeft = \relative c, {
   \key b \minor
   \time 3/4
   \repeat unfold 2 {
-    <e b' g'>2\sustainOff r4
+    <e b' g'>2 r4
     <e b' g'>2 r4
     <e b' g'>2 r4
     <e b' g'>2 r4
     <b fis' d'>2 r4
-    b8 fis' cis' d4.
+    b8 fis' cis' d4. ~ | d2. ~ | d2. |
   }
   <a e' cis'>2.\arpeggio ~ | <a e' cis'>2. ~ | <a e' cis'>2. ~ | <a e' cis'>2. |
   <e b' gis'>2.\arpeggio ~ | <e b' gis'>2. ~ | <e b' gis'>2. ~ | <e b' gis'>2. |
@@ -176,8 +280,8 @@ stickDramaRight = \relative c' {
   \key cis \minor
   \time 3/4
   \repeat unfold 2 {
-    cis2\sustainOff b4 | cis2 b4 | cis2 b4 | cis4 d cis |
-    b fis2 ~ | fis2. |
+    cis2 b4 | cis2 b4 | cis2 b4 | cis4 d cis |
+    b fis2 ~ | fis2. ~ | fis2. ~ | fis2. |
   }
   cis'2. ~ cis2. ~ cis2. b2 a4
   gis2. ~ gis2. ~ gis2. ~ gis2.
@@ -272,18 +376,19 @@ stick = \new PianoStaff <<
     \stickBeautyRight
 
     %% Arpeggio
+    \tempo 4 = 170
     \key e \minor
+    \stickBeforeArpeggioRight
+
     \stickArpeggioRight
+    \key fis \minor
+    \transpose c d { \stickArpeggioRightHigher }
+    \stickDramaRight
 
-    \repeat volta 2 {
-      \stickArpeggioRight
-      \stickArpeggioRight
-      \key fis \minor
-      \transpose c d { \stickArpeggioRight }
-    } \alternative {
-      { \stickDramaRight }
-      { \stickFinalRight }
-    }
+    \stickArpeggioRightLonger
+    \key fis \minor
+    \transpose c d { \stickArpeggioRightHigher }
+    \stickDramaRight
   }
 
   %% staff for left hand side
@@ -332,16 +437,16 @@ stick = \new PianoStaff <<
 
     %% Arpeggio
     \key e \minor
+    \stickBeforeArpeggioLeft
+
     \stickArpeggioLeft
+    \key fis \minor
+    \transpose c d { \stickArpeggioLeftHigher }
+    \stickDramaLeft
 
-    \repeat volta 2 {
-      \stickArpeggioLeft
-      \stickArpeggioLeft
-      \key fis \minor
-      \transpose c d { \stickArpeggioLeft }
-    } \alternative {
-      { \stickDramaLeft }
-      { \stickFinalLeft }
-    }
+    \stickArpeggioLeftLonger
+    \key fis \minor
+    \transpose c d { \stickArpeggioLeftHigher }
+    \stickDramaLeft
   }
 >>