\version "2.24.0"
\language "english"

\header {
  title = "Savior, Like a Shepherd Lead us"
  composer = "arr. Tommy Montgomery"
  copyright = "(c) 2024 Tommy Montgomery"
}

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

lhD = \relative c {
  d4 d, d' d,
}

\parallelMusic #'(right left) {
  \tempo 4 = 94

  \global R1 |
  \global \lhD |

  r2 r4 r8 <fs a fs'>8 ~ |
  \lhD |

  q8 q4 q8 <e e'> <fs fs'> <g g'> <a d a'> ~ |
  \lhD |

  q8 <d fs d'>4 <a d a'>8 ~ q <fs a fs'>4 <e g e'>8 ~ |
  \lhD |

  q8 <fs a fs'>4 <g b g'>8 <b d b'> <a cs a'> <g b g'> <fs a fs'> ~ |
  \lhD |

  q2. r8 <fs a fs'>8 ~ |
  \lhD |

  q8 q4 q8 <e e'> <fs fs'> <g g'> <a d a'> ~ |
  \lhD |

  q8 <d fs d'>4 <a d a'>8 ~ q <fs a fs'>4 <e g e'>8 ~ |
  \lhD |

  q8 <fs a fs'>4 <g b g'>8 <b d b'> <a cs a'> <g b g'> <fs a fs'> ~ |
  \lhD |

  q2. << { <fs a>8 q } \\ { \grace d8 ^~ d4 ~ } >> |
  d8 a fs a d,2 |

  << { <g b>4 <b d>2 cs8 b } \\ { d,2 ~ d8 d8 ~ <d g>4 } >> |
  g8 d' g a b2 |

  <fs a>4 <d fs>2 <d fs>8 q |
  a8 fs d cs b2 |

  << { <e g>4 <g b> <e a> <e g> } \\ { a,4 b cs d } >> |
  a8 e' a e g e a e |

  << { <d fs>2 } \\ { e8 a, d e } >> a d e a |
  d4 a <d, d'> <cs cs'> |

  << { <g b>4 <b d>2 <a cs>8 <g b> } \\ { fs8 d4 cs8 d e4. } >> |
  <b b'>4 <a a'> <g g'> <fs fs'> |

  << { <f a>4 <bf d>2\fermata } \\ { f8 d ~ <d g>2 } >> d8 e? |
  <f f'>4 <e e'> <ef ef'>2\fermata |

  <a, fs'!>4 <d a'> << { <e g>4. e8 } \\ { <g, d'>4 <a cs!> } >> |
  d'8 a' fs'! a, e'! e,! a a, |

  <fs a d>2 \change Staff = "left" d,16\rest a d e fs a d e \change Staff = "right" \bar "||" |
  d4 a' \stemDown d,2 \stemNeutral |

  << { fs4 fs fs8 e fs g } \\ { fs16 d a d fs d a d fs d e cs fs d g e } >> |
  d16 a' d e fs e d a d, a' e' a, d a e' a, |

  << { a4 d a fs } \\ { a16 d, fs a d d d' d, a d g, e fs g e d } >> |
  d,8 a' d a' d4 d, |

  << { e4 b' a g } \\ { e16 b e g b d cs b a b e b g b g e } >> |
  e,8 b' e fs g4 <a, e'>4 |

  << { fs2 } \\ { fs16 e d a \change Staff = "left" fs e d a } >> \change Staff = "left" \stemUp d16\rest a d e fs a d e \stemNeutral \change Staff = "right" |
  <d, a' d>2\arpeggio \stemDown d4 cs \stemNeutral |

  << { fs4 fs fs8 e fs g } \\ { fs16 d b d fs d b d fs d e cs fs d g e } >> |
  b16 fs' b cs d cs b fs b, fs' cs' fs, d' fs, cs' fs, |

  << { a4 d a fs } \\ { a16 d, fs a d d d' d, a b a g fs g fs ds } >> |
  <g d'>4 <d a' d> <c a' e'>\arpeggio <ds b' ds> |

  \tuplet 6/4 4 {
    e16 b e g b e
    g b g e b g
    fs g a b cs d
    e fs g a b cs
  } |
  e8 b' g'4 <a, a'>8 <g g'> <fs fs'> <e e'> |

  << { d2. } \\ { d8 a g e fs4 } >> \tuplet 6/4 4 { cs16 d e fs g a }  |
  <d d'>4. a'8 d4 a |

  << { b4 d2 cs8 b } \\ { b16 d, g b d d, e fs g fs e d cs' cs, b' d, } >> |
  g16 d' g a b4 g16 fs e d g8 g, |

  << { a'4 fs2 fs8 fs } \\ { a16 a, d e fs d g d a' a, a a d8 d } >> |
  d16 e fs g a g fs e d2 |

  << { e4 b' a g } \\ { e16 e e' e, b' b b' b, a a a' a, g g g' g, } >> |
  \clef treble a''16 e' g e b e g e cs e g e b e g e |

  \tuplet 6/4 4 {
    fs16 g fs e fs e
    d e d cs d cs
    b cs b a b a
    g a g fs g a
  } |
  <a, d fs>2 \clef bass \tuplet 6/4 4 { g,16 a b cs d e d cs b a g fs } |

  b4  << { <a' d>2 \tuplet 3/2 { cs16 d cs } b?8 } \\ { d,4 ~ d8 e4 d8 } >> |
  g8 g, g' a bf4 a |

  <a d g a>4\arpeggio <d g a d>2\arpeggio << { d,8 e } \\ { <fs,! as>4 } >> |
  <a d e g>4\arpeggio <f' bf c f>4\arpeggio <bf,, g'>2 |

  <a! fs'?>4 <d a'> << { g4.\arpeggio e8 } \\ { <a, c d>4\arpeggio <as cs> } >> |
  <b! b'!>2 <c c'>4 <cs cs'> |

  d2 r4 e8 fs \bar "||" |
  <d d'>4 <a a'> <d, d'>2 |

  \key e \minor << { g4 b2 } \\ { e,4 g2 } >> a8 fs |
  \key e \minor e'8 b' << { fs'4 g a } \\ { d,8 b d b e a, } >> |

  << { a4 fs2 } \\ { d4 b as } >> as'8 b |
  << { b'4 e, fs4 cs8 b } \\ { g8 d' a b fs2  } >> |

  << { cs4 d e fs } \\ { as,2 cs } >> |
  <as, as'>4. <g g'>8 ~ q4 <fs fs'> |

  << { <e g>4 <cs e> <ds fs>2 } \\ { b1 } >> |
  <g g'>4 <a! a'!> <b ds fs b>4\arpeggio e8 fs |

  <fs' g b>8 d! <fs g b>8 d <e fs a>8 d <e fs a> d |
  g4 b2 b8 cs |

  <e f a> d <e f a> a, <cs e>4. a'16 b |
  d4 f << { e2 } \\ { e4 a, } >> |

  c!4 ~ c16 g c d e4. b16 c |
  c! g' c! d e4 ~ e16 g16 e d c4 |

  d4 ~ d16 b d c b4. c16 d |
  g,16 d' g a b4 ~ b16 g a b d4 |

  ef4 ~ ef16 c ef f g4. f16 g |
  c,16 g' c d ef4 ~ ef16 g ef d c4 |

  <c, af'>4 <af f'> <f c'> <c af'> |
  f,,8 g af c f g af c |

  <a! gf'>4 <gf ef'> <ef c'> <gf a c ef gf>\arpeggio \bar "||" |
  ef8 c a gf ef c \tuplet 3/2 { a gf ef } |

  \key df \major <f af df f>4 q q8 <ef ef'> <f f'> <gf gf'> |
  \key df \major df8 af' f' af, df,8 af' f' af, |

  <af af'>4 <df df'> <af af'> <f f'> |
  <f f'>8 <ef ef'> <f f'> <gf gf'> <af af'> <gf gf'> <af af'> <bf bf'> |

  <ef gf ef'>4 <f f'> <gf bf gf'> <bf df bf'> |
  <af af'>8 <gf gf'>4 <ef ef'>8 ~ q <df df'>4 <ef ef'>8 |

  <af c af'>4 <gf bf gf'> <f c' f>2 |
  df8 af' c gf \tuplet 3/2 4 { f8 c' ef a ef c } |

  <df f>8 bf <f' bf>8 df <f df'> <ef c'> <df df'> <ef ef'> |
  bf16 ef f af bf, ef f bf bf, ef f bf bf, ef f bf |

  <f f'>4 <af af'>2 <af af'>4 |
  af,16 df ef af ef df af df ef af ef df <cf cf'>8 <bf bf'> |

  <cs e a cs>2\arpeggio <c e a c>2 |
  <a a'>8 <gs gs'> <g g'> <fs fs'> <f f'>4 f, ~ |

  \ottava #1 f''2.\fermata \ottava #0 d,,,8 e |
  f2.\fermata r4 |

  \key d \major <d fs>4 <fs a> <e g>4. <cs? e>8 |
  \key d \major <c'' g' a>4 <b d a'> << { <e g>2 } \\ { <bf d>4 <a cs> } >> |

  << { d1 } \\ { a4 <g bf> <fs a>2 } >> |
  <b,! b'!>4 <bf bf'> <a a'>2 |

  \change Staff = "left" \stemUp d16 g a d fs, d g a \change Staff = "right" \stemNeutral d g a d fs, d g a |
  \stemDown d16 g a d fs, d g a \stemNeutral d g a d fs, d g a |

  \stemUp d16 g a d fs, d g a \ottava #1 d g a <e cs'> <fs d'>4 \ottava #0  |
  \change Staff = "right" \stemDown d16 g a d fs, d g a d g a cs d4 |

  \stemNeutral \clef bass <e,,, g a d>4 <e a e'>2. |
  \change Staff = "left" \stemNeutral <a,,,, a'>4 \acciaccatura f8 <f f'>2. |

  \set tieWaitForNote = ##t \grace { \stemDown d'16 ~ a ~ g ~ d ~ \stemNeutral } <d a' d>1\fermata \bar "|." |
  <d d'>1\fermata |
}


pianoStaff = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    \consists "Span_arpeggio_engraver"
    midiInstrument = "acoustic grand"
  } { \set Staff.connectArpeggios = ##t \relative c' \right }
  \new Staff = "left" \with {
    \consists "Span_arpeggio_engraver"
    midiInstrument = "acoustic grand"
  } { \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 {}
}