keysIntro = \relative c' {
  <d fis a>2 <cis fis a> |
  <b e gis> ~ <b e a>    |
  <d fis a>1             |
  <cis fis a>            |
  % \chordmode {
  %   d2 fis:m e1
  %   d1 fis:m
  % }
}

keysPadWithoutEnd = \relative c' {
  <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
  <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
  <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
  <a d fis>2.  ~ <a d fis>2 ~    |
  % \chordmode {
  %   fis4*10:m
  %   e4*10
  %   b4*10:m
  %   d4*5
  % }
}

keysPad = \relative c' {
  <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
  <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
  <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
  <a d fis>2.  ~ <a d fis>2 ~    | <a d fis>2.  ~ <a d fis>2    |
  % \chordmode {
  %   fis4*10:m
  %   e4*10
  %   b4*10:m
  %   d4*10
  % }
}

keysThunder = \relative c'' {
  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  d-. d-. d-. d-. d-. d-. d-. d-.            |
}

keysArpeggio = \relative d' {
  d8 a' d a  e' a, d e,
  fis cis gis' a gis cis, fis e
  d a' d a  e' a, d e,
  fis cis gis' a gis cis, fis e
}

keyboard = {
  \set Staff.midiInstrument = #"pad 3 (polysynth)"
  \set Staff.midiMinimumVolume = #0.4
  \set Staff.midiMaximumVolume = #0.6

  \key fis \minor
  \time 4/4 \repeat unfold 2 \keysIntro
  \time 5/4 \repeat volta 2 \keysPadWithoutEnd
  \alternative {
    {
      \relative c' {
        <a d fis>2.\repeatTie  ~ <a d fis>2 |
      }
    }
    {
      \relative c' {
        <a d fis>2\repeatTie <cis fis a>2. |  % TODO
      }
    }
  }

  \whiteNoise
  \time 4/4 \keysThunder
  \time 5/4 \repeat volta 2 \keysPad
  \time 4/4 \keysThunder
  \time 5/4 \repeat volta 2 \keysPad

  \time 4/4
  \repeat volta 2 \keysIntro
  \repeat unfold 4 \keysArpeggio
}