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
}

keysTransition = \relative c' {
  \time 3/4
  fis'8. cis d gis, | a8 gis fis r4. |
}

keysFast = \relative c'' {
  \time 4/4
  <a cis fis>1   |
  <gis b cis e>1  |
  <fis a d>1     |
  <fis gis b d>2  <gis b e>  |
  <fis a cis>1  |
  <gis cis e>1   |
  <a d fis>4\arpeggio <fis a d>\arpeggio <fis a> <d fis> |
  <d f gis>2 <cis f gis cis>4 r4 |
}

keysEleven = \relative c' {
  \key e \minor
  \time 11/8
  \repeat unfold 3 { <e g b dis>4 r4 r4 r4 r4 r8 |}
  r8 r4 r4 r4 r4 r4
}

keysElevenTransition = \relative c' {
  \time 9/8
  r4. r4. r4.
}

keysShifter = \relative c' {
  \key e \minor
  \time 4/4
  <g e'>4. b'4 <e, b'>4. ~       |
  <e b'>8 <d b'>4 <d a'>4 d'8 r4 |
  <g,, e'>4. b'4 <e, b'>4. ~     |
  \time 7/8
  <e b'>8 <d b'>4 <d a'>4 d'8 r8 |

  \key fis \minor
  \time 4/4
  <fis, a,>4. cis'4 <cis fis,>4. ~    |
  <cis fis,>8 <cis e,>4 <b e,>4 e8 r4 |
  <fis, a,>4. cis'4 <cis fis,>4. ~    |
  \time 7/8
  <cis fis,>8 <cis e,>4 <b e,>4 e8 r8 |
}

keysEnding = \relative c' {
  \time 4/4
  \repeat unfold 2 {
    <a d fis>4. cis'4 <d, fis cis'>4. ~ |
    <d fis cis'>8 <e gis cis>4 <e gis b>4 e'8 r4 |
  }
  <d, fis a cis>4.\arpeggio b' a4 |
  <e gis b>4. a gis4 | <cis, fis a>1 ~ | <cis fis a>2 ~ <cis e a>2 |
  <d fis a cis>4.\arpeggio b' a4 |
  <e gis b>4. a gis4 | <cis, fis a>1 ~ | <cis fis a>1 |

  <d fis a>2 <d fis a cis> | <e gis b>1 ~ | <e gis b>1 |

  \tempo 4 = 120
  <fis, cis fis>1 ~ | <fis cis fis> ~ |
  <fis cis fis>1 ~ | <fis cis fis> |

  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 |
}

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 4/4
  \repeat volta 2 \keysIntro
  \repeat unfold 2 \keysArpeggio

  \keysTransition
  \tempo 4 = 160
  \keysFast
  \repeat volta 2 \keysEleven
  \keysElevenTransition
  \repeat unfold 2 \keysShifter
  \keysEnding
}