04-white-noise/music/keys.ly

   1 keysIntro = \relative c' {
   2   <d fis a>2 <cis fis a> |
   3   <b e gis> ~ <b e a>    |
   4   <d fis a>1             |
   5   <cis fis a>            |
   6   % \chordmode {
   7   %   d2 fis:m e1
   8   %   d1 fis:m
   9   % }
  10 }
  11
  12 keysPadWithoutEnd = \relative c' {
  13   <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
  14   <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
  15   <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
  16   <a d fis>2.  ~ <a d fis>2 ~    |
  17   % \chordmode {
  18   %   fis4*10:m
  19   %   e4*10
  20   %   b4*10:m
  21   %   d4*5
  22   % }
  23 }
  24
  25 keysPad = \relative c' {
  26   <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
  27   <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
  28   <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
  29   <a d fis>2.  ~ <a d fis>2 ~    | <a d fis>2.  ~ <a d fis>2    |
  30   % \chordmode {
  31   %   fis4*10:m
  32   %   e4*10
  33   %   b4*10:m
  34   %   d4*10
  35   % }
  36 }
  37
  38 keysThunderRep = \relative c'' {
  39   \repeat unfold 3 { a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |}
  40 }
  41 keysThunder = \relative c'' {
  42   \keysThunderRep
  43   d-. d-. d-. d-. d-. d-. d-. d-. |
  44 }
  45 keysThunderB = \relative c'' {
  46   \keysThunderRep
  47   d-. d-. d-. d ~ d2 |
  48 }
  49
  50 keysBeauty = \keysIntro
  51
  52 keysArpeggio = \relative d' {
  53   d8 a' d a  e' a, d e,
  54   fis cis gis' a gis cis, fis e
  55   d a' d a  e' a, d e,
  56   fis cis gis' a gis cis, fis e
  57 }
  58
  59 keysTransition = \relative c' {
  60   \time 4/4
  61   fis'8. cis d gis, a8 gis |
  62   \time 2/4
  63   \tempo 4 = 160
  64   fis r4. |
  65 }
  66
  67 keysFast = \relative c'' {
  68   \time 4/4
  69   <a cis fis>1   |
  70   <gis b cis e>1  |
  71   <fis a d>1     |
  72   <fis gis b d>2  <gis b e>  |
  73   <fis a cis>1  |
  74   <gis cis e>1   |
  75   <a d fis>4\arpeggio <fis a d>\arpeggio <fis a> <d fis> |
  76   <d f gis>2 <cis f gis cis>4 r4 |
  77 }
  78
  79 %% TODO: play actual chords
  80 keysToto = \relative c'' {
  81   \repeat volta 2 {
  82     fis8 fis r4 r4. fis8 | e8 e r4 r2 |
  83     fis2.. fis8 | e1 |
  84   }
  85   \transpose c d {
  86     fis8 fis r4 r4. fis8 | e8 e r4 r2 |
  87     fis2.. fis8 | e1 |
  88   }
  89   fis8 fis r4 r4. fis8 | e8 e r4 r2 |
  90   fis2.. fis8 | e1 |
  91 }
  92
  93 keysShifter = \relative c' {
  94   \key e \minor
  95   \time 4/4
  96   <g e'>4. b'4 <e, b'>4.         |
  97   <d b'>4 <d a'>4 d'8 r4.        |
  98   <g,, e'>4. b'4 <e, b'>4.       |
  99   \time 2/4
 100   <d b'>4 <d a'>4 |
 101
 102   \key fis \minor
 103   \time 4/4
 104   <fis a,>4. cis'4 <cis fis,>4.    |
 105   <cis e,>4 <b e,>4 e8 r4. |
 106   <fis, a,>4. cis'4 <cis fis,>4.    |
 107   \time 2/4
 108   <cis e,>4 <b e,>4 |
 109
 110   \key e \minor
 111   \time 4/4
 112   <g, e'>4. b'4 <e, b'>4.       |
 113   <d b'>4 <d a'>4 d'8 r4.       |
 114   <g,, e'>4. b'4 <e, b'>4.      |
 115   \time 2/4
 116   <d b'>4 <d a'>4 |
 117
 118   \key fis \minor
 119   \time 4/4
 120   <fis a,>4. cis'4 <cis fis,>4.    |
 121   <cis e,>4 <b e,>4 e8 r4. |
 122   <fis, a,>4. cis'4 <cis fis,>4.    |
 123   <cis e,>4 <b e,>4 ~ <b e,>2 |
 124 }
 125
 126 keysEnding = \relative c' {
 127   \time 4/4
 128   \repeat unfold 2 {
 129     <a d fis>4. cis'4 <d, fis cis'>4. ~ |
 130     <d fis cis'>8 <e gis cis>4 <e gis b>4 e'8 r4 |
 131   }
 132   <d, fis a cis>4.\arpeggio b' a4 |
 133   <e gis b>4. a gis4 | <cis, fis a>1 ~ | <cis fis a>2 ~ <cis e a>2 |
 134   <d fis a cis>4.\arpeggio b' a4 |
 135   <e gis b>4. a gis4 | <cis, fis a>1 ~ | <cis fis a>1 |
 136
 137   <d fis a>2 <d fis a cis> | <e gis b>1 ~ | <e gis b>1 |
 138 }
 139
 140 keyboard = {
 141   \set Staff.midiInstrument = #"pad 3 (polysynth)"
 142   \set Staff.midiMinimumVolume = #0.4
 143   \set Staff.midiMaximumVolume = #0.6
 144
 145   \key fis \minor
 146   \time 4/4 \repeat unfold 2 \keysIntro
 147   \time 5/4 \repeat volta 2 \keysPadWithoutEnd
 148   \alternative {
 149     {
 150       \relative c' {
 151         <a d fis>2.\repeatTie  ~ <a d fis>2 |
 152       }
 153     }
 154     {
 155       \time 2/4
 156       \relative c' {
 157         <a d fis>2\repeatTie |
 158       }
 159     }
 160   }
 161   \time 4/4 \relative c' {<a cis fis>1}
 162   \whiteNoise
 163   \time 4/4 \keysThunder
 164   \time 5/4 \repeat volta 2 \keysPad
 165   \time 4/4 \keysThunderB
 166
 167   \time 4/4
 168   \repeat volta 2 \keysBeauty
 169   \repeat unfold 2 \keysBeauty
 170   \repeat unfold 2 \keysArpeggio
 171
 172   \keysTransition
 173   \keysFast
 174   \keysToto
 175   \transpose c d {
 176     \keysShifter
 177     \keysEnding
 178   }
 179 }
 180