stickA = \relative c'' {
  g8 gis-. g-. gis-. | a-. gis16 g8.-. gis8-. |
  r gis g gis        | e4 r8 g~               |

  g  gis-. g-. gis-. | a-. gis16 g8.-. gis8-. |
  g gis g gis        |

  <fis ais>8 r r <fis ais> ~ | <fis ais>2 |
  <fis ais>8 r r <fis ais> ~ | <fis ais>2 |
}

stickHalfTimeFeel = \relative c' {
  \time 2/4
  b8 d r b16 d         |
  fis8-. r8 r4         |
  r8 b,16 d fis g fis8 |
  \time 3/4
  e16 d cis b d cis c b
  \tuplet 3/2 { fis8 g b } |
  \time 2/4
  ais8 r8. g16 a ais d4 r8*5
  d,4 dis eis fis r8 |
}

stickWeird = \relative c' {
  \repeat volta 2 {
    \time 5/4 {g4. fis16 g cis8 d r g, fis cis |}
    \time 9/8 {cis'4. b16 fis a8 b2 | }
  } \alternative {
    {r2 r8 b8 a g fis  |}
    {r2 r8 b cis d fis |}
  }
}

%% TODO
stickWeirdLeft = \relative c, {
  \repeat volta 2 {
    \time 5/4 { r2. r2 |}
    \time 9/8 { r1 r8 | }
  } \alternative {
    { r1 r8 |}
    { r1 r8 |}
  }
}

stickDance = \relative c' {
  \time 5/4
  g'4. fis8 e4 r2
  fis4. e16 d b4
  %% TODO
  \tuplet 3/2 { f8 b d }
  fis4

  \time 3/4
  e2. | d8 cis ais4 r4
}

%% TODO
stickDanceLeft = \relative c, {
  \time 5/4 { r2. r2 | r2. r2 | }
  \time 3/4 { r2. | r2. | }
}


stickBeautyLeft = \relative c, {
  \repeat unfold 3 {
    \time 4/4
    b8\sustainOn fis' cis' d8 ~ d2 |
    \time 3/4
    g,8\sustainOff d' b'
    a, e' cis' |
  }

  \time 4/4
  <b, d'>4.-> <a cis'> <a cis'>8-> <g b'>8 ~ |
  \time 6/8
  <g b'>4. r8 g8 fis |
  \time 9/8
  e2 r4 d8 r cis |

  \repeat volta 2 {
    \time 7/8
    b4\sustainOn d'8 ~ d2 |
    \time 3/4
    g,8\sustainOff d' b'
    a, e' cis' |

    \repeat unfold 2 {
      \time 4/4
      b,,8\sustainOn fis' cis' d8 ~ d2 |
      \time 3/4
      g,8\sustainOff d' b'
      a, e' cis' |
    }

    \time 4/4
    <b, d'>4.-> <a cis'> <a cis'>8-> <g b'>8 ~ |
  } \alternative {
    {
      \relative c, {
        \time 6/8
        <g' b'>4. r8 g8 fis |
        \time 9/8
        e2 r4 d8 r cis |
      }
    }
    {
      \relative c, {
        \time 6/8
        <g' b'>4. r8 g8 fis |
      }
    }
  }
}

stickBeautyRight = \relative c' {
  \repeat unfold 3 {
    \time 4/4 { R1 | }
    \time 3/4 { R2. | }
  }
  \time 4/4 { R1 |}
  \time 6/8 R8*6 |
  \time 9/8 R8*9 |

  \repeat volta 2 {
    \time 7/8 { R8*7 | }
    \time 3/4 { R2. | }

    \repeat unfold 2 {
      \time 4/4 { R1 | }
      \time 3/4 { R2. | }
    }
    \time 4/4 { R1 |}
  } \alternative {
    { \time 6/8 R8*6 |
      \time 9/8 R8*9 | }
    { \time 6/8 { R8*6 |} }
  }
}


stickBeforeArpeggioLeft = \relative c, {
  \time 3/4
  e2. ~ | e2. ~ | e2. ~ | e2. |
}

stickArpeggioLeft = \relative c, {
  e8\sustainOn b' g' ~ g4. |
  e,8 b' g' ~ g4. |
  e,4. g'4. | r2. |

  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8 a' fis' ~ fis4.
  d,2. ~ d2.

  %% repeat, but with more pathos!
  e8\sustainOn b' g' ~ g4. |
  e,8 b' g' ~ g4. |
  e,8 b' g' ~ g4. |
  e,8 b' g' ~ g4. |

  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8\sustainOff\sustainOn a' fis' ~ fis4.
}

stickBeforeArpeggioRight = \relative c' {
  \time 3/4
  r2. | r2. | r2. | r2. |
}

stickArpeggioRight = \relative c' {
  \time 3/4
  r4.\sustainOn d,8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  d4 b' fis ~ | fis2.

  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r2. r2.

  %% repeat, but with more pathos!
  r4.\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis

  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
}

stickArpeggioLeftHigher = \relative c, {
  \time 3/4
  e8\sustainOn b' g' ~ g4.
  e,8 b' g' ~ g4.
  e,8 b' g' ~ g4.
  e,8 b' g' ~ g4.

  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8 a' fis' ~ fis4.
  d,8 a' fis' ~ fis4.
  d,8 a' fis' ~ fis4.\sustainOff
}

stickArpeggioRightHigher = \relative c' {
  \time 3/4
  r4.\sustainOff\sustainOn d,8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis

  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis\sustainOff
}

stickArpeggioRightLonger = \relative c' {
  \time 3/4
  r4.\sustainOn d,8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  d4 b' fis ~ | fis2.

  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r2. r2. r2.

  %% repeat, but with more pathos!
  r4.\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis

  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
  r4.\sustainOff\sustainOn d8 b' fis
}

stickArpeggioLeftLonger = \relative c, {
  e8\sustainOn b' g' ~ g4. |
  e,8 b' g' ~ g4. |
  e,4. g'4. | r2. |

  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8 a' fis' ~ fis4.
  d,2. ~ d2. ~ d2.

  %% repeat, but with more pathos!
  e8\sustainOn b' g' ~ g4. |
  e,8 b' g' ~ g4. |
  e,8 b' g' ~ g4. |
  e,8 b' g' ~ g4. |

  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8\sustainOff\sustainOn a' fis' ~ fis4.
  d,8\sustainOff\sustainOn a' fis' ~ fis4.
}


stickDramaLeft = \relative c, {
  \key b \minor
  \time 3/4
  \repeat unfold 2 {
    <e b' g'>2 r4
    <e b' g'>2 r4
    <e b' g'>2 r4
    <e b' g'>2 r4
    <b fis' d'>2 r4
    b8 fis' cis' d4. ~ | d2. ~ | d2. |
  }
}
stickDramaEndingLeft = \relative c {
  <a e' cis'>2.\arpeggio ~ | <a e' cis'>2. ~ | <a e' cis'>2. ~ | <a e' cis'>2. |
  <e b' gis'>2.\arpeggio ~ | <e b' gis'>2. ~ | <e b' gis'>2. ~ | <e b' gis'>2. |
}
stickFinalLeft = \relative c {
  <a e' cis'>2.\arpeggio ~ | <a e' cis'>2. ~ | <a e' cis'>2. ~ | <a e' cis'>2. |
  <e b' gis'>2.\arpeggio  | cis2. | <d a' fis'>2. ~ | <d a' fis'>2. ~ |
  <d a' fis'>2. ~ | <d a' fis'>2. |
}

stickDramaRight = \relative c' {
  \key cis \minor
  \time 3/4
  \repeat unfold 2 {
    cis2 b4 | cis2 b4 | cis2 b4 | cis4 d cis |
    b fis2 ~ | fis2. ~ | fis2. ~ | fis2. |
  }
}

stickDramaEndingRight = \relative c {
  cis'2. ~ cis2. ~ cis2. b2 a4
  gis2. ~ gis2. ~ gis2. ~ gis2.
}
stickFinalRight = \relative c {
  cis'2. ~ | cis2. ~ | cis2.   | b2 a4   |
  gis2.    | a2.     | fis2. ~ | fis2. ~ |
  fis2. ~ | fis2. |
}

stick = \new PianoStaff <<
  \set PianoStaff.midiInstrument = #"clav"
  \set PianoStaff.pedalSustainStyle = #'bracket

  \new Staff \relative c'  {
    \key cis \minor
    \clef "treble_8"

    %% intro
    \time 2/4
    \relative c'' { R2 | r4 r8 g ~ | }
    \repeat volta 2 \stickA
    \alternative {
      { r2 | }
      { r2 | R2*3 }
    }

    %% solo
    \relative c' {
      \time 2/4
      r4. fis16 e |
      dis cis b ais  e' cis b ais  |
      dis e dis cis  b ais b ais |
      \time 3/4
      gis2 r8 gis8 |
      \time 2/4
      \tuplet 3/2 { ais8 b c } e4 | a,4. r8 |
      c'4 c16 b ais g | fis f c e dis4 | r4. a'8 |

      \time 2/4
      e'8 r4 a,16 gis |
      r8 fis'16 e r8 a,16 gis |
      r8 r16 fis'16 e fis e r16 |
      \time 3/4
      r8 a,16 gis fis e
      dis    r \tuplet 3/2 { r8 c, cis } |
      \time 2/4
      \tuplet 3/2 { g' gis a } \tuplet 3/2 { c cis dis ~ } |
      dis4 r8 ais16 b |
      c16 r8 g'16 cis,8 r8 |
      e,16 gis b e gis b gis e |
      b gis e4 f8 |
    }

    %% spooky
    \key fis \minor
    \repeat volta 2 {
      \time 2/4
      <fis, fis'>4. <cis' cis'>8 ~ |
      <cis cis'>2 ~ | <cis cis'>2 ~ |
      \time 3/4
      <cis cis'>4 <d d'>4 <cis cis'>4 |
      \time 2/4
      <cis cis'>4. <b b'>8 ~ | <b b'>2 ~ | <b b'>2 |
      <a a'>4 <gis gis'>4 ~ | <gis gis'>2 |
    }

    %% Half time feel
    \key b \minor
    \repeat volta 2 {
      \repeat volta 2 \stickHalfTimeFeel
      \stickWeird
      \stickDance
    }

    %% Beauty
    \stickBeautyRight

    %% Arpeggio
    \tempo 4 = 170
    \key e \minor
    \stickBeforeArpeggioRight

    \stickArpeggioRight
    \key fis \minor
    \transpose c d { \stickArpeggioRightHigher }
    \stickDramaRight
    \stickDramaEndingRight

    \stickArpeggioRightLonger
    \key fis \minor
    \transpose c d { \stickArpeggioRightHigher }
    \stickDramaRight
    \stickFinalRight
  }

  %% staff for left hand side
  \new Staff \relative c  {
    \key cis \minor
    \clef "bass_8"

    %% intro
    \time 2/4 { R2 | R2 |}
    %% TODO: empty
    \repeat volta 2 { R2*11 | }
    \alternative {
      { R2 | }
      { R2*4 }
    }

    %% Solo
    \repeat unfold 2 {
      \time 2/4 R2*3
      \time 3/4 R2.
      \time 2/4 R2*5
    }

    %% Spooky
    \key fis \minor
    \repeat volta 2 {
      \time 2/4 R2*3
      \time 3/4 R2.
      \time 2/4 R2*5
    }

    %% Half time feel
    \key b \minor
    \repeat volta 2 {
      \repeat volta 2 {
        \time 2/4 { R2*3 }
        \time 3/4 { R2.  }
        \time 2/4 { R2*5 }
      }
      \stickWeirdLeft
      \stickDanceLeft
    }

    %% Beauty
    \stickBeautyLeft

    %% Arpeggio
    \key e \minor
    \stickBeforeArpeggioLeft

    \stickArpeggioLeft
    \key fis \minor
    \transpose c d { \stickArpeggioLeftHigher }
    \stickDramaLeft
    \stickDramaEndingLeft

    \stickArpeggioLeftLonger
    \key fis \minor
    \transpose c d { \stickArpeggioLeftHigher }
    \stickDramaLeft
    \stickFinalLeft
  }
>>