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' {
  \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' {
  \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,2 <a' e' b'>4 b,4 ~ b1 |
}

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'>1
  ges,,2 <ges' des' as'>4 as,4 ~ as1 |
}

% TODO
stickVerseHarderLeft = \stickVerseLeft

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 volta 2 \stickIntroRight
    \repeat volta 2 \stickARight
    \stickAExtendedRight
    \stickATransitionRight
    %\stickVerseRight
  }

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

    \time 4/4
    \repeat volta 2 \stickIntroLeft
    \repeat volta 2 \stickALeft
    \stickAExtendedLeft
    \stickATransitionLeft
    \repeat volta 2 \stickVerseLeft
    \stickVerseVariantLeft
    \stickVerseHarderLeft
  }
>>

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