circus: stick: fix order of notes in arpeggio.

[music/pretentious.git] / 03-circus / parts / stick.ly

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. fis16 dis e4
  \tuplet 3/2 { fis,8 c' dis } g4 |
  fis4. e16 d b4
  \tuplet 3/2 { f8 b d }
  fis4

  \time 3/4
  e ais,,16 d fis8 g gis
  d' 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 5/8
  <g b'>4 r8 g8 fis |
  \time 4/4
  e4. 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 5/8
        <g' b'>4 r8 g8 fis |
        \time 4/4
        e4. r4 d8 r cis |
      }
    }
    {
      \relative c, {
        \time 5/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 5/8 R8*5 |
  \time 4/4 R1 |

  \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 5/8 R8*5 |
      \time 4/4 R1 | }
    { \time 5/8 { R8*5 |} }
  }
}

stickArpeggioLeft = \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
}

stickArpeggioRight = \relative c' {
  \time 3/4
  \repeat unfold 8 {
    r4.\sustainOn d,8 b' fis
  }
}

stickFinalLeft = \relative c, {
  \time 5/4
  d8\sustainOff\sustainOn a' fis'1
  fis,8\sustainOff\sustainOn cis' a'1
  e,8\sustainOff\sustainOn b' gis'1
  r8\sustainOff r d,1
}

%% TODO
stickFinalRight = \transpose g d \relative c' {
  \time 5/4
  g'4.\sustainOff fis8 e4 cis16 e fis8 g4 |
  fis4. e16 d b4
  \tuplet 3/2 { fis8 b d }
  fis4 |

  e2.   ~ e2   |
  d8 cis bes1 |
}

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'' { r4 r8 g ~ | }
    \repeat volta 2 \stickA
    \alternative {
      { r2 | }
      { r2 | R2*3 }
    }

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

    %% TODO 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 \stickHalfTimeFeel
      \stickWeird
      \stickDance
    }

    %% Beauty
    \stickBeautyRight

    %% Arpeggio
    \time 3/4 { R2. }
    \repeat volta 2 {
      \key e \minor
      \stickArpeggioRight
      \key fis \minor
      \transpose c d { \stickArpeggioRight }
    }

    %% Final
    \stickFinalRight
  }

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

    %% intro
    \time 2/4 { 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
    \time 3/4
    \relative c, { r4 fis8 g fis-. r8 }
    \repeat volta 2 {
      \key e \minor
      \stickArpeggioLeft
      \key fis \minor
      \transpose c d { \stickArpeggioLeft }
    }
    %% Final
    \stickFinalLeft
  }
>>