04-white-noise/parts/stick.ly

   1 %% TODO
   2 stickThunder = \relative c'' {
   3   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
   4   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
   5   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
   6   d-. d-. d-. d-. d-. d-. d-. d-.            |
   7 }
   8
   9 %% TODO
  10 stickTheme = \relative c {
  11   fis'4. cis a' cis8*7 d2
  12   gis,4. e d' cis8*7 a4 gis
  13   fis4. d gis a8*9 r4
  14   fis4. d gis e8*5 gis4 a4. r8
  15 }
  16
  17 stick = {
  18   \set Staff.midiInstrument = #"electric guitar (jazz)"
  19   \key fis \minor
  20   \time 4/4 { R1*8 }
  21   %% silly but I have to mimick the repeats for the other voices to
  22   %% make the notes line up.
  23   \time 5/4 \repeat volta 2 {
  24     r2. r2 | r2. r2 | r2. r2 | r2. r2 |
  25     r2. r2 | r2. r2 | r2. r2 |
  26   }
  27   \alternative {
  28     {r2. r2 | }
  29     {r2. r2 | }
  30   }
  31
  32   \whiteNoise
  33   \stickThunder
  34   \repeat volta 2 \stickTheme
  35   \stickThunder
  36   \repeat volta 2 \stickTheme
  37
  38   %% TODO: this is terrible and I would never play this
  39   \relative c' {
  40     <d a >2
  41     <cis fis, >2 <gis' fis, >2
  42     <a e, >2 d,1 cis
  43
  44     <d a >2
  45     <cis fis, >2 <gis' fis, >2
  46     <a e, >2 d,1 cis
  47   }
  48
  49   %% TODO: move to keyboard?
  50   \repeat unfold 4 \relative c'' {
  51     d'8 a' d a  e' a, d e,,
  52     fis, cis' gis' a gis cis, fis, e
  53     d' a' d a  e' a, d e,,
  54     fis cis' gis' a gis cis, fis, e
  55   }
  56 }