\version "2.24.0"
\language "english"

\header {
  title = "Solitude"
  composer = "Tommy Montgomery"
  copyright = "(c) 2023 Tommy Montgomery"
}

global = {
  \key e \major
  \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 = 74
  \set subdivideBeams = ##t

  \global << { gs''4.\arpeggio gs8 fs4.\arpeggio e8 ds1 } \\ { <gs, b e>8\arpeggio gs b4 <fs b e>8\arpeggio fs b4 ~ b1 } >>  |
  \global <e gs b e>2\arpeggio <e fs b e>4\arpeggio b' b,2. ~ b8 fs'8 |

  << { gs'4.\arpeggio <b, b'>8 a'4.\arpeggio a8 gs4.\arpeggio fs8 e4. ds8 } \\ { <gs, b e>8\arpeggio gs b4 <a cs fs>8\arpeggio a cs4 <gs cs fs>8\arpeggio gs cs4 ~ cs2 } >>  |
  <e gs b e>2\arpeggio <fs a cs fs>2\arpeggio <cs fs gs cs>8\arpeggio gs'8 cs ds e2 |

  << { cs4.\arpeggio cs8 b4.\arpeggio a8 gs4. a8 fs2 } \\ { <cs e a>8\arpeggio cs e4 <b e a>8\arpeggio b e4 ~ e8 b e4 ds2 } >>  |
  <a,, cs e a>2\arpeggio <a b e a>4\arpeggio e' e,4 b' b,2 |

  << { fs4.\arpeggio e8 ds4.\arpeggio e8 ds4. cs8 ds2 } \\ { <a cs ds>8\arpeggio a cs4 <fs, a cs>8\arpeggio fs a4 ~ a8 fs gs4 ~ gs2 } >>  |
  <fs' a ds fs>2\arpeggio <fs a cs fs>4\arpeggio ds <gs, ~ gs'>2 <gs fs'>2 |

  << { gs'4.\arpeggio gs8 fs4.\arpeggio e8 ds1 } \\ { <gs, b e>8\arpeggio gs b4 <fs b e>8\arpeggio fs b4 ~ b1 } >>  |
  <e' gs b e>2\arpeggio <e fs b e>4\arpeggio b' b,2. ~ b8 fs8 |

  << { gs'4.\arpeggio <b, b'>8 a'4.\arpeggio a8 gs4.\arpeggio fs8 e4. ds8 } \\ { <gs, b e>8\arpeggio gs b4 <a cs fs>8\arpeggio a cs4 <gs cs fs>8\arpeggio gs cs4 ~ cs2 } >>  |
  <e gs' b e>2\arpeggio <fs' a cs fs>2\arpeggio <cs fs gs cs>8\arpeggio gs'8 cs ds e8 ds cs4 |

  << { \clef bass cs4.\arpeggio cs8 b4.\arpeggio a8 gs4. a8 fs2 } \\ { <cs e a>8\arpeggio cs e4 <b e a>8\arpeggio b e4 ~ e8 b e4 ds2 } >>  |
  <a, e' a>2\arpeggio <a e' a>4\arpeggio a e'4 e, b'4 b, |

  << { fs4.\arpeggio e8 ds4.\arpeggio e8 ds4. cs8 bs2 } \\ { <a cs ds>8\arpeggio a cs4 <fs, a cs>8\arpeggio fs a4 ~ a8 fs ~ <fs gs>4 ~ <fs gs>2 } >>  |
  <fs' cs' fs>2\arpeggio <fs cs' fs>4\arpeggio fs <gs ~ gs'>2 <gs fs'>2 |

  \clef treble << { e'''4.\arpeggio e8 ds4.\arpeggio cs8 b4.\arpeggio cs8 as2 } \\ { <e gs cs>8\arpeggio e gs4 <ds fss cs'>8\arpeggio ds fss4 <ds gs>8\arpeggio ds gs as fss2  } >>  |
  <cs' e gs cs>2\arpeggio <cs fss as cs>2\arpeggio <ds ~ gs b ds>2\arpeggio <ds as' cs>2 |

  << { b4.\arpeggio b8 as4.\arpeggio gs8 \clef bass fs4\arpeggio e8 ds8 cs4.\arpeggio b8 } \\ { <b ds gs>8\arpeggio b ds4 <as cs e>8\arpeggio as cs4 \clef bass <b cs>8\arpeggio gs8 b fs <e fs>2\arpeggio   } >>  |
  <gs, b ds gs>2\arpeggio <gs cs e gs>2\arpeggio <fs b cs fs>\arpeggio <fs, fs'>\arpeggio |

  \clef bass <<
    { b'4.\arpeggio b8 cs4.\arpeggio cs8 ds4.\arpeggio ds8 e4.\arpeggio e8 fs4.\arpeggio e8 ds4.\arpeggio cs8 b1 } \\
    { <ds, fs>8\arpeggio ds fs4 <e gs>8\arpeggio e gs4 <fs gs cs>8\arpeggio fs8 gs4 <fs b>8\arpeggio gs b4 <fs b e>8\arpeggio fs b4 <ds, fs b>8\arpeggio ds ~ <ds fs>4 ~ <ds fs>1  }
  >>  |
  <b fs' b>2\arpeggio <a e' a>2\arpeggio <gs ds' gs>\arpeggio <fs fs'>4\arpeggio <e e'> <b b'>1\arpeggio ~ <b b' b'> |


  \clef treble << { gs''4.\arpeggio gs8 fs4.\arpeggio e8 ds4. cs8 b2 } \\ { <gs b e>8\arpeggio gs b4 <fs b e>8\arpeggio fs b4 ~ b1 } >>  |
  <e'' gs b e>2\arpeggio <e fs b e>4\arpeggio b' b,2. ~ b8 fs'8 |

  << { gs'4.\arpeggio <b, b'>8 a'4.\arpeggio a8 gs4.\arpeggio fs8 e4. ds8 } \\ { <gs, b e>8\arpeggio gs b4 <a cs fs>8\arpeggio a cs4 <gs cs fs>8\arpeggio gs cs4 ~ cs2 } >>  |
  <e gs b e>2\arpeggio <fs a cs fs>2\arpeggio <cs fs gs cs>8\arpeggio gs'8 cs ds e2 |

  << { cs4.\arpeggio cs8 b4.\arpeggio a8 gs4. a8 fs2 } \\ { <cs e a>8\arpeggio cs e4 <b e a>8\arpeggio b e4 ~ e8 b e4 ds2 } >>  |
  <a,, cs e a>2\arpeggio <a b e a>4\arpeggio e' e,4 b' b,2 |

  << { fs4.\arpeggio e8 ds4.\arpeggio e8 ds4. cs8 ds2 } \\ { <a cs ds>8\arpeggio a cs4 <fs, a cs>8\arpeggio fs a4 ~ a8 fs gs4 fs2 } >>  |
  <fs' a ds fs>2\arpeggio <fs a cs fs>4\arpeggio ds <gs, gs'>4 <a a'> <b b'>2 |

  \clef bass
    b,8 e fs b e fs
    \clef treble
    b e fs b e fs

  \ottava #1 <e gs b e>2\arpeggio\fermata |

    e8 gs b e gs b
    \clef treble
    e gs b e gs b

  <b, e fs b>2\arpeggio\fermata |

}

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 {}
}