\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
  \numericTimeSignature
}

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

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

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

celloMainTheme = {
  <b gs'>1 | <fs ds'> | <cs' a'> | <b fs'> |
  <a e' ~> | <gs e'> | <fs fs'> | <b ~ e>2 <b ds> |
}

right = {
  \global
  \set Score.connectArpeggios = ##t

  \rightMainTheme

  <<
    { \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 ds2 | } \\
    { e4.    b8 ~ b2 ~ | b1          | }
  >>

  <<
    { \grace { e16 gs } cs4. gs8     ~ gs b4.   | gs2           ~ gs8 ds gs4     | } \\
    {                   gs4. <cs, e>8 ~ q  gs'4. | ds4. bs8 ~ bs4.           ds8 | }
  >>

  <<
    { a'2 ~   a8   e a4    | fs2 ~    fs8 ds fs4 | } \\
    { cs4. b?8 cs4.     e8 | a,4.  a8 bs4    a4  |  }
  >>

  <<
    { r2      <gs' gs'>4 <a a'> | } \\
    { <gs, e'>2 s2                | }
  >>

  <b' b'>2 <fs fs'>4 <gs gs'> |
  <a a'>2 q4 <gs gs'> |
  <fs fs'>4. <e e'>8 <ds ds'>4 <e e'>8 <fs fs'> |
  <e e'>4 <cs cs'>8 <b b'> <a a'> <b b'> <cs cs'> <e e'> ~ |
  q4 <cs cs'>8 <b b'> <a a'> <b b'> <cs cs'> <e e'> |
  <fs fs'>4. q8 ~ q8 q4. | <e b' e>2 <ds b' ds> |

  <b e>4. <b e gs>8 ~ q2 |
  <<
    { a'4 \times 2/3 { a8 gs fs } gs2 } \\
    { <b, e>4 q q2 }
  >>

  \key c \major

  <<
    { \grace { b16 c d } <c e>4.   q8 q4       <b d>8 <c e> | <d f>4 <c e>8 <b d> <c e>2  | } \\
    {                    g4.       g8 g2                    | g2                  g2      | }
  >>

  <<
    { \grace { b16 c d } <c e>4.   q8 q4       <b d>8 <c e> | <d f>4 <c e>8 <b d> <b e>2  | } \\
    {                    a4.       a8 a2                    | a2                  gs2     | }
  >>

  <<
    { \grace { b16 c d } <c e>4.   q8 q4       <b d>8 <c e> | <d f>4 <c e>8 <b d> <c e>2  | } \\
    {                    g4.       g8 g2                    | g2                  g2      | }
  >>

  <<
    { \grace { b16 c d } <c e>4.   q8 q4       <b d>8 <c e> | <d f>4. <b e>8 ~ q4  q  | } \\
    {                    a4.       a8 a2                    | a4.     gs8    ~ gs4 gs | }
  >>

  <a c e>4. c8 <e a c>2 | \grace { d16 g } <g b d>2 <d g b>2 |
  <e g c>2 q2 | \grace { d16 f } <f a d>2 <d f a> |
  <a c e>2 <c e a>2 | <d g b>4 <g b d> <d g b>2 |
  \grace { c16 e } <e g c>4. <c e g>8 ~ q4 q4 | <b e>2 <b e gs>4 <b e a>4 |

  <c f a>4. c8 c f g a | <c, e g>4. g8 g c e4 |
  <<
    { bf'2   c4 bf } \\
    { <d, f>2 <d f> }
  >>
  <d d'>4. q8 ~ q4 q4 |
  <d f bf>4. d8 d f bf c ~ | c2 c,8 e g4 \grace { a16 d e }  |
  <<
    { g4.      g8 ~ g g \times 2/3 { g fs e } | fs2        fs8 g  fs4 | } \\
    { <a, d>4. q8 ~ q q              q4       | <a d>4. a8 <a d>4 q   | }
  >>

  <e' g>4. q8 q4 <d fs>8 <e g> | <fs a>4 <e g>8 <d fs> <e g>4. q8 |
  <e g>4. q8 q4 <d fs>8 <e g> | <fs a>4 <e g>8 <d fs> <e g>4 \times 2/3 { q8 <d fs> <e g> } |
  <e g>4 \times 2/3 { q8 <d fs> <e g> } q4 \times 2/3 { q8 <d fs> <e g> } |
  <fs a>4 \times 2/3 { q8 <e g> <d fs> } <e g>4 \times 2/3 { q8 <d fs> <e g> } |
  <e g>4 \times 2/3 { q8 <d fs> <e g> } q4 \times 2/3 { q8 <d fs> <e g> } |
  <fs a>4 \times 2/3 { q8 <e g> <d fs> } <c e>4 \times 2/3 { q8 <d fs> <c e> } |

  <b e fs>4 \times 2/3 { b8 e fs } <b, e fs b>4 b'16 fs e b |
  <b e fs b>4 q8 q ~ q q4 b8 |
  <b ds fs b>4 \repeat unfold 2 { \times 2/3 { b8 ds fs } } \ottava #'1 \times 2/3 { b ds fs } |

  <b, b'>4 <ds fs>  \ottava #'0 <b, ds fs>4. b,8 |

  \key e \major
  \rightMainTheme

  \grace { b16 e gs } b4. b,8 e4. b8 | b'4. b,8 <ds fs>4. b8 |
  a'4. <b, gs'>8 ~ q8 <cs a'>4 <b fs'>8 ~ | q4. b8 ds4 b8 ds |
  <b e>4. <b cs>8 ~ q4. <b e>8 ~ | q4 <b gs'> <b a'> <b b'> |
  <a cs fs a>4. <a cs fs>8 ~ q8 q4. | <b e fs b>2 <b ds fs b> |

  \grace { e16 fs gs } <b, gs'>4. <cs a'>8 ~ q <b gs'>4. | << { fs'4. e8 ds4 e8 fs } \\ { b,1 } >> |
  << { gs'2 a4 gs8 a16 gs } \\ { ds4. b8 ~ b2 } >> | fs'4. a,8 a cs e fs |
  e4 ds8 cs ds e ds cs | ds4. a8 ~ a bs ds fs |
  e4. gs,8 ~ gs b? e a, | <b cs e>4. <cs ds fs>8 ~ q4 q |
  <b e>1\fermata \bar "|."

}

left = {
  \global
  \set Score.connectArpeggios = ##t

  \leftMainTheme

  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. |

  cs,,8 gs' cs4 gs cs |
  gs8 ds' gs4 ds gs |
  a,8 e' a4 e a |
  ds,,8 a' ds4 ds, a' |

  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, e'>1 | q2 q2 |

  \key c \major

  <c c'>4 r <c c'>4 r | <g g'> r <c c'>2 |
  <a a'>4 r <a a'>4 r | <f f'> r <e e'>2 |
  <c' c'>4 r <c c'>4 r | <g g'> r <c c'>2 |
  <a a'>4 r <a a'>4 r | <d, d'>4. <e e'>8 ~ q2 |

  a'8 e' a4 a,8 e' a e |
  b g' b4 b,8 g' b g |
  c, g' c4 c,8 g' c g |
  d, a' d4 d,8 a' d a |

  a8 e' a4 a,8 e' a e |
  b g' b4 b,8 g' b g |
  e, c' e4 c8 e4 c8 |
  e, b' e b e, b' e b |

  f c' f4 f, f' |
  c,8 g' c4 c, c' |
  bf,8 f' bf4 bf,8 f' bf4 |
  c,8 g' c d, a' d d, a' |

  bf,8 f' bf4 bf, bf' |
  c,8 g' c g c,4 c' |
  \repeat unfold 2 { d, a' d a }

  \repeat unfold 2 {
    <e b' e>4 r <e b' e>4 r |
    <d a' d>4 r <e b' e>4 r |
    <e b' e>4 r <e b' e>4 r |
    <d a' d>4 r <c g' c>4 r |
  }

  <b b'>2 q | q q4 q | q1 | q2. b'4 |

  \key e \major

  \relative c, {
    \leftMainTheme
  }

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

  a,8 e' a4 e8 a e4 |
  gs,8 e' gs2 e4 |
  fs,8 cs' fs4 cs fs,8 cs' |
  <b, b'>2 q2 |

  a'8 e' a4 e a,8 e' |
  b8 fs' b4 fs b, |
  gs8 ds' gs2 ds4 |
  fs,8 cs' fs4 cs fs, |

  cs8 gs' cs4 gs cs |
  ds,8 a' ds4 ds a |
  e8 b' e4 e b |
  <<
    { a8 e' a4 b,8 fs' b4 | } \\
    { a,2      b2         | }
  >>

  <e, b' e>1\arpeggio\fermata |
}

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

    <<
      { 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>2  b'4    e4   | fs2  gs4 b  | }
    >>

    <<
      { e4. cs8 e fs gs e | a4 gs8 fs gs2               | e1        | fs1 | } \\
      { gs,1 ~              | gs2 ~        gs8 ds' cs bs | cs2 b?4 a | ds1 | }
    >>

    e2 gs4 a | b2 fs4 gs | a2 a4 gs | fs4. e8 ds4 e8 fs |
    e4 cs8 b a b cs e ~ | e4 cs8 b a b cs e |
    fs2 gs4 a | b1 |

    e,1 ~ | e |

    \key c \major

    <e g c>8 r r <e g c> q r8 r4 | <d g b>8 r r <e g c> q r r4 |
    <e a c>8 r r <e a c> q r8 r4 | <f a d>8 r r <gs b e> q r r4 |
    <e g c>8 r r <e g c> q r8 r4 | <d g b>8 r r <e g c> q r r4 |
    <e a c>8 r r <e a c> q r8 r4 | <e b'>1 |

    a,4. b8 c4 d8 c | b4. a8 g4 a8 b | c4 b8 a g4 f8 e | f4 d e f |
    e4 c8 e a e c' d16 c |
    <<
      { s4 b c d | e1 ~     | e2.        e8 d | } \\
      { b4 g a b | c2. b8 a | b4. a8 gs2       | }
    >>

    c4 a8 c f4 e8 d | e4. c8 g c f e | d4. c8 bf4 c8 d ~ | d1 ~ |
    d4. bf8 f bf c d |
    <<
      { e2      e4 g      | g4. fs8 e4 fs8 g | a1 | } \\
      { <g, c>2 q4 <g e'> | <a d>1 ~         | q1 |  }
    >>

    <e' g>4. q8 q4 <d fs>8 <e g> | <fs a>4 <e g>8 <d fs> <e g>2 |
    <e g>4. q8 q4 <d fs>8 <e g> | <fs a>4 <e g>8 <d fs> <c e>2 |
    <e g>4 \times 2/3 { q8 <d fs> <e g> } q4 \times 2/3 { q8 <d fs> <e g> } |
    <fs a>4 \times 2/3 { q8 <e g> <d fs> } <e g>4 \times 2/3 { q8 <d fs> <e g> } |
    <e g>4 \times 2/3 { q8 <d fs> <e g> } q4 \times 2/3 { q8 <d fs> <e g> } |
    <fs a>4 \times 2/3 { q8 <e g> <d fs> } <c e>2 |

    <b e fs>1 ~ | q1 ~ |
    <b ds fs>1\glissando  | \ottava #'1 b''1 \ottava #'0 |

    \key e \major

    \relative c'' {
      \violinMainTheme
    }

    e,,4 e8 gs b a gs e |
    fs4 ds8 e fs gs a b |
    cs4 a8 fs e fs a cs |
    <<
      { b1                  | e,2.           gs8 e } \\
      { r8 ds e fs a gs fs4 | r8 cs b a b cs r4    }
    >>

    b4 e8 gs b a gs4 |
    a2 gs | << { b1 | } \\ { fs1 } >>

    cs1 | ds2 cs8 ds e fs | gs2 a4 gs8 a16 gs | fs2 fs8 gs a b |
    cs2. b8 a | ds2. b8 a |
    <<
      { e'1     | \ottava #'1 a1 ~                | a2 gs2\fermata    | } \\
      { s2. b,4 | <a cs e>2 <b ds fs> | <b e>1\fermata | }
    >>
  }
}

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

    \celloMainTheme

    <cs ~ e ~ gs>1 | <a cs e> | <e e' b'> | <b' fs'> |
    <cs e gs ~> | <gs gs'> | <a a'> | ds,2 ~ <ds ds'> |

    \relative c {
      \celloMainTheme
    }

    <e e'>1 ~ | q1 |
    \key c \major

    <c' c'>1 | <g g'>2 <c c'> | <a a'>1 | <d, d'>2 <e e'> |
    <c' c'>1 | <g g'>2 <c c'> | <a a'>1 | <d d'>2 <e e'> |

    <a, c e a>1 | <b d g b> | <c e g c> | <d f a d> |
    <c e a c> | <b d g b> | <c e ~ g c> | <b e gs b> |

    <c ~ f a c> | <g c e g> | <bf f' bf d> | << { <g' c e>1 } \\ { c,4. d8 ~ d2 } >> |
    <bf f' bf d>1 | <c g' c e> | <d ~ g a ~ d ~> | <d fs a d> |

    <e, e'>2 q2 | <d d'> <e e'> | q2 q2 | <d d'> <c c'> |
    <e e'>4 r4 <e e'>4 r4 | <d d'>4 r4 <e e'>4 r4 |
    <e e'>4 r4 <e e'>4 r4 | <d d'>4 r4 <c c'>2 |
    <b b'>1 ~ | q1 | q1 ~ | q1 |

    \key e \major

    \relative c { \repeat unfold 2 \celloMainTheme }

    <a' cs e gs>1 | <b ds fs> | <gs b ds gs> | <fs a cs fs> |
    <cs' e gs cs> | <ds fs a bs> | <e gs b?> | <a, a'>2 <b b'> |
    <e, e'>1\fermata |

  }
}

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

    \key c \major
    \repeat unfold 8 r1
    \repeat unfold 16 r1
    \repeat unfold 8 r1
    \repeat unfold 2 r1

    r2 r4 \times 2/3 { cs8 ds e } | ds1 |

    \key e \major

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

    <<
      { e1 ~                        | e            | fs2        fs2          | } \\
      { cs2. \times 2/3 { cs8 b a } | b2 a8 b cs a | cs a8 cs e cs a8 e' cs  | }
    >>

    <<
      { fs2 ds4 \times 2/3 { e8 gs b } | e1 ~ | e1 | } \\
      { b,2.                 e4 ~      | e1 ~ | e1 | }
    >>

    \repeat unfold 6 r1 |
    \repeat unfold 4 r1 |
    cs2. ~ cs8 e | ds2 ~ ds8 cs b a | b4 a8 gs fs gs a b | a2 b8 cs ds4 |
    e1\fermata |

  }
}

\score {
  <<
    \brass
    \highStrings
    \lowStrings
    \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 }
    >>
  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
    }
  }
  \midi {
    \context {
      \Score
    }
  }
}