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

keysBeauty = \keysIntro

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 4/4
  fis'8. cis d gis, a8 gis |
  \time 2/4
  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 |
}

%% TODO: play actual chords
keysToto = \relative c'' {
  \repeat volta 2 {
    fis8 fis r4 r4. fis8 | e8 e r4 r2 |
    fis2.. fis8 | e1 |
  }
  \transpose c d {
    fis8 fis r4 r4. fis8 | e8 e r4 r2 |
    fis2.. fis8 | e1 |
  }
  fis8 fis r4 r4. fis8 | e8 e r4 r2 |
  fis2.. fis8 | e1 |
}

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

  \key fis \minor
  \time 4/4
  <fis a,>4. cis'4 <cis fis,>4.    |
  <cis e,>4 <b e,>4 e8 r4. |
  <fis, a,>4. cis'4 <cis fis,>4.    |
  \time 2/4
  <cis e,>4 <b e,>4 |

  \key e \minor
  \time 4/4
  <g, e'>4. b'4 <e, b'>4.       |
  <d b'>4 <d a'>4 d'8 r4.       |
  <g,, e'>4. b'4 <e, b'>4.      |
  \time 2/4
  <d b'>4 <d a'>4 |

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

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

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 |
      }
    }
    {
      \time 2/4
      \relative c' {
        <a d fis>2\repeatTie |
      }
    }
  }
  \time 4/4 \relative c' {<a cis fis>1}
  \whiteNoise
  \time 4/4 \keysThunder
  \time 5/4 \repeat volta 2 \keysPad
  \time 4/4 \keysThunder

  \time 4/4
  \repeat volta 2 \keysBeauty
  \repeat unfold 2 \keysBeauty
  \repeat unfold 2 \keysArpeggio

  \keysTransition
  \tempo 4 = 160
  \keysFast
  \keysToto
  \transpose c d {
    \keysShifter
    \keysEnding
  }
}