03-circus/music/keys.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   d'16  b g dis  fis e dis d |
  25   r8 <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   r  <cis e gis>-. r <cis e gis>-. |
  29 }
  30
  31 keysIntroEndLower = \relative c {
  32   r2 |
  33   cis4-. gis'-. | cis,-. gis'-. |
  34   cis,-. gis'-. | cis,-. gis'-. |
  35 }
  36
  37 keysSoloUpper = \relative c' {
  38   \time 2/4
  39   r8 <cis e gis>-. r <cis e gis>-. |
  40   r  <cis e gis>-. r <cis e gis>-. |
  41   r  <cis e gis>-. r <cis e gis>-. |
  42   \time 3/4
  43   r  <cis e gis>-. r r <cis e gis>-. r |
  44   \time 2/4
  45   r8 <c e a>-. r <c e a>-. |
  46   r  <c e a>-. r <c e a>-. |
  47   r  <c e a>-. r <c e a>-. |
  48   r  <c e a>-. r  r        |
  49   <c e a>-. r r <c e a>-.  |
  50 }
  51
  52 keysSoloLower = \relative c {
  53   \time 2/4
  54   cis4-. gis-. | cis-. gis-. |
  55   cis-.  gis-. |
  56   \time 3/4
  57   cis8 r gis gis r gis |
  58   \time 2/4
  59   a4-. e-. | a-. e-. | a-. e-. |
  60   a-. c8 b | r f f r |
  61 }
  62
  63 keysSpookyUpper = \relative c' {
  64   \time 2/4
  65   <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
  66   \time 3/4
  67   <cis fis a>2.  |
  68   \time 2/4
  69   <d f a>2 ~ | <d f a> ~ |
  70   <d f a> ~  | <d f a> ~ |
  71   <d f a>    |
  72 }
  73
  74 keysSpookyLower = \relative c {
  75   \time 2/4
  76   fis2 ~ | fis ~ | fis ~ |
  77   \time 3/4
  78   fis2.  |
  79   \time 2/4
  80   d2 ~ | d ~ | d ~ | d ~ | d |
  81 }
  82
  83 keysHalfUpper = \relative c' {
  84   \time 2/4
  85   r4 <d fis b>8-. r |
  86   r4 <d fis b>8-. r |
  87   r4 <d fis b>8-. r |
  88   \time 3/4
  89   r4 <d fis b>8-. r <d fis b>-. r |
  90   \time 2/4
  91   r4 <d g bes>8-. r |
  92   r4 <d g bes>8-. r |
  93   r4 <d g bes>8-. r |
  94   r4 <d g bes>8-. r |
  95   r4 <d g bes>8-. r |
  96 }
  97
  98 keysHalfLower = \relative c {
  99   \time 2/4
 100   b4. r8 | b4. r8 | b4. r8 |
 101   \time 3/4
 102   b4-. r r |
 103   \time 2/4
 104   g-. r | g-. r | g-. r |
 105   g-. r | g-. r8 g-. |
 106 }
 107
 108 keysWeirdUpper = \relative c' {
 109   \repeat volta 2 {
 110     \time 5/4 { <d g b>8 r <d g b> r <d g b> r <d g b> r <d g b> r |}
 111     \time 9/8 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
 112   } \alternative {
 113     { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
 114     { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
 115   }
 116 }
 117
 118 keysWeirdLower = \relative c {
 119   \repeat volta 2 {
 120     \time 5/4 { g8 r g r g r g r g r |}
 121     \time 9/8 { b8 r b r b r b r b | }
 122   } \alternative {
 123     { b8 r b r b r b r b |}
 124     { b8 r b r b r b r b |}
 125   }
 126 }
 127
 128 keysDanceUpper = \relative c' {
 129   \time 5/4 { <d g b>4 r2 r2 | <d fis b>4 r2 r2 | }
 130   \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
 131 }
 132
 133 keysDanceLower = \relative c {
 134   \time 5/4 { d4 r2 r2 | d4 r2 r2 | }
 135   \time 3/4 { e2. | e4 d4 r4 | }
 136 }
 137
 138 keysBeautyUpper = \relative c' {
 139   \repeat unfold 3 {
 140     \time 4/4 { r1  |}
 141     \time 3/4 { r2. |}
 142   }
 143
 144   \time 4/4
 145   b'4.-> a a8-> g8 ~ |
 146   \time 6/8
 147   g4. r8 g8 fis |
 148   \time 9/8
 149   e2 r4 d8 r cis |
 150
 151   \repeat volta 2 {
 152     \time 7/8 { r8*7 |}
 153     \time 3/4 { r2.  |}
 154
 155     \repeat unfold 2 {
 156       \time 4/4 { r1  |}
 157       \time 3/4 { r2. |}
 158     }
 159     \time 4/4
 160     b'4.-> a a8-> g8 ~ |
 161   } \alternative {
 162     { \time 6/8 g4. r8 g8 fis |
 163       \time 9/8 e2 r4 d8 r cis |}
 164     { \time 6/8 g'4. r8 g8 fis |}
 165   }
 166 }
 167
 168 keysBeautyLower = \relative c {
 169   \repeat unfold 3 {
 170     \time 4/4 { b1 | }
 171     \time 3/4 { d4. cis | }
 172   }
 173   \time 4/4 { R1 |}
 174   \time 6/8 R8*6 |
 175   \time 9/8 R8*9 |
 176
 177   \repeat volta 2 {
 178     \time 7/8 { b8*7 | }
 179     \time 3/4 { d4. cis | }
 180
 181     \repeat unfold 2 {
 182       \time 4/4 { b1 | }
 183       \time 3/4 { d4. cis | }
 184     }
 185     \time 4/4 { R1 |}
 186   } \alternative {
 187     { \time 6/8 R8*6 |
 188       \time 9/8 R8*9 | }
 189     { \time 6/8 { R8*6 |} }
 190   }
 191 }
 192
 193 keysBeforeArpeggioUpper = \relative c' {
 194   \time 3/4 r2. | r2. | r2. | r2. |
 195 }
 196
 197 keysBeforeArpeggioLower = \relative c {
 198   \time 3/4 r2. | r2. | r2. | r2. |
 199 }
 200
 201 keysArpeggioUpper = \relative c' {
 202   <e g b>2.   ~ | q ~ | q2 r4 | r2. |
 203   <d fis a>2. ~ | q ~ | q2 r4 | r2. |
 204   <e g b>2.   ~ | q ~ | q ~   | q   |
 205   <fis a d>2. ~ | q ~ | q ~   | q   |
 206 }
 207
 208 keysArpeggioLower = \relative c {
 209   e2. ~ | e ~ | e ~ | e |
 210   d2. ~ | d ~ | d ~ | d |
 211   e2. ~ | e ~ | e ~ | e |
 212   d2. ~ | d ~ | d ~ | d |
 213 }
 214
 215 keysArpeggioHigherUpper = \relative c' {
 216   <e g b>2.   ~ | q ~ | q ~ | q |
 217   <fis a d>2. ~ | q ~ | q ~ | q |
 218 }
 219
 220 keysArpeggioHigherLower = \relative c {
 221   e2. ~ | e ~ | e ~ | e |
 222   d2. ~ | d ~ | d ~ | d |
 223 }
 224
 225 keysArpeggioLongerUpper = \relative c' {
 226   <e g b>2.   ~ | q ~ | q2 r4 | r2. |
 227   <d fis a>2. ~ | q ~ | q2 r4 | r2. | r2. |
 228   <e g b>2.   ~ | q ~ | q ~ | q |
 229   <fis a d>2. ~ | q ~ | q ~ | q |
 230 }
 231 keysArpeggioLongerLower = \relative c {
 232   e2. ~ | e ~ | e ~ | e   |
 233   d2. ~ | d ~ | d ~ | d ~ | d |
 234   e2. ~ | e ~ | e ~ | e   |
 235   d2. ~ | d ~ | d ~ | d   |
 236 }
 237
 238 keysDramaUpper = \relative c'' {
 239   \key b \minor
 240   \repeat unfold 2 {
 241     <g b e>2 r4 | q2 r4 | q2 r4 | <g b>2 <a cis>4 |
 242     <b d>2. ~ | q2. ~ | q2. | R2. |
 243   }
 244 }
 245 keysDramaLower = \relative c {
 246   \key b \minor
 247   \repeat unfold 2 {
 248     e2 r4 | e2 r4 | e2 r4 | e2 r4 |
 249     b2. ~ | b2. ~ | b2. ~ | b2. |
 250   }
 251 }
 252
 253 keysDramaEndingUpper = \relative c' {
 254   <e a cis>2. ~ | q2. ~ | q2. ~ | q2. |
 255   <e gis b>2. ~ | q2. ~ | q2. ~ | q2. |
 256 }
 257 keysDramaEndingLower = \relative c {
 258   a2. ~ | a2. ~ | a2. ~ | a2. |
 259   e2. ~ | e2. ~ | e2. ~ | e2. |
 260 }
 261
 262 keysFinalUpper = \relative c' {
 263   <e a cis>2. ~ | q2. ~ | q2. ~ | q2. |
 264   <b e gis>2. | <cis a'>2. | <d fis a>2. ~ | q2. ~ |
 265   q2. ~ | q2. |
 266 }
 267 keysFinalLower = \relative c {
 268   a2. | R2. | R2. | R2. |
 269   e2. | cis2. | d2. ~ | d2. ~ |
 270   d2. ~ | d2. |
 271 }
 272
 273 keyboardUpper = \relative c'  {
 274     \set Staff.midiInstrument = #"reed organ"
 275     \time 2/4
 276     \key cis \minor
 277     R2 | r4 r8 <cis e g> ~ |
 278     \repeat volta 2 \keyboardIntroUpper
 279     \alternative {
 280       { r2   | }
 281       { \keysIntroEndUpper }
 282     }
 283
 284     %% Stick solo
 285     \repeat unfold 2 \keysSoloUpper
 286
 287     %% Spooky!
 288     \key fis \minor
 289     \set Staff.midiInstrument = #"choir aahs"
 290     \repeat volta 2 \keysSpookyUpper
 291
 292     %% Half time feel
 293     \key b \minor
 294     \repeat volta 2 {
 295       \set Staff.midiInstrument = #"reed organ"
 296       \repeat volta 2 \keysHalfUpper
 297       \keysWeirdUpper
 298       \keysDanceUpper
 299     }
 300
 301     %% Beauty
 302     \set Staff.midiInstrument = #"string ensemble 1"
 303     \keysBeautyUpper
 304
 305     %% Arpeggio
 306     \set Staff.midiInstrument = #"pad 3 (polysynth)"
 307     \set Staff.midiMinimumVolume = #0.2
 308     \set Staff.midiMaximumVolume = #0.2
 309
 310     \key e \minor
 311     \keysBeforeArpeggioUpper
 312     \keysArpeggioUpper
 313
 314     \key fis \minor
 315     \transpose c d { \keysArpeggioHigherUpper }
 316     \keysDramaUpper
 317     \keysDramaEndingUpper
 318
 319     \keysArpeggioLongerUpper
 320     \key fis \minor
 321     \transpose c d { \keysArpeggioHigherUpper }
 322     \keysDramaUpper
 323     \keysFinalUpper
 324 }
 325
 326 keyboardLower = \relative c {
 327     \set Staff.midiInstrument = #"reed organ"
 328     \key cis \minor
 329     r2 | r2 |
 330     \repeat volta 2 \keyboardIntroLower
 331     \alternative {
 332       { r2   | }
 333       { \keysIntroEndLower }
 334     }
 335
 336     \repeat unfold 2 \keysSoloLower
 337
 338     %% Spooky!
 339     \key fis \minor
 340     \set Staff.midiInstrument = #"choir aahs"
 341     \repeat volta 2 \keysSpookyLower
 342
 343     %% Half time feel
 344     \key b \minor
 345     \repeat volta 2 {
 346       \set Staff.midiInstrument = #"reed organ"
 347       \repeat volta 2 \keysHalfLower
 348       \keysWeirdLower
 349       \keysDanceLower
 350     }
 351
 352     %% Beauty
 353     \set Staff.midiInstrument = #"string ensemble 1"
 354     \keysBeautyLower
 355
 356     %% Arpeggio
 357     \set Staff.midiInstrument = #"pad 3 (polysynth)"
 358     \set Staff.midiMinimumVolume = #0.2
 359     \set Staff.midiMaximumVolume = #0.2
 360
 361     \key e \minor
 362     \keysBeforeArpeggioLower
 363     \keysArpeggioLower
 364
 365     \key fis \minor
 366     \transpose c d { \keysArpeggioHigherLower }
 367     \keysDramaLower
 368     \keysDramaEndingLower
 369
 370     \keysArpeggioLongerLower
 371     \key fis \minor
 372     \transpose c d { \keysArpeggioHigherLower }
 373     \keysDramaLower
 374     \keysFinalLower
 375 }