\version "2.20.0"
\language "english"

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

global = {
  \key d \minor
  \time 4/4
  %\overrideTimeSignatureSettings 2/2 1/4 #'(1 1 1 1) #'()
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
  \override Beam.auto-knee-gap = #10
}

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

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

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

\parallelMusic #'(mainR mainL) {
  \tempo "Freely"
  \set subdivideBeams = ##t

  \global << { a'4 g e f } \\ { <g, a cs e>4 <bf d e> <f a d> <gs b d>8 <g bf cs> } >> |
  \global <a, a'>4 <g g'> <f f'> <e e'>8 <ef ef'> \bar "||" |

  \tempo "Fast" 4 = 72

  \lowerStaff r32 e f a d \upperStaff e f a \tuplet 10/8 { d[ a f e f a d e f a] } d a f e d a f e d' a f e \lowerStaff d a f e |
  <d d'>1 \break |

  r32 \fixSlope d f a bf \upperStaff d f a \tuplet 10/8 { bf[ a f d f a bf d f a] } bf a f d bf a f d bf' a f d \lowerStaff bf a f d |
  q1 |

  r32 d e g c \upperStaff d e g \tuplet 10/8 { c[ g e d e g c d e g] } c g e d c g e d c' g e d \lowerStaff c g e d |
  q1 |

  r32 e fs a d \upperStaff e fs a \tuplet 10/8 { d[ a fs e fs a d e fs a] } d a fs e d a fs e d' a fs e \lowerStaff d a fs e |
  q1 |

  r32 d fs a c \upperStaff d fs a \tuplet 10/8 { c[ a fs d fs a c d fs a] } c a fs d c a fs d c' a fs d \lowerStaff c a fs d |
  q1 |

  r32 d f! af c \upperStaff d f! af \tuplet 10/8 { c[ af f d f af c d f! af] } c af f d c af f d c' af f d \lowerStaff c af f d |
  q1 |

  r32 \fixSlope d f g b \upperStaff d f g \tuplet 10/8 { b[ g f d f g b d f g] } b g f d b g f d b' g f d \lowerStaff b g f d |
  q1 |

  r32 c ef g a \upperStaff c ef g \tuplet 10/8 { a[ g ef c ef g a c ef g] } a g ef c a g ef c a' g ef c \lowerStaff a g ef c |
  <ef ef'>1 |

  r32 d fs a bf \upperStaff d fs a bf d fs a \ottava #1 bf d fs a bf a fs d \ottava #0 bf a fs d bf a fs d \lowerStaff bf a fs d |
  \override Stem #'direction = #DOWN <d d'>4 <d' d'> \revert Stem #'direction <ef ef'>8[ <c c'>] \override Stem #'direction = #DOWN <g g'>[ <d d'>] \revert Stem #'direction |

  r32 d ef g c \upperStaff d ef g \tuplet 10/8 { c[ g ef d ef g c d ef g] } c g ef d c g ef d c' g ef d \lowerStaff c g ef d |
  <c c'>1 |

  r32 d ef af c \upperStaff d ef af \tuplet 10/8 { c[ af ef d ef af c d ef af] } c af ef d c af ef d c' af ef d \lowerStaff c af ef d |
  <af' af'>1 |

  r32 d f bf c \upperStaff d f bf \tuplet 10/8 { c[ bf f d f bf c d f bf] } c bf f d c bf f d c' bf f d \lowerStaff c bf f d |
  <bf bf'>1 |

  r32 d e? g c \upperStaff d e? g \tuplet 10/8 { c[ g e d e g c d e? g] } c g e d c g e d c' g e d \lowerStaff c g e d |
  \once \override Stem.direction = #DOWN <c c'>2 <c, c'> |

  r32 f bf c df \upperStaff f bf c \tuplet 10/8 { df[ c bf f bf c df f bf c] } df c bf f df c bf f df' c bf f \lowerStaff df c bf f |
  <f f'>1 |

  \upperStaff r32 g c df e g c df \tuplet 10/8 { e[ df c g c df e g c df] } e df c g e df c g e' df c g e df c g |
  <g g'>1 |

  r32 f af c df f af c \tuplet 10/8 { df[ c af f af c df f af c] } df c af f df c af f df' c af f df c af f |
  <af af'>1 |

  r32 g bf df e g bf df \tuplet 10/8 { e[ df bf g bf df e g bf df] } e df bf g e df bf g e' df bf g e df bf g |
  <bf bf'>1 |

  \lowerStaff r32 e g a d \upperStaff e g a \tuplet 10/8 4 { d[ a g e g a d e g a] d[ a g e g a d \ottava #1 e g a] } d a g e d' a g e |
  <a a'>1 |

  d'32 bf g e \ottava #0 d bf g e d bf g bf d g bf d cs bf g e cs bf g e g bf g e cs bf g e |
  <a, a'>2 <cs cs'> |

  \time 5/4 \lowerStaff r32 e f a d \upperStaff e f a \tuplet 10/8 4 { d[ a f e f a d e f a] \ottava #1 d[ a f e f a d e f a] } d a f e \ottava #0 d a f e d a f e \lowerStaff d a f e |
  \time 5/4 <d d'>1 ~ q4 |

  r32 d f a bf \upperStaff d f a \tuplet 10/8 4 { bf[ a f d f a bf d f a] \ottava #1 bf[ a f d f a bf d f a] } bf a f d \ottava #0 bf a f d bf a f d \lowerStaff bf a f d |
  q1 ~ q4 |

  r32 d e g c \upperStaff d e g \tuplet 10/8 4 { c[ g e d e g c d e g] \ottava #1 c[ g e d e g c d e g] } c g e d \ottava #0 c g e d c g e d \lowerStaff c g e d |
  q1 ~ q4 |

  r32 e fs a d \upperStaff e fs a \tuplet 10/8 4 { d[ a fs e fs a d e fs a] \ottava #1 d[ a fs e fs a d e fs a] } d a fs e \ottava #0 d a fs e d a fs e \lowerStaff d a fs e |
  q1 ~ q4 |

  r32 d g bf e \upperStaff d g bf \tuplet 10/8 4 { e[ bf g d g bf e d g bf] \ottava #1 e[ bf g d g bf e d g bf] } e bf g d \ottava #0 e bf g d e bf g d \lowerStaff e bf g d |
  q1 ~ q4 |

  r32 d fs a c \upperStaff d fs a \tuplet 10/8 4 { c[ a fs d fs a c d fs a] \ottava #1 c[ a fs d fs a c d fs a] } c a fs d \ottava #0 c a fs d c a fs d \lowerStaff c a fs d |
  q1 ~ q4 |

  r32 d f af b \upperStaff d f af \tuplet 10/8 4 { b[ af f d f af b d f af] \ottava #1 b[ af f d f af b d f af] } b af f d \ottava #0 b af f d b af f d \lowerStaff b af f d |
  q1 ~ q4 |

  r32 c ef g c \upperStaff c ef g \tuplet 10/8 4 { c[ g ef c ef g c c ef g] \ottava #1 c[ g ef c ef g c c ef g] } c g ef c \ottava #0 c g ef c c g ef c \lowerStaff c g ef c |
  <c c'>1 ~ q4 |

  \time 4/4 r32 d fs a bf \upperStaff d fs a \tuplet 10/8 4 { bf[ a fs d fs a bf d fs a] \ottava #1 bf[ a fs d fs a bf d fs a] } d a fs d c' g ef c |
  \time 4/4 <d d'>4 <d' d'> <d' fs a ef'>4\arpeggio \clef treble <d' fs a d>\arpeggio |

  bf'32 a fs d \ottava #0 bf a fs d bf a fs d bf a fs d <gs b d f>4 <ef g bf cs> |
  \tuplet 6/4 4 { ef'16 a, fs ef a, fs \clef bass ef a, fs ef a, fs } <e! e'>4 <ef ef'> |

  <d f a d>1\fermata |
  <d d'>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 {}
}