\version "2.18.2"
\language "english"

\header {
  title = "Memorial"
  composer = "Tommy Montgomery"
  copyright = "(c) 2003 Tommy Montgomery"
}

global = {
  \key e \major
  \time 4/4
  \tempo 4 = 144
  \set Staff.printKeyCancellation = ##f
  \set Score.connectArpeggios = ##t
  \numericTimeSignature
}

right = {
  \global
  <<
    { e2 gs4 a | b2\arpeggio <ds, fs>4 <e gs> | <fs a>2       a4  gs | fs4. e8 ds4 e8 fs | } \\
    { b,1      | <b ds fs>\arpeggio           | cs4. cs8      cs4 b  | b1                | }
  >>

  <<
    { e1 ~                    | e1               | fs1 ~                  | fs                  | } \\
    { e4 cs8 b a b cs <b e> ~ | q4. cs8 a b cs e | <cs fs>4. a8 a cs e fs | <b, e>4. b8 <b ds>2 | }
  >>

  <<
    { \grace { b16 ds e } e2 gs4 a | b2\arpeggio <ds, fs>4 <e gs> | a4.       fs8     ~ fs a8  fs4 | <e fs>4. \times 2/3 { e16 fs e } ds2 | } \\
    { b1                           | <b ds fs>\arpeggio           | <cs fs>4. <a cs>8 ~ q  cs8 a4 | b1                                    | }
  >>

  <<
    { \grace { a16 b cs } e1 ~  | e1                              | fs4.   gs8 ~ gs fs4. | fs2.               e16 gs ds' e | } \\
    { e,4 cs8 b a b cs <b e> ~  | q2 \grace { a16 b } cs8 a e' a, | cs4 a8 cs8 ~ cs cs4. | <b e>4. b8 <b ds>4 s4           | }
  >>

  ds'4. e,8 cs'2 |

  <<
    { \grace { b16 cs b } a2 ~ a8 e a b | } \\
    { s4. cs,8 ~ cs2                    | }
  >>

  <<
    { b'2 fs8 gs a gs   | fs4. e8 ds4 e16 gs ds' e | } \\
    { e,4.    b8 ~ b2 ~ | b2. s4                   | }
  >>

}

left = {
  \global
  e8 b' e b ~ b4 b |
  b8 fs' b fs ~ fs4 fs |
  fs,8 cs' fs cs ~ cs fs4 cs8 |
  b8 fs' b2 fs4  |

  a,8 e' a2. |
  gs,8 e' gs2. |
  fs,8 cs' fs2 cs4 |
  b,8 fs' b2 b4 |

  e,8 b' e b ~ b4 b |
  b,8 fs' b fs ~ fs4 fs |
  fs8 cs' fs cs ~ cs4 fs8 cs |
  b8 fs' b2 fs4  |

  a,8 e' a2. |
  gs,8 e' gs2 e4 |
  fs,8 cs' fs2 cs4 |
  b,8 fs' b2 b4 |

  cs,8 gs' cs4 gs cs |
  a8 e' a2 e4 |
  e,8 b' e2 b4 |
  b8 fs' b2. |
}

highStrings = \new Staff \with {
  instrumentName = "Violin"
  midiInstrument = #"violin"
} {
  \clef treble \relative c'' {
    \global

    \repeat unfold 8 r1
    <<
      { gs2 a4  b  | b2  fs4 gs | a2  gs4 fs | fs1 } \\
      { e2  fs4 gs | fs2 ds4 e  | fs2 e4  cs | ds1 }
    >>

    <<
      { e1 ~ | e | fs ~      | fs              | } \\
      { cs1  | b | <cs e ~>1 | <b ~ e>2 <b ds> | }
    >>

    <<
      { gs'2     a4 gs | fs e2 cs4 | b2 e8 gs cs gs | ds'2 e4 fs | } \\
      { <cs, e>2 q     | <a cs>1   | <e gs>1        |   }
    >>
  }
}

lowStrings = \new Staff \with {
  instrumentName = "Cello"
  midiInstrument = #"string ensemble 1"
} {
  \clef bass \relative c {
    \global
    \repeat unfold 8 r1
  }
}

brass = \new Staff \with {
  instrumentName = "Trumpet"
  midiInstrument = #"brass section"
} {
  \clef treble \relative c {
    \global
    \repeat unfold 8 r1
  }
}

\score {
  <<
    \new PianoStaff \with {
      instrumentName = "Piano"
    } <<
      \new Staff = "right" \with {
        midiInstrument = "acoustic grand"
      } \relative c' \right
      \new Staff = "left" \with {
        midiInstrument = "acoustic grand"
      } { \clef bass \relative c, \left }
    >>
    \brass
    \highStrings
    \lowStrings
  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
    }
  }
  \midi {
    \context {
      \Score
    }
  }
}