04-white-noise/parts/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 keysThunder = \relative c'' {
  39   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  40   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  41   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  42   d-. d-. d-. d-. d-. d-. d-. d-.            |
  43 }
  44
  45 keysArpeggio = \relative d' {
  46   d8 a' d a  e' a, d e,
  47   fis cis gis' a gis cis, fis e
  48   d a' d a  e' a, d e,
  49   fis cis gis' a gis cis, fis e
  50 }
  51
  52 keysTransition = \relative c' {
  53   \time 3/4
  54   fis'8. cis d gis, | a8 gis fis r4. |
  55 }
  56
  57 keysFast = \relative c'' {
  58   \time 4/4
  59   <a cis fis>1   |
  60   <gis b cis e>1  |
  61   <fis a d>1     |
  62   <fis gis b d>2  <gis b e>  |
  63   <fis a cis>1  |
  64   <gis cis e>1   |
  65   <a d fis>4\arpeggio <fis a d>\arpeggio <fis a> <d fis> |
  66   <d f gis>2 <cis f gis cis>4 r4 |
  67 }
  68
  69 keysEleven = \relative c' {
  70   \key e \minor
  71   \time 11/8
  72   \repeat unfold 3 { <e g b dis>4 r4 r4 r4 r4 r8 |}
  73   r8 r4 r4 r4 r4 r4
  74 }
  75
  76 keyboard = {
  77   \set Staff.midiInstrument = #"pad 3 (polysynth)"
  78   \set Staff.midiMinimumVolume = #0.4
  79   \set Staff.midiMaximumVolume = #0.6
  80
  81   \key fis \minor
  82   \time 4/4 \repeat unfold 2 \keysIntro
  83   \time 5/4 \repeat volta 2 \keysPadWithoutEnd
  84   \alternative {
  85     {
  86       \relative c' {
  87         <a d fis>2.\repeatTie  ~ <a d fis>2 |
  88       }
  89     }
  90     {
  91       \relative c' {
  92         <a d fis>2\repeatTie <cis fis a>2. |  % TODO
  93       }
  94     }
  95   }
  96
  97   \whiteNoise
  98   \time 4/4 \keysThunder
  99   \time 5/4 \repeat volta 2 \keysPad
 100   \time 4/4 \keysThunder
 101
 102   \time 4/4
 103   \repeat volta 2 \keysIntro
 104   \repeat unfold 2 \keysArpeggio
 105
 106   \keysTransition
 107   \tempo 4 = 160
 108   \keysFast
 109   \repeat volta 2 \keysEleven
 110 }
 111