stickIntroLeft = \relative c {
  b8  cis gis' r gis r gis b, ~ |
  b8  cis gis' r gis r gis b, ~ |
  b8  cis gis' r gis r gis r    |
  e8  b' e, b' dis,8 b' dis, b' |

  b,8 cis gis' r gis r gis b, ~ |
  b8  cis gis' r gis r gis b, ~ |
  b8  cis gis' r gis r gis r    |
  <e b'>2 <dis b'> |
}

stickIntroRight = \relative c {
  \repeat unfold 3 { <fis b dis>4 r8 <gis cis e>4 <gis cis e> r8 | }
  <gis b e>2 <fis b dis> |
  \repeat unfold 3 { <fis b dis>4 r8 <gis cis e>4 <gis cis e> r8 | }
  a'8 gis fis e
  dis16 e dis8 b4
}

stickALeft = \relative c' {
  \key cis \minor
  \time 2/4
  cis8 r cis r | r r cis r | r r cis cis |
  cis8 r cis r | r r cis r |
  \time 6/8
  r r cis r cis cis  |

  \time 2/4
  cis8 r cis r | r r cis r | r r cis r   |
  \time 4/4
  r8 r cis r  r cis r r | cis r r cis  r cis r cis |
}

stickARight = \relative c' {
  \key cis \minor
  \time 2/4
  r4 r | <e gis>4 r8 <dis fis> | r <dis fis> r r |
  r4 r | <e gis>4 r8 <dis fis> |
  \time 6/8
  r <dis fis> r <e gis> r r|

  \time 2/4
  r4 r | <e gis>4 r8 <dis fis> | r <dis fis> r r |
  \time 4/4
  <cis e>4. <dis fis> <e gis>4 ~ | <e gis>8 <fis a>4. <e gis>4 <dis fis> |
}

stickAExtendedLeft = \relative c {
  \time 4/4
  r8 r   cis r  r   cis r r   | cis r r   cis  r cis r  cis |
  %% more intense!
  \repeat unfold 4 {
    r8 cis cis r  cis cis r cis | cis r cis cis  r cis r cis |
  }
}

stickAExtendedRight = \relative c' {
  \time 4/4
  <cis e>4. <dis fis> <e gis>4 ~ | <e gis>8 <fis a>4. <e gis>4 <dis fis> |
  \repeat unfold 4 {
    <cis e>4. <dis fis> <e gis>4 ~ | <e gis>8 <fis a>4. <e gis>4 <dis fis> |
  }
}

stickATransitionLeft = \relative c {
  \time 4/4 cis1 ~ | cis1 |
}
stickATransitionRight = \relative c' {
  \time 4/4 <cis e>1 ~ | <cis e> |
}

stickVerseLeft = \relative c {
  \time 4/4
  \key cis \minor
  cis4\sustainOn gis' e' cis, ~ cis gis' e' r\sustainOff |
  e,,\sustainOn b' gis' b, ~ b fis' dis' b,\sustainOff |
  cis4\sustainOn gis' e' cis, ~ cis gis' e' r\sustainOff |
  e,,\sustainOn b' gis'\sustainOff b,\sustainOn ~ b fis' dis' b,\sustainOff |
  a,2 ~ a4. <a' e' b'>8 ~ <a e' b'>1 |
  a,4. <a' e' b'> b,4 ~ | b1 |
}

% TODO
stickVerseRight  = \relative c {
  \time 4/4
  \key cis \minor
  r1 | r1 | r1 | r1 | r1 | r1 |
  r1 | r1 | r1 | r1 | r1 | r1 |
}

stickVerseVariantLeft = \relative c {
  \time 4/4
  \key bes \minor
  bes4\sustainOn f' des' bes, ~ bes f' des' r\sustainOff |
  des,\sustainOn as' f' c,\sustainOff ~ c\sustainOn as' es' c,\sustainOff |

  bes4\sustainOn f' des' bes, ~ bes f' des' r\sustainOff |
  des,\sustainOn as' f' c,\sustainOff ~ c\sustainOn as' es' c,\sustainOff |

  ges8 r ges r ges r <des' f'>4 ~ | <des f'>1 |
  ges,,4. <ges' des' as'>4. as,4 ~  | as1 |
}

% TODO
stickVerseVariantRight  = \relative c {
  \time 4/4
  \key bes \minor
  r1 | r1 | r1 | r1 | r1 | r1 |
  r1 | r1 | r1 | r1 | r1 | r1 |
}

% TODO
stickVerseHarderLeft = \stickVerseLeft

% TODO
stickVerseHarderRight = \stickVerseRight

stickNastyLeft = \relative c {
  \time 6/8
  \key cis \minor
  \repeat volta 2 { R2.*8 | R2.*8 |}
  \repeat volta 2 \repeat unfold 8 {
    cis,8 cis' cis, r cis cis' | cis, r cis cis' cis, r |
  }
  cis' cis cis r cis cis | cis r cis cis cis r |
  cis cis cis r cis cis | cis r cis cis cis r |
  cis cis cis r cis cis | cis r cis cis cis r |
  cis cis cis r cis cis | bis r bis bis bis r |

  \key e \minor
  b b b r b b | b r c c c r |
  a a a r a a | es r es es es r |

  e e e r e e | e r e e fis' g |
  fis fis fis r fis fis | fis g a b, c b |

  e, e e r e e | e r e e fis' g |
  ais, ais ais r ais ais | a r a a a r |

  e e e r e e | e r e e fis' g |
  fis fis fis r fis fis | fis g a b, c b |

  e, e e r e e | e r e e fis' g |
  fis fis fis r fis fis | fis16-. r fis8 g a4. ~ | a2. |
}

stickNastyRight = \relative c {
  \time 6/8
  \key cis \minor
  \repeat volta 2 { R2.*8 | R2.*8 |}
  \repeat volta 2 \repeat unfold 2 {
    r2.*8
  }
  e8 e e r e e | e r e e e r |
  es es es r es es | fis r fis fis fis r |
  e e e r e e | e r e e e r |
  e e e r e e | es r es es es r |

  \key e \minor
  e e e r e e | e r e e e r |
  e e e r e e | es r es es es r |

  e e e r e e | e r e e a b |
  a a a r a a | a b c es e es |

  e, e e r e e | e r e e a b |
  ais ais ais r ais ais | a r a a a r |

  e e e r e e | e r e e a b |
  a a a r a a | a b c es e es |

  e, e e r e e | e r e e a b |
  a a a r a a | a16-. r a8 b c4. ~ | c2. |
}

stickWaltzLeft = \relative c {
  \time 3/4
  e4 b' g' | es,4 b' g' |
  d, b' g' | cis,, a' e' |
  c,\sustainOn g' e' | r2 c,4 | g'2 c,4 |
  g'2. ~ | g2. | r2 c,4\sustainOff |

  d4\sustainOn a' fis' | r2 d,4 | a'2 d,4 |
  a'4. d,4.\sustainOff | cis4 c b |
  \key fis \minor
  bes4\sustainOn fis' cis' | r2 bes,4 | fis'2.\sustainOff |
  \time 4/4
  a,4 e' cis' a, | c gis' dis' c, |
}

stickWaltzRight = \relative c'' {
  \time 3/4
  r4 <g b> <g b> | r <g b> <g b> |
  <g b> c d | <g, b>2. |
  <g b>2.\arpeggio | <e a> | <b e>2 r4 |
  <g' b>4. <e a>4. | <b e>4 a' b | c b a |

  <g b>2.\arpeggio | <e a> | <b e>2 fis'4 |
  <g b>4. <e a>4. | e4 fis g |
  \key fis \minor
  <e gis>2. | <cis fis>2. | <gis cis>2 r4 |

  \time 4/4
  <e' gis>4. <cis fis> cis4 |
  gis'4. fis c4 |
}

stickBLeft = \stickALeft
stickBRight = \stickARight

stickBTransitionLeft = {
  \time 4/4
  %% TODO
}

stickBTransitionRight = \relative c' {
  \time 4/4
  <e gis>4. <dis fis> <cis e>4 ~ |
  %% TODO
  <cis e>8 <dis fis>4. e4 dis4 |
}

stickOutroLeft = \relative c {
  \time 4/4
  \repeat unfold 3 { cis8 b, cis gis' e' cis, e' cis, |}
  r1 |
  \repeat unfold 3 { cis'8 b, cis gis' e' cis, e' cis, |}
  r1 |
}

stickOutroRight = {}

stickEndLeft = {}
stickEndRight = {}



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

  \new Staff \relative c' {
    \set Staff.midiPanPosition = #-0.7
    \key cis \minor
    \clef "treble_8"

    \time 4/4
    \repeat unfold 2 \stickIntroRight
    \repeat volta 2 \stickARight
    \stickAExtendedRight
    \stickATransitionRight

    \repeat volta 2 \stickVerseRight
    \stickVerseVariantRight
    \stickVerseHarderRight

    \repeat volta 2 \stickARight
    \stickAExtendedRight
    \stickATransitionRight

    \stickNastyRight
    \stickWaltzRight

    \repeat volta 2 \stickBRight
    \stickBTransitionRight
    \repeat volta 4 \stickOutroRight
    \stickEndRight
  }

  %% staff for left hand side
  \new Staff \relative c  {
    \set Staff.midiPanPosition = #0.7
    \key cis \minor
    \clef "bass"

    \time 4/4
    \repeat unfold 2 \stickIntroLeft
    \repeat volta 2 \stickALeft
    \stickAExtendedLeft
    \stickATransitionLeft

    \repeat volta 2 \stickVerseLeft
    \stickVerseVariantLeft
    \stickVerseHarderLeft

    \repeat volta 2 \stickALeft
    \stickAExtendedLeft
    \stickATransitionLeft

    \stickNastyLeft
    \stickWaltzLeft

    \repeat volta 2 \stickBLeft
    \stickBTransitionLeft
    \repeat volta 4 \stickOutroLeft
    \stickEndLeft
  }
>>

%% Local Variables:
%% compile-command: "make -C .."
%% End: