\version "2.20.0"
\language "english"

\header {
  title = "Arpeggio Prelude"
  composer = "Tommy Montgomery"
  copyright = "(c) 2021 Tommy Montgomery"
}

global = {
  \key fs \minor
  \time 4/4
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
  \override Beam.auto-knee-gap = #10
  \omit TupletNumber
  \omit TupletBracket
}

lowerStaff = {
  \change Staff = "mainL" \revert Stem #'direction
}

upperStaff = {
  \override Stem #'direction = #DOWN \change Staff = "mainR"
}

fixSlope = {
  \once \override Beam.positions = #'(9 . 15)
  %\once \override Stem.direction = #UP
}

\parallelMusic #'(mainR mainL) {
  \tempo 4 = 84
  \set subdivideBeams = ##t

  \global \override Stem #'direction = #UP \repeat unfold 2 { \tuplet 6/4 4 { s16 d' es gs b d s16 d b gs es d } } |
  \global \upperStaff \repeat unfold 2 { \tuplet 6/4 4 { cs''16 s16 s4 cs'16 s16 s4 } } |

  \repeat unfold 2 { \tuplet 6/4 4 { s16 d es gs b d s16 d b gs es d } } |
  \repeat unfold 2 { \tuplet 6/4 4 { b,16 s16 s4 es'16 s16 s4 } } |

  \repeat unfold 2 { \tuplet 6/4 4 { s16 d es gs b d s16 d b gs es d } } |
  \repeat unfold 2 { \tuplet 6/4 4 { cs,16 s16 s4 cs'16 s16 s4 } } |

  \repeat unfold 2 { \tuplet 6/4 4 { s16 fs a cs d fs s16 fs d cs a fs } } |
  \tuplet 6/4 4 { cs,16 s16 s4 a''16 s16 s4 cs,,16 s16 s4 b''16 s16 s4 } |

  \repeat unfold 2 { \tuplet 6/4 4 { s16 fs a b d fs s16 fs d b a fs } } |
  \tuplet 6/4 4 { d,,16 s16 s4 a''16 s16 s4 d,,16 s16 s4 gs'16 s16 s4 } |

  \repeat unfold 2 { \tuplet 6/4 4 { s16 es b' cs d es s16 es d cs b es, } } |
  \tuplet 6/4 4 { cs,,16 s16 s4 a''16 s16 s4 cs,,16 s16 s4 gs''16 s16 s4 } |

  \tuplet 6/4 4 { s16 fs a bs ds fs s16 fs ds bs a fs s16 fs gs bs ds fs s16 fs ds bs gs fs } |
  \tuplet 6/4 4 { bs,,16 s16 s4 a''16 s16 s4 bs,,16 s16 s4 gs''16 s16 s4 } |

  \tuplet 6/4 4 { s16 es gs cs es s8. es16 cs gs es } \tuplet 6/4 4 { s16 es gs cs es s8. es16 cs gs es } |
  \tuplet 6/4 4 { cs,,16 s4 fs'16 gs fs s4 } \tuplet 6/4 4 { cs,16 s4 gs''16 cs gs s4 } |

  \repeat unfold 2 { \tuplet 5/4 4 { s16 d fs b d s16 d b fs d } } |
  \repeat unfold 2 { \tuplet 5/4 4 { b,,16 s4 fs''16 s4 } } |

  \repeat unfold 2 { \tuplet 5/4 4 { s16 cs fs as cs s16 cs as fs cs } } |
  \repeat unfold 2 { \tuplet 5/4 4 { as,,16 s4 fs''16 s4 } } |

  \tuplet 5/4 4 { s16 cs e a! cs s16 cs a e cs s16 cs fs a cs s16 cs a fs cs } |
  \tuplet 5/4 4 { a,,!16 s4 e''16 s4 a,,16 s4 fs''16 s4 } |

  \repeat unfold 2 { \tuplet 5/4 4 { s16 cs fs gs cs s16 cs gs fs cs } } |
  \tuplet 5/4 4 { gs,,16 s4 fs''16 s4 gs,,16 s4 gs''16 s4 } |

  \tuplet 5/4 4 { s16 cs es gs cs s16 cs gs es cs s16 cs es gs cs } s4 |
  \tuplet 5/4 4 { cs,,,16 s4 cs'''16 s4 cs,,,16 s4 } cs'''4 |

  \bar "||"

  \revert Stem #'direction \repeat unfold 2 { \tuplet 6/4 4 { b,16 d fs b d fs b fs d b fs d } } |
  \lowerStaff <b,,,,, b'>2 <cs cs'>4 <d d'> |

  \repeat unfold 2 { \tuplet 6/4 4 { b16 cs es b' cs es b' es, cs b es, cs } } |
  <cs cs'>2 <cs, cs'> |

  \repeat unfold 2 { \tuplet 6/4 4 { a16 cs fs a cs fs a fs cs a fs cs } } |
  <d' d'>2 <cs cs'>4 <b b'> |

  \tuplet 6/4 4 { gs16 cs fs gs cs fs gs fs cs gs fs cs gs cs es gs cs es gs es cs gs es cs } |
  <cs cs'>1 |

  \repeat unfold 2 { \tuplet 6/4 4 { b16 d es b' d es b' es, d b es, d } } |
  <d d'>2 <cs cs'>4 <b b'> |

  \tuplet 6/4 4 { g,16 cs e g cs e g e cs g e cs fss, cs' ds fss cs' ds fss ds cs fss, ds cs } |
  <a a'>4 <g g'> <e e'> <ds ds'> |

  \tuplet 6/4 4 { gs16 cs ds gs cs ds gs ds cs gs ds cs gs bs ds gs bs ds } \ottava #1 \tuplet 3/2 { gs bs ds } gs8 \ottava #0 |
  <gs gs'>4. ds'8 gs,2 |

  \repeat unfold 2 { \tuplet 6/4 4 { e,,,16 gs cs e gs cs e cs gs e cs gs } } |
  <cs cs'>2 <ds ds'>4 <e e'> |

  \repeat unfold 2 { \tuplet 6/4 4 { ds16 as' cs ds as' cs ds cs as ds, cs as } } |
  <ds ds'>2 <fss, fss'> |

  \repeat unfold 2 { \tuplet 6/4 4 { gs16 b ds gs b ds gs ds b gs ds b } } |
  <gs gs'>2 <fs! fs'!>4 <e e'> |

  \tuplet 6/4 4 { fss16 as cs ds fss as \ottava #1 cs ds fss as cs e ds cs as fss ds cs \ottava #0 as fss ds cs as fss } |
  <ds ds'>1 |

  gs32 e gs b ds e gs b \tuplet 7/4 4 { ds16 b gs e ds b gs e gs b ds e gs b ds b gs e ds b gs } |
  <e e'>2 <fs fs'>4 <e e'> |

  \tuplet 7/4 4 { d!16 fs a cs d! fs a cs a fs d cs a fs } d32 fs a b d fs a b d! b a fs d b a fs |
  <d? d'?>1 |

  \tuplet 6/4 4 { e16 a b e a b e b a e b a e gs b e gs b e b gs e b gs } |
  <e e'>2 <d d'> |

  \tuplet 6/4 4 { es16 gs cs es gs cs \ottava #1 es gs cs es ds cs \ottava #0 gs es ds cs gs es  ds cs gs es ds cs } |
  <cs cs'>1 |

  \repeat unfold 2 { \tuplet 6/4 4 { a16 cs fs a cs fs a fs cs a fs cs } } |
  <fs fs'>2 <gs gs'>4 <a a'> |

  a32 bs ds fs a bs ds fs \tuplet 7/4 4 { a16 fs ds bs a fs ds } bs32 ds fs a bs ds fs a bs a fs ds bs a fs ds |
  <gs gs'>1 |

  \repeat unfold 2 { \tuplet 6/4 4 { cs16 e gs cs e gs cs gs e cs gs e } } |
  <a a'>2 <gs gs'>4 <a a'> |

  \tuplet 6/4 4 { b16 e fs b e fs b e fs \ottava #1 b e fs b fs ds b fs ds \ottava #0 b fs ds b fs ds } |
  <b b'>4. fs'8 b,2 |

  \repeat unfold 2 { \tuplet 6/4 4 { cs16 e gs cs e gs cs gs e cs gs e } } |
  <cs cs'>2 <ds ds'>4 <e e'> |

  \repeat unfold 2 { \tuplet 6/4 4 { cs16 ds fss cs' ds fss cs' fss, ds cs fss, ds } } |
  <ds ds'>2 <ds, ds'> |

  \repeat unfold 2 { \tuplet 6/4 4 { b16 ds gs b ds gs b gs ds b gs ds } } |
  <e' e'>2 <ds ds'>4 <e e'> |

  \tuplet 7/4 4 { cs16 e fs as cs e fs as fs e cs as fs e e fs as cs e fs as cs as fs e cs as fs } |
  <fs fs'>4 <e e'> <ds ds'> <cs cs'> |

  \bar "||"

  \key b \major \repeat unfold 2 { \tuplet 6/4 4 { b,16 ds fs b ds fs b fs ds b fs ds } } |
  \key b \major <b fs' b>2 <cs cs'>4 <ds ds'> |

  \tuplet 6/4 4 { as16 cs e as cs e as e cs as e cs as cs fs as cs fs as fs cs as fs cs } |
  <cs cs'>2 <fs, fs'> |

  \tuplet 6/4 4 { gs16 cs ds gs cs ds gs ds cs gs ds cs fss, cs' e fss cs' e fss e cs fss, e cs } |
  <cs' cs'>2 <ds ds'>4 <e e'> |

  \tuplet 6/4 4 { a16 cs ds fs! a cs ds fs! a cs ds fs! a fs ds cs a fs ds cs a fs ds cs } |
  <ds ds'>4. <e e'>8 <fs? fs'?>2 |

  \tuplet 6/4 4 { b16 e gs b e gs b gs e b gs e b e g b e g b g e b g e } |
  <e e'>4. <fs fs'>8 <g g'>4 <e e'> |

  \tuplet 6/4 4 { c16 e a c e a c a e c a e c ds a' c ds a' c a ds, c a ds, } |
  <a a'>4. <g g'>8 <fs fs'>4 <ds ds'> |

  \tuplet 6/4 4 { b16 e gs b e gs b gs e b gs e b cs g' b cs g' b g cs, b g cs, } |
  <e e'>4 <b b'> <g' g'> <e e'> |

  \tuplet 6/4 4 { fs,16 b cs fs b cs \ottava #1 fs b cs fs b cs fs cs as fs cs as \ottava #0 fs cs as fs cs as } |
  fs4. cs8 <fs, fs'>2 |

  \tuplet 6/4 4 { b16 ds fs b ds fs \ottava #1 b ds fs b fs e ds b fs \ottava #0 e ds b fs e ds \override Stem #'direction = #UP \change Staff = "mainL" b fs ds } |
  <b fs' b>1 |

  \tuplet 6/4 4 { b16 ds fs b ds fs \change Staff = "mainR" b ds fs b ds fs } b4 \revert Stem #'direction \clef bass <gs,,, b ds> |
  \tuplet 6/4 4 { \override Stem #'direction = #DOWN ds16 fs b ds fs b \change Staff = "mainR" ds fs b ds fs b } ds4 \change Staff = "mainL" \revert Stem #'direction <gs,,,,, gs'>4 |



  <gs b cs e>2 << { <e cs'>4.\arpeggio b'8 } \\ { <g b>4\arpeggio <fs as> } >> |
  <e e'>2 <fs fs'> |

  <ds fs b>1\fermata |
  <b fs' b>1\fermata |

  \bar "|."
}

mainStaff = \new PianoStaff <<
  \new Staff = "mainR" \with {
    midiInstrument = "acoustic grand"
  } \relative c' \mainR
  \new Staff ="mainL" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \relative c \mainL }
>>

\score {
  <<
    \mainStaff
  >>
  \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
    }
  }
  \midi {}
}