03-circus/parts/keyboard.ly

   1 keyboardIntroUpper = \relative c' {
   2   <cis e g>8 ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
   3   r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r
   4
   5   <cis e g>8 ~
   6   <cis e g>8 ~ <cis e gis>-.
   7   r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
   8   r <cis e gis>-. r <cis e gis>-.
   9
  10   <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
  11   <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
  12 }
  13
  14 keyboardIntroLower = \relative c {
  15   cis4-. gis-. cis-. gis-.
  16   cis-. gis-. cis-. r8 cis ~
  17   cis4 gis-. cis-. gis-.
  18   cis-. gis-.
  19   dis8 r r d ~ d2 |
  20   dis8 r r d ~ d2 |
  21 }
  22
  23 keysIntroEndUpper = \relative c' {
  24   r8 <cis e gis>-. r <cis e gis>-. |
  25   r  <cis e gis>-. r <cis e gis>-. |
  26   r  <cis e gis>-. r <cis e gis>-. |
  27   r  <cis e gis>-. r <cis e gis>-. |
  28 }
  29
  30 keysIntroEndLower = \relative c {
  31   cis4-. gis-. | cis-. gis-. |
  32   cis-.  gis-. | cis-. gis-. |
  33 }
  34
  35 keysSoloUpper = \relative c' {
  36   \time 2/4
  37   r8 <cis e gis>-. r <cis e gis>-. |
  38   r  <cis e gis>-. r <cis e gis>-. |
  39   r  <cis e gis>-. r <cis e gis>-. |
  40   \time 3/4
  41   r  <cis e gis>-. r r <cis e gis>-. r |
  42   \time 2/4
  43   r8 <c e a>-. r <c e a>-. |
  44   r  <c e a>-. r <c e a>-. |
  45   r  <c e a>-. r <c e a>-. |
  46   r  <c e a>-. r  r        |
  47   <c e a>-. r r <c e a>-.  |
  48 }
  49
  50 keysSoloLower = \relative c {
  51   \time 2/4
  52   cis4-. gis-. | cis-. gis-. |
  53   cis-.  gis-. |
  54   \time 3/4
  55   cis8 r gis gis r gis |
  56   \time 2/4
  57   a4-. e-. | a-. e-. | a-. e-. |
  58   a-. c8 b | r f f r |
  59 }
  60
  61 keysSpookyUpper = \relative c' {
  62   \time 2/4
  63   <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
  64   \time 3/4
  65   <cis fis a>2.  |
  66   \time 2/4
  67   <d f a>2 ~ | <d f a> ~ |
  68   <d f a> ~  | <d f a> ~ |
  69   <d f a>    |
  70 }
  71
  72 keysSpookyLower = \relative c {
  73   \time 2/4
  74   fis2 ~ | fis ~ | fis ~ |
  75   \time 3/4
  76   fis2.  |
  77   \time 2/4
  78   d2 ~ | d ~ | d ~ | d ~ | d |
  79 }
  80
  81 keysHalfUpper = \relative c' {
  82   \time 2/4
  83   r4 <d fis b>8-. r |
  84   r4 <d fis b>8-. r |
  85   r4 <d fis b>8-. r |
  86   \time 3/4
  87   r4 <d fis b>8-. r <d fis b>-. r |
  88   \time 2/4
  89   r4 <d g bes>8-. r |
  90   r4 <d g bes>8-. r |
  91   r4 <d g bes>8-. r |
  92   r4 <d g bes>8-. r |
  93   r4 <d g bes>8-. r |
  94 }
  95
  96 keysHalfLower = \relative c {
  97   \time 2/4
  98   b4. r8 | b4. r8 | b4. r8 |
  99   \time 3/4
 100   b4-. r r |
 101   \time 2/4
 102   g-. r | g-. r | g-. r |
 103   g-. r | g-. r8 g-. |
 104 }
 105
 106 keysWeirdUpper = \relative c' {
 107   \repeat volta 2 {
 108     \time 5/4 { <d g b>8 r <d g b> r <d g b> r <d g b> r <d g b> r |}
 109     \time 9/8 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
 110   } \alternative {
 111     { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
 112     { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
 113   }
 114 }
 115
 116 keysWeirdLower = \relative c {
 117   \repeat volta 2 {
 118     \time 5/4 { g8 r g r g r g r g r |}
 119     \time 9/8 { b8 r b r b r b r b | }
 120   } \alternative {
 121     { b8 r b r b r b r b |}
 122     { b8 r b r b r b r b |}
 123   }
 124 }
 125
 126 keysDanceUpper = \relative c' {
 127   \time 5/4 { <d g b>4 r2 r2 | <d fis b>4 r2 r2 | }
 128   \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
 129 }
 130
 131 keysDanceLower = \relative c {
 132   \time 5/4 { d4 r2 r2 | d4 r2 r2 | }
 133   \time 3/4 { e2. | e4 d4 r4 | }
 134 }
 135
 136 keysBeautyUpper = \relative c' {
 137   \repeat unfold 3 {
 138     \time 4/4 { r1  |}
 139     \time 3/4 { r2. |}
 140   }
 141
 142   \time 4/4
 143   b'4.-> a a8-> g8 ~ |
 144   \time 5/8
 145   g4 r8 g8 fis |
 146   \time 4/4
 147   e4. r4 d8 r cis |
 148
 149   \repeat volta 2 {
 150     \time 7/8 { r8*7 |}
 151     \time 3/4 { r2.  |}
 152
 153     \repeat unfold 2 {
 154       \time 4/4 { r1  |}
 155       \time 3/4 { r2. |}
 156     }
 157     \time 4/4
 158     b'4.-> a a8-> g8 ~ |
 159   } \alternative {
 160     { \time 5/8 g4 r8 g8 fis |
 161       \time 4/4 e4. r4 d8 r cis |}
 162     { \time 5/8 g'4 r8 g8 fis |}
 163   }
 164 }
 165
 166 keysBeautyLower = \relative c {
 167   \repeat unfold 3 {
 168     \time 4/4 { b1 | }
 169     \time 3/4 { d4. cis | }
 170   }
 171   \time 4/4 { R1 |}
 172   \time 5/8 R8*5 |
 173   \time 4/4 R1 |
 174
 175   \repeat volta 2 {
 176     \time 7/8 { b8*7 | }
 177     \time 3/4 { d4. cis | }
 178
 179     \repeat unfold 2 {
 180       \time 4/4 { b1 | }
 181       \time 3/4 { d4. cis | }
 182     }
 183     \time 4/4 { R1 |}
 184   } \alternative {
 185     { \time 5/8 R8*5 |
 186       \time 4/4 R1 | }
 187     { \time 5/8 { R8*5 |} }
 188   }
 189 }
 190
 191 keyboard = \new PianoStaff <<
 192   \set PianoStaff.midiInstrument = #"reed organ"
 193   \new Staff \relative c'  {
 194     \time 2/4
 195     \key cis \minor
 196     R2 | r4 r8 <cis e g> ~ |
 197     \repeat volta 2 \keyboardIntroUpper
 198     \alternative {
 199       { r2   | }
 200       { \keysIntroEndUpper }
 201     }
 202
 203     %% Stick solo
 204     \repeat unfold 2 \keysSoloUpper
 205
 206     %% Spooky!
 207     \key fis \minor
 208     \set PianoStaff.midiInstrument = #"choir aahs"
 209     \repeat volta 2 \keysSpookyUpper
 210
 211     %% Half time feel
 212     \key b \minor
 213     \repeat volta 2 {
 214       \set PianoStaff.midiInstrument = #"reed organ"
 215       \repeat volta 2 \keysHalfUpper
 216       \keysWeirdUpper
 217       \keysDanceUpper
 218     }
 219
 220     %% Beauty
 221     \set PianoStaff.midiInstrument = #"string ensemble 1"
 222     \keysBeautyUpper
 223   }
 224
 225   \new Staff \relative c {
 226     \clef bass
 227     \key cis \minor
 228     r2 | r2 |
 229     \repeat volta 2 \keyboardIntroLower
 230     \alternative {
 231       { r2   | }
 232       { \keysIntroEndLower }
 233     }
 234
 235     \repeat unfold 2 \keysSoloLower
 236
 237     %% Spooky!
 238     \key fis \minor
 239     \repeat volta 2 \keysSpookyLower
 240
 241     %% Half time feel
 242     \key b \minor
 243     \repeat volta 2 {
 244       \repeat volta 2 \keysHalfLower
 245       \keysWeirdLower
 246       \keysDanceLower
 247     }
 248
 249     %% Beauty
 250     \keysBeautyLower
 251   }
 252 >>