04-white-noise-parts/keys.ly

   1 keysIntro = \relative c' {
   2   <d fis a>2 <cis fis a>  <b e gis>1
   3   <d fis a> <cis fis a>
   4   % \chordmode {
   5   %   d2 fis:m e1
   6   %   d1 fis:m
   7   % }
   8 }
   9
  10 keysPadWithoutEnd = \relative c' {
  11   <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
  12   <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
  13   <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
  14   <a d fis>2.  ~ <a d fis>2 ~    |
  15   % \chordmode {
  16   %   fis4*10:m
  17   %   e4*10
  18   %   b4*10:m
  19   %   d4*5
  20   % }
  21 }
  22
  23 keysPad = \relative c' {
  24   <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
  25   <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
  26   <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
  27   <a d fis>2.  ~ <a d fis>2 ~    | <a d fis>2.  ~ <a d fis>2    |
  28   % \chordmode {
  29   %   fis4*10:m
  30   %   e4*10
  31   %   b4*10:m
  32   %   d4*10
  33   % }
  34 }
  35
  36 keysThunder = \relative c'' {
  37   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  38   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  39   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  40   d-. d-. d-. d-. d-. d-. d-. d-.            |
  41 }
  42
  43 keyboard = {
  44   \set Staff.midiInstrument = #"pad 8 (sweep)"
  45   \set Staff.midiMinimumVolume = #0.4
  46   \set Staff.midiMaximumVolume = #0.6
  47
  48   \key fis \minor
  49   \time 4/4 \repeat unfold 2 \keysIntro
  50   \time 5/4 \repeat volta 2 \keysPadWithoutEnd
  51   \alternative {
  52     {
  53       \relative c' {
  54         <a d fis>2.\repeatTie  ~ <a d fis>2 |
  55       }
  56     }
  57     {
  58       \relative c' {
  59         <a d fis>2\repeatTie <cis fis a>2. |  % TODO
  60       }
  61     }
  62   }
  63
  64   \whiteNoise
  65   \time 4/4 \keysThunder
  66   \time 5/4 \repeat volta 2 \keysPad
  67   \time 4/4 \keysThunder
  68   \time 5/4 \repeat volta 2 \keysPad
  69 }
  70