\version "2.18.2"
\language "english"

globalWaterfall = {
  \key bf \minor
  \time 4/4
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \omit Voice.StringNumber
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
}

\parallelMusic #'(waterfallR waterfallL) {
  \tempo "Allegro" 4 = 144

  \globalWaterfall \change Staff = "waterfallL" \override Stem #'direction = #UP r16 c, f bf \revert Stem #'direction \change Staff = "waterfallR" df c f bf df c f bf \ottava #1 df c f bf |
  \globalWaterfall <bf, bf'>1 ~ |

  df16 bf f c \ottava #0 df bf f c df bf f c df \change Staff = "waterfallL" \override Stem #'direction = #UP bf f c |
  q1 |

  r16 f bf \revert Stem #'direction \change Staff = "waterfallR" ef g f bf ef g f bf ef \ottava #1 g f bf ef |
  <ef ef'>1 ~ |

  g16 ef bf f \ottava #0 g ef bf f g ef bf f g ef \change Staff = "waterfallL" \override Stem #'direction = #UP bf f |
  q1 |

  r16 c f bf \revert Stem #'direction \change Staff = "waterfallR" df c f bf df c f bf \ottava #1 df c f bf |
  <bf bf'>1 ~ |

  df16 bf f c \ottava #0 df bf f c df bf f c df \change Staff = "waterfallL" \override Stem #'direction = #UP bf f c |
  q1 |

  r16 f bf \revert Stem #'direction \change Staff = "waterfallR" ef g f bf ef g f bf ef \ottava #1 g f bf ef |
  <ef ef'>1 ~ |

  g16 ef bf f \ottava #0 g ef bf f g ef bf f g ef \change Staff = "waterfallL" \override Stem #'direction = #UP bf f |
  q1 |

  r16 f bf \revert Stem #'direction \change Staff = "waterfallR" ef gf! f bf ef gf! f bf ef \ottava #1 gf! f bf ef |
  <gf, gf'>1 ~ |

  gf16 ef bf f \ottava #0 gf ef bf f gf ef bf f gf ef \change Staff = "waterfallL" \override Stem #'direction = #UP bf f |
  q1 |

  r16 df af' df \revert Stem #'direction \change Staff = "waterfallR" ef df af' df ef df af' df \ottava #1 ef df af' df |
  <af af'>1 ~ |

  ef16 c af c, \ottava #0 ef c af c, ef c af c, ef c \change Staff = "waterfallL" \override Stem #'direction = #UP af c, |
  q1 |

  r16 c f bf \revert Stem #'direction \change Staff = "waterfallR" df c f bf df c f bf \ottava #1 df c f bf |
  <bf bf'>1 ~ |

  df16 bf f c \ottava #0 df bf f c df bf f c df \change Staff = "waterfallL" \override Stem #'direction = #UP bf f c |
  q1 |

  r16 c gf' a \revert Stem #'direction \change Staff = "waterfallR" ef' c gf' a ef' c gf' a \ottava#1 ef' c gf' a |
  <f f'>1 ~ |

  ef'16 a, gf c, \ottava #0 ef a, gf c, ef a, gf c, ef \change Staff = "waterfallL" \override Stem #'direction = #UP a, gf c,  \bar ":|." |
  q1  \bar ":|." |

  s1 |
  <bf, bf' bf'>1\fermata \bar "|." |
}

waterfallStaff = \new PianoStaff <<
  \new Staff = "waterfallR" \with {
    midiInstrument = "acoustic grand"
  } \relative c' \waterfallR
  \new Staff ="waterfallL" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \relative c \waterfallL }
>>

globalSecond = {
  \key bf \minor
  \time 7/8
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \omit Voice.StringNumber
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \set Timing.beatStructure = #'(3 2 2)
}

\parallelMusic #'(secondR secondL) {
  \tempo "Vivace" 4 = 160

  \globalSecond bf'8 f bf c f, df' f, |
  \globalSecond bf f' df' f, df f f, |

  bf8 f bf c f, df' f, |
  bf f' df' f, df f f, |

  bf8 f bf c f, df' f, |
  bf f' df' f, df f f, |

  ef' f, ef' df f, c' f, \bar ":|." |
  c' a' c bf a f ef |

  bf gf bf c gf df' gf, |
  gf, df' gf af! bf gf df |

  ef' af, ef df' af c4 |
  af8 ef' af bf c <af ef'>4 |

  \grace { f,,16 gf af } bf8 f bf c f, af f |
  \clef bass bf,, f' df' f, df f f, |

  bf f bf c f, af f |
  bf f' df' f, df f f, |

  bf gf bf c gf df' gf, |
  gf df' gf af bf gf df |

  ef' af, ef df' af c4 |
  af8 ef' af bf c <af ef'>4 |

  \clef bass \grace { f,,16 gf af } bf8 f bf c f, af f |
  <bf,, bf'>4. <c c'>4 <df df'> |

  bf8 f bf c f, af f |
  <bf bf'>4. <c c'>4 <df df'> |

  bf8 f bf c f, df' f, |
  bf'8 f bf c f, df' f, |

  bf8 f bf c f, df' f, |
  bf8 f bf c f, df' f, |

  bf8 f bf c f, af f |
  bf8 f bf c f, af f |

  bf8 f bf c f, af f |
  bf8 f bf c f, af f |

  \bar ".|:" bf8 f bf c f, df' f, |
  bf, f' df' f, df f f, |

  bf8 f bf c f, df' f, |
  bf f' df' f, df f f, |

  bf8 f bf c f, df' f, |
  bf f' df' f, df f f, |

  ef' f, ef' df f, c' f, \bar ":|." |
  c' a' c bf a f ef |

  bf gf bf c gf df' gf, |
  gf, df' gf af! bf gf df |

  ef' af, ef df' af c4 |
  af8 ef' af bf c <af ef'>4 |

  \grace { f,16 gf af } bf8 f bf c f, af f |
  <bf, bf'>4. <c c'>4 <af af'> |

  \grace { f16 gf af } bf8 f bf c f, af f |
  <bf bf'>4. <c c'>4 <af af'> |

  bf8 gf bf c gf df' gf, |
  <gf gf'>4. <af af'>4 <bf bf'> |

  ef'8 af, ef df' af c4 |
  <c c'>4. <bf bf'>4 <af af'> |

  \grace { f,16 gf af } bf8 f bf c f, af f |
  <bf bf'>4. <c c'>4 <af af'> |

  \grace { f16 gf af } bf8 f bf c f, af f |
  <bf bf'>4. <c c'>4 <af af'> |

  \time 13/8
  \set Timing.beatStructure = #'(3 3 3 2 2)
  \clef treble bf8 f bf <ef f> f bf <ef f> bf f <ef f> bf f4 |
  ef'8 bf' ef ef bf' ef gf ef bf ef, bf ef, bf' |

  bf8 f bf <d f> f bf <d f> bf f <d f> bf f4 |
  d,8 bf' d d bf' d af' d, bf d, bf d, bf' |

  af8 f af <df! f> f af <df! f> af f <df f> af f4 |
  df,!8 af' df! df af' df! ef df af df, af df, af' |

  af8 f af <cf ef> f af <cf ef> af f <cf ef> af f4 |
  cf,8 af' cf cf af' cf ef cf af cf, af cf, af' |

  \time 4/4
  \tuplet 3/2 4 { r8 f bf ef f bf ef f bf \ottava #1 ef f bf } |
  <bf, bf'>1 ~ |

  \tuplet 3/2 4 { ef8 bf f \ottava #0 ef bf f ef bf f ef bf f } |
  q1 |

  \tuplet 3/2 4 { r8 f bf d f bf d f bf \ottava #1 d f bf } |
  <bf bf'>1 ~ |

  \tuplet 3/2 4 { d8 bf f \ottava #0 d bf f d bf f d bf f } |
  q1 |

  r16 f bf ef f f bf ef f f bf ef \ottava #1 f f bf ef |
  <af af'>1 ~ |

  f16 ef bf f \ottava #0 f ef bf f f ef bf f f ef bf f |
  q1 |

  r16 f bf d f f bf d f f bf d \ottava #1 f f bf d |
  <af af'>1 ~ |

  f16 d bf f \ottava #0 f d bf f f d bf f f d bf f |
  q1 |

  r16 f16 bf ef gf f bf ef gf f bf ef \ottava #1 gf f bf ef |
  <gf gf'>1 ~ |

  gf16 ef bf f \ottava #0 gf ef bf f gf ef bf f gf ef bf f |
  q1 |

  r16 f bf c f f bf c f f bf c \ottava #1 f f bf c |
  <f f'>1 ~ |

  f16 c bf f \ottava #0 f c bf f f c bf f f c bf f |
  q1 |

  r16 f a c f f a c f f a c \ottava #1 f f a c |
  <f f'>1 ~ |

  f4 \ottava #0 f, f,2 |
  q2. f'4 |

  \time 7/8
  \set Timing.beatStructure = #'(3 2 2)

  \bar ".|:" bf,8 f bf c f, df' f, |
  bf8 f' df' f, df f f, |

  bf8 f bf c f, df' f, |
  bf f' df' f, df f f, |

  bf8 f bf c f, df' f, |
  bf f' df' f, df f f, |

  ef' f, ef' df f, c' f, \bar ":|." |
  c' a' c bf a f ef |

  bf gf bf c gf df' gf, |
  gf, df' gf af! bf gf df |

  ef' af, ef df' af c4 |
  af8 ef' af bf c <af ef'>4 |

  \grace { f,16 gf af } bf8 f bf c f, af f |
  bf,8 f' df' f, df f f, |

  bf8 f bf c f, af f |
  bf8 f' df' f, df f f, |

  bf' gf bf c gf df' gf, |
  \clef treble gf' df' gf af! bf gf df |

  ef' af, ef df' af c4 |
  af8 ef' af bf c <af ef'>4 |

  \grace { f,16 gf af } bf8 f bf c f, af f |
  bf,8 f' df' f, df f f, |

  bf8 f bf c f, af f |
  bf8 f' df' f, df f f, |

  \ottava #1 bf'8 f bf c f, af f |
  bf'8 f' df' f, df f f, |

  bf8 f bf c f, af f |
  bf8 f' df' f, df f f, |

  bf8 f bf c f, af f |
  bf8 f' df' f, df f f, |

  bf8 f bf c f, af f |
  bf8 f' df' f, df f f, |

  <bf ef f bf>2..\fermata\arpeggio \bar "||" |
  <bf f' af>2..\fermata\arpeggio |
}

secondStaff = \new PianoStaff <<
  \set PianoStaff.connectArpeggios = ##t
  \new Staff = "secondR" \with {
    midiInstrument = "acoustic grand"
  } \relative c'' \secondR
  \new Staff ="secondL" \with {
    midiInstrument = "acoustic grand"
  } { \relative c' \secondL }
>>

globalThird = {
  \key bf \minor
  \time 4/4
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
}

\parallelMusic #'(thirdR thirdL) {
  \tempo "Presto" 4 = 176

  \globalThird bf16 c df ef f gf af bf c bf af gf f ef df c |
  \globalThird <bf f' df'>4\arpeggio <a f' c'>\arpeggio <bf f' df'>\arpeggio <c a' ef'>\arpeggio |

  bf16 c df ef f gf af bf c bf af gf f ef df c |
  <bf f' df'>4\arpeggio <a f' c'>\arpeggio <bf f' bf>\arpeggio <f, f'> |

  bf16 c df ef f c df ef f gf af bf c df ef f |
  <bf' f' df'>4\arpeggio <a f' c'>\arpeggio <bf f' df'>\arpeggio <c a' ef'>\arpeggio |

  gf16 f ef df c bf a gf f ef df c bf a gf f |
  <df bf' f'>4\arpeggio <ef c' gf'>\arpeggio <f c' f>\arpeggio <f, f'> |

  ef16 f gf af! bf c df ef f ef df c bf af gf f |
  <ef bf' gf'>4\arpeggio <d bf' f'>\arpeggio <ef bf' gf'>\arpeggio <f d' af'>\arpeggio |

  ef16 f gf af bf c df ef f ef df c bf af gf f |
  <ef bf' gf'>4\arpeggio <d bf' f'>\arpeggio <ef bf' ef>\arpeggio <bf bf'> |

  ef16 f gf af bf f gf af bf c df ef f d cf af |
  <ef bf' gf'>4\arpeggio <d bf' f'>\arpeggio <ef bf' gf'>\arpeggio <f d' af'>\arpeggio |

  af'16 f d cf cf' af f d d' b gs es d b gs es |
  <cf' f af d>4\arpeggio <d af' cf f>\arpeggio <es es'>8 <d d'> <b b'> <gs gs'> |

  fs16 gs a b cs d es fs gs fs es d cs b a gs |
  fs8 cs' a' cs, es, cs' gs' cs, |

  fs16 gs a b cs d es fs gs fs es d cs b a gs |
  fs,8 cs' a' cs, cs,4 cs, |

  fs16 gs a b cs gs a b cs d es fs gs fs es d |
  <fs' cs' a'>4\arpeggio <es cs' gs'>\arpeggio <fs cs' a'>\arpeggio <gs d' b'>\arpeggio |

  df!16 bf g e e' df bf g g' e df bf e df bf g |
  g bf df e bf df e g df e g bf e, g bf df |

  f16 g af bf c df ef f g f ef df c bf af g |
  f,16 g af bf c df ef f g f ef df c bf af g |

  f16 g af bf c df ef f g f ef df c bf af g |
  f16 g af bf c df ef f g f ef df c bf af g |

  f16 g af bf c f, g af bf c df ef f c df ef |
  f16 g af bf c f, g af bf c df ef f c df ef |

  f16 g af bf c f, g af bf c df ef f c df ef |
  \clef treble f16 g af bf c f, g af bf c df ef f c df ef |

  f16 ef df c bf af g f ef df c bf af g f ef |
  f16 ef df c bf af g f ef df c bf \clef bass af g f ef |

  f16 ef df c bf af g f g af bf c df ef f ef |
  f16 ef df c bf af g f ef df c bf af g f ef |

  df16 ef f gf af bf c df ef df c bf af gf f ef |
  \tuplet 3/2 4 { df8 af'' df f df af c, ef af ef' af, ef } |

  df16 ef f gf af bf c df ef df c bf af gf f ef |
  \tuplet 3/2 4 { df8 af' df f ef df } af4 af, |

  df16 ef f gf af bf c df ef f gf af bf c df ef |
  \tuplet 3/2 4 { df8 af' f' ef, c' gf' f, df' af' gf, c af' } |

  f16 ef df c bf a gf f ef df c bf a f a c |
  <a, ef' gf c>4\arpeggio <gf c ef a>\arpeggio <ef a c gf'>\arpeggio <f, f'>  |

  bf16 c df ef f gf af bf c bf af gf f ef df c |
  \clef treble bf''16 c df ef f gf af bf c bf af gf f ef df c |

  bf16 c df ef f gf af bf c bf af gf f ef df c |
  bf16 c df ef f gf af bf c bf af gf f ef df c |

  \tuplet 3/2 4 { bf8 c df ef f gf a bf a gf f ef } |
  \tuplet 3/2 4 { bf c df ef f gf a bf a gf f ef } |

  \tuplet 3/2 4 { df c bf a gf f ef df c bf a gf } |
  \tuplet 3/2 4 { f ef df c bf a \clef bass gf f ef df c bf } |

  \tuplet 3/2 4 { \clef bass f8 ef df c bf a } bf2  |
  \tuplet 3/2 4 { a8 gf f ef df c } bf4 bf, |

  \clef treble s1 |
  bf'16 df f bf
  \override Stem #'direction = #UP f' bf \change Staff = "thirdR" df f
  \override Stem #'direction = #DOWN bf df f bf
  \ottava #1 \override Stem #'direction = #UP f' bf df f
  |

  s1 |
  \override Stem #'direction = #DOWN bf1\fermata \bar "|." |
}

thirdStaff = \new PianoStaff <<
  \set PianoStaff.connectArpeggios = ##t
  \new Staff = "thirdR" \with {
    midiInstrument = "acoustic grand"
  } \relative c'' \thirdR
  \new Staff ="thirdL" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \relative c \thirdL }
>>

\book {
  \paper {
    print-all-headers = ##t
  }

  \header {
    title = "Suite Tempest"
    composer = "Tommy Montgomery"
    copyright = "(c) 2018 Tommy Montgomery"
    tagline = ##f
  }

  \markup { \vspace #1 }

  \score {
    \header {
      title = "I. The Waterfall"
      subtitle = ##f
      composer = ##f
      tagline = ##f
    }
    <<
      \waterfallStaff
    >>
    \layout {
      \context {
        \Staff \RemoveEmptyStaves
        \override Glissando.minimum-length = #4
        \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
        \override Glissando.thickness = #2
        \override VerticalAxisGroup.remove-first = ##t
      }
    }
  }

  \score {
    \header {
      title = "II. The River's Edge"
      composer = ##f
    }
    <<
      \secondStaff
    >>
    \layout {
      \context {
        \Staff \RemoveEmptyStaves
        \override Glissando.minimum-length = #4
        \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
        \override Glissando.thickness = #2
        \override VerticalAxisGroup.remove-first = ##t
      }
    }
  }

  \score {
    \header {
      title = "III. The Torrent"
      subtitle = ##f
      composer = ##f
    }
    <<
      \thirdStaff
    >>
    \layout {
      \context {
        \Staff \RemoveEmptyStaves
        \override Glissando.minimum-length = #4
        \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
        \override Glissando.thickness = #2
        \override VerticalAxisGroup.remove-first = ##t
      }
    }
  }
}


\score {
  <<
    \thirdStaff
  >>
  \midi {}
}