\version "2.24.0"
\language "english"

\header {
  title = "Gothra (organ solo)"
  composer = "Tommy Montgomery"
  copyright = "(c) 2025 Tommy Montgomery"
}

global = {
  \key e \phrygian
  \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 #'(right left) {
  \tempo 4 = 150

  \global <b'' e>1 |
  \global \clef treble R1 |

  <b d>1 |
  R1 |

  \grace { a16 b cs } <b d>8 e <b e>16 d a <b d> ~ q8 e8 r8 d16 e |
  r16 <b'' e a> r8 r8. <b e a>16 ~ q q r8 <bf d>16 e r8 |

  <g b>16 e d r <e g> d b r <d e> b a r <b d> a g r |
  r8. <e b'>16 r8. <d a'>16 r8. <b g'>16 r8. <a e'>16 |

  r8 <a d>16 e <a d> g e r r8 <a d>16 e <b' e> a g a |
  e16 d' r8 r8. b16 e, d' r8 r4 |

  r8 <a d>16 e <a d> g e r r8 <bf' d>16 e, <bf' d> a e16 r |
  e,16 d' r8 r8. b16 e, bf' r8 r8. bf16 |

  r16 d e g r g a b r b d e r e g a |
  d16 r8. g16 r8. b16 r8. e16 r8. |

  \ottava 1 bf16 a g e d e b! a \ottava 0 bf a g e d e b! bf |
  R1 |

  a4. cs8 ~ cs d e16 f e d |
  R1 |

  e8 f g a \grace { g16 a } bf8 a g bf |
  R1 |

  a8 cs d e f d e cs |
  R1 |

  d8 bf cs a bf16 g a f g e f d |
  R1 |

  e4. <e g>8 ~ q4 <es gs b!> ~ |
  r4 <a,,, d g>8 r r <b e a> r4 |

  q8 <e g! bf d>4. e'16 d b bf a g e d |
  cs8 <c e g>4. r2 |


  e16 d b bf a g e d e g a bf b d e g |
  R1 |

  b,16 d e g d e g a e g a bf e, g a bf |
  R1 |

  b16 c b as b as a as a as a gs a gs g gs |
  R1 |

  g16 gs g fs g fs f fs f fs f ds f ds cs b |
  R1 |

  \tuplet 3/2 4 { cs8 b a b cs ef f g a b cs b } |
  a4 ef' a ef' |

  \tuplet 3/2 4 { a8 g f ef cs b } a8 r8 r4 |
  a,4 ef a,8 r r4 |

%{
  r8. e,,16 g a d r4 b16 d e a |
  \clef bass e,16 b' d r16 r8. a16 e' g  |

  r4 e16 g a d r4 b16 d e a |
  \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |

  r4 e16 g a d r4 b16 d e a |
  \clef treble \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |

  r4 \ottava 1 e16 g a d e2 \ottava 0 |
  \clef treble \tuplet 3/2 { e8 b' d } r4 r2 |
%}

  r4 e,16 g a d r4 b16 d e a |
  \clef bass \tuplet 3/2 { e,8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |

  r4 e16 g a d r4 b16 d e a |
  \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |

  r4 e16 g a d r4 b16 d e a |
  \clef treble \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |

  r4 \ottava 1 e16 g a d e2 \ottava 0 |
  \clef treble \tuplet 3/2 { e8 b' d } r4 r2 |




}


pianoStaff = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    \consists "Span_arpeggio_engraver"
    midiInstrument = "rock organ"
  } { \set Staff.connectArpeggios = ##t \relative c' \right }
  \new Staff = "left" \with {
    \consists "Span_arpeggio_engraver"
    midiInstrument = "rock organ"
  } { \set Staff.connectArpeggios = ##t \clef bass \relative c \left }
>>

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