\version "2.14.2"
\language "english"

\header {
  title = "In Your Memory"
  composer = "Tommy Montgomery"
  copyright = "(c) 2013 Tommy Montgomery"
}

global = {
  \key b \major
  \time 2/2
  \set Staff.printKeyCancellation = ##f
}

flowingFifths = {
  \relative c, {
    b8 fs' b fs' b fs b, fs
  }
}

flowingOctaves = {
  \relative c,, {
    cs8 cs' cs' gs' cs gs cs, cs,
  }
}

\parallelMusic #'(right left) {
  \tempo "Moderately" 2 = 72
  
  \global
  r1 |
  \global
  \flowingFifths |
  
  r1 |
  \flowingFifths |
  
  ds'1 ~ |
  \flowingFifths |
  
  ds8 cs4 e ds b8 ~ |
  \flowingFifths |
  
  b1 ~ |
  \transpose b gs \flowingFifths |
  
  b8 as4 cs b b8 ~ |
  \transpose b gs \flowingFifths |
  
  b1 |
  \transpose b fs \flowingFifths |
  
  as1 |
  \transpose b fs \flowingFifths |
  
  gs1 |
  \transpose b cs' \flowingFifths |
  
  as4. b cs4 |
  fs,8 cs' as' cs, gs' cs, e, fs' |
  
  % repeat with octaves
  ds1 ~ |
  \flowingFifths |
  
  ds8 <cs cs'>4 <e e'> <ds ds'> <b b'>8 ~ |
  \flowingFifths |
  
  <b b'>1 ~ |
  \transpose b gs \flowingFifths |
  
  <b b'>8 <as as'>4 <cs cs'> <b b'> <b b'>8 ~ |
  \transpose b gs \flowingFifths |
  
  <b b'>1 |
  \transpose b fs \flowingFifths |
  
  \grace { cs16[ b] } <as as'>2 <gs gs'>4. <fs fs'>8 |
  \transpose b fs \flowingFifths |
  
  <gs cs gs'>1 ~ |
  \flowingOctaves |
  
  <gs cs gs'>2 <fs cs'~ fs>2 |
  \flowingOctaves |
  
  <es cs'~ es>1 ~ |
  \transpose b as \flowingFifths |
  
  <es cs' es>8 <ds ds'>4 <fs fs'> <es es'> <es es'>8 ~ |
  \transpose b as \flowingFifths |
  
  <es es'>1 ~ |
  \transpose b gs \flowingFifths |
  
  <es es'>8 <ds ds'>4 <fs fs'> <es es'> <es es'>8 ~ |
  \transpose b gs \flowingFifths |
  
  <es es'>2 \grace { fs16[ es] } <ds ds'>2 |
  \transpose b fs \flowingFifths |
  
  <cs cs'> <bs bs'> |
  \transpose b fs \flowingFifths |
  
  <as as'>4. <bs bs'> <css css'>4 ~ |
  as,,8 es' as as es' as as, gs' |
  
  <css css'>8 <ds ds'>4. <es es'>4 <ds ds'> ~ |
  as,8 fs' as, es' ds( css) fs( es) |
  
  <ds ds'>1 ~ |
  \flowingFifths |
  
  <ds ds'>8 <cs e? cs'>4 <e gs e'?> <ds fs ds'> <ds fs ds'>8 ~ |
  \flowingFifths |
  
  <ds fs ds'>1 ~ |
  \transpose b gs \flowingFifths |
  
  <ds ds'>8 <cs e cs'>4 <e gs e'> <ds fs ds'> <ds fs ds'>8 ~ |
  \transpose b gs \flowingFifths |
  
  <ds fs ds'>2 <cs fs cs'> |
  \transpose b fs \flowingFifths |
  
  <b cs b'>2 <as cs as'> |
  \transpose b fs \flowingFifths |
  
  <gs cs gs'>1 ~ |
  \transpose b cs \flowingFifths |
  
  <gs cs gs'>2 <fs cs' fs> |
  \transpose b cs \flowingFifths |
  
  <es cs' es>2 cs |
  \ottava #-1
  <cs,, cs'>8 gs' <cs, cs'> gs' <cs, cs'> gs' <cs, cs'> gs' |
  
  <<
    { <cs' es>4. <cs es> <cs es>4 }
    \\
    { es,4. gs as4 }
  >> |
  <cs, cs'>8 gs' <cs, cs'> gs' <cs, cs'> gs' <cs, cs'> gs' |
  
  <fs b ds>1 |
  <<
    { r8 <ds' fs> <b b'> <ds fs> <b b'> <ds fs> <b b'> <ds fs> }
    \\
    { <b, b'>1 }
  >> |
  
  <<
    { ds'4. es fs4 }
    \\
    { b,4. gs <fs as>4 }
  >> |
  <b' b'>8 <ds fs> <b b'> <ds fs> <b b'> <ds fs> <b b'> <ds fs> |
  
  <gs cs gs'>1 |
  \ottava #0
  <<
    { r8 <gs cs> <e e'?> <gs cs> <e e'> <gs cs> <e e'> <gs cs> }
    \\
    { <e,? e'?>1 }
  >> |
  
  <<
    { gs'4. b cs4 }
    \\
    { <gs, cs>4. <b e> <cs gs'>4 }
  >> |
  <e' e'>8 <gs cs> <e e'> <gs cs> <e e'> <gs cs> <e e'> <gs cs> |
  
  <ds fs as ds>1 |
  <<
    { r8 <es as> <css css'> <es as> <css css'> <es as> <css css'> <es as> }
    \\
    { <ds, ds'>1 }
  >> |
  
  <gs gs'>4. <fs fs'> <es es'>4 |
  <css' css'>8 <es as> <css css'> <es as> <css css'> <es as> <css css'> <es as> |
  
  \time 5/4
  
  % now it gets crazy
  
  \key df \major
  <ef ef'>8 r8 
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 f,, bf ef s16 f bf 
  \change Staff = "right"
  ef s16 f bf ef s16 f bf ef |
  \key df \major
  <ef, ef'>8 r8 
  \override Stem #'direction = #DOWN
  gf'16 s8 s16 gf'16 s8 s16 
  \change Staff = "right"
  gf'16 s8 s16 gf'16 s8 s16  |
  
  \revert Stem #'direction
  \time 2/2
  <af, f'>4 <af f'>8 <af f'> ~ <af f'> <af ef'> <af df>4 |
  \revert Stem #'direction
  \change Staff = "left"
  <af,,,, af'>4
  \clef treble
  df''8 <af' f'>8 ~ <af f'>8 <af ef' gf> <af df f>4 |
  
  <ef af ef'>4 <ef af ef'>8 <ef af ef'> ~ <ef af ef'> <ef af df> <ef af c>4 |
  <c, af' c>4 <df af' df>8 <c af' c> ~ <c af' c> <df af' df> <c af' c>4 |
  
  \time 5/4
  <df f bf>4
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 c,,, f bf s16 c f bf
  \change Staff = "right"
  s16 c f bf s16 c f bf |
  <bf f' bf>4
  \clef bass
  \override Stem #'direction = #DOWN
  df,,16 s8 s16 df'16 s8 s16 
  \change Staff = "right"
  df'16 s8 s16 df'16 s8 s16  |
  
  \revert Stem #'direction
  \time 2/2
  <<
    { df8( c bf c) ~ c bf af4 }
    \\
    { ef4. ef8 ~ ef ef ef4 }
  >> |
  \revert Stem #'direction
  \change Staff = "left"
  <af,,, af'>4
  \clef treble
  af''8 <ef' af>8 ~ <ef af>8 <g bf> <af c>4 |
  
  <bf ef bf'>4 <bf ef bf'>8 <bf ef bf'> ~ <bf ef bf'> <bf ef af> <bf c? g'>4 |
  <g, ef' g>4. <af ef' cf'>8\arpeggio ~ <af ef' cf'> <ef bf' ef> <e c'? e>4 |
  
  \time 5/4
  <af c f>4
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 g,, c f s16 g c f
  \change Staff = "right"
  s16 g c f s16 g c f |
  <f c' f>4
  \clef bass
  \override Stem #'direction = #DOWN
  af,16 s8 s16 af'16 s8 s16 
  \change Staff = "right"
  af'16 s8 s16 af'16 s8 s16  |
  
  \revert Stem #'direction
  \time 2/2
  <gf,? bf gf'?>4 <gf bf gf'>8 <gf bf gf'> ~ <gf bf gf'> <f bf f'> <ef gf bf ef>4 |
  \revert Stem #'direction
  \change Staff = "left"
  <gf,,,,? gf'?>4
  \clef treble
  <df'' df'>8 <bf' gf' bf>8 ~ <bf gf' bf> <df bf' df> <ef bf' df>4 |  
  <f af f'>4 <f af f'>8 <f af f'> ~ <f af f'> <ef af ef'> <df f df'>4 |
  <df af' df>4 <c af' c>8 <df af' df> ~ <df af' df> <c af' c> <bf f' bf>4 |
  
  <ef gf ef'>4 <ef gf ef'>8 <ef gf ef'> ~ <ef gf ef'> <df gf df'> <cf af' cf>4 |
  <cf cf'>8 <bf bf'> <gf gf'> \clef bass <ef ef'> <df df'> <bf bf'> <af af'>4 |
  
  <df ff df'>4 <df ff df'>8 <df ff df'> ~ <df ff df'> <cf ff cf'> <bf ff' bf>4 |
  <g g'>8 <bf bf'> <df df'> <ff ff'> <df df'> <ff ff'> <g g'>4 |
  
  \time 5/4
  
  <af ef' af>4
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 cf,, ef af s16 cf 
  \change Staff = "right"
  ef af s16 cf ef af 
  \ottava #'1
  s16 cf ef af |
  
  \clef bass
  <af,, af'>4
  \override Stem #'direction = #DOWN
  bf'16 s8 s16 bf'16 s8 s16 
  \change Staff = "right"
  bf'16 s8 s16 bf'16 s8 s16  |

  \revert Stem #'direction
  <bf, ef bf'>4
  \ottava #'0
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 bf,,, ef bf' s16 bf
  \change Staff = "right"
  ef bf' s16 bf ef bf'
  \ottava #'1
  s16 bf ef bf' |
  
  \change Staff = "left"
  \revert Stem #'direction
  <g,,,, g'>4
  \override Stem #'direction = #DOWN
  af'16 s8 s16 af'16 s8 s16 
  \change Staff = "right"
  af'16 s8 s16 af'16 s8 s16 |
  
  \revert Stem #'direction
  <cf, ef cf'>4
  \ottava #'0
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 f,,,, cf' ef s16 f cf'
  \change Staff = "right"
  ef s16 f cf' ef
  \ottava #'1
  s16 f cf' ef |
  
  \change Staff = "left"
  \revert Stem #'direction
  <gf,,,,? gf'?>4
  \override Stem #'direction = #DOWN
  gf'16 s8 s16 gf'16 s8 s16 
  \change Staff = "right"
  gf'16 s8 s16 gf'16 s8 s16 |
  
  \revert Stem #'direction
  <af, df af'>4
  \ottava #'0
  \change Staff = "left"
  \override Stem #'direction = #UP
  s16 af,,, df af' s16 af 
  \change Staff = "right"
  df af' s16 af df af'
  \ottava #'1
  s16 af df af' |
  
  \change Staff = "left"
  \revert Stem #'direction
  <ff,,,, ff'>4
  \override Stem #'direction = #DOWN
  gf'16 s8 s16 gf'16 s8 s16 
  \change Staff = "right"
  gf'16 s8 s16 gf'16 s8 s16 |
  
  \time 2/2
  
  \revert Stem #'direction
  <bf, d f bf>4 \ottava #'0 r r2 |
  \change Staff = "left"
  \revert Stem #'direction
  <<
    { r8 <f,,,? bf> <d d'> <f bf> <d d'> <f bf> <d d'> <f bf> }
    \\
    { <bf,, bf'>1 }
  >> |
  
  <af cf d af'>4. <gf bf d gf> <f cf' ef f>4 |
  <d' d'>8 <f bf> <d d'> <f bf> <d d'> <f bf> <d d'> <f bf> |
  
  \key b \major <ds fs as ds>1 ~ |
  \key b \major <b,, b'>8 fs'' b fs' b fs b, fs |
  
  <ds fs as ds>8 <cs cs'>4 <e e'> <ds ds'> <b b'>8 ~ |
  \flowingFifths |
  
  <b b'>1 ~ |
  \transpose b gs \flowingFifths |
  
  <b b'>8 <as as'>4 <cs cs'> <b b'> <b b'>8 ~ |
  \transpose b gs \flowingFifths |
  
  <b b'>1 |
  \transpose b fs \flowingFifths |
  
  \grace { cs16[ b] } <as as'>2 <gs gs'>4. <fs fs'>8 |
  \transpose b fs \flowingFifths |
  
  <gs cs gs'>1 ~ |
  \flowingOctaves |
  
  <gs cs gs'>2 <fs cs' ~ fs>2 |
  \flowingOctaves |
  
  <es cs' es>1 ~ |
  \transpose b as \flowingFifths |
  
  <es cs' es>8 <ds fs ds'>4 <fs as fs'> <es as es'> <es as es'>8 ~ |
  \transpose b as \flowingFifths |
  
  <es as es'>1 ~ |
  \transpose b gs \flowingFifths |
  
  <es as es'>8 <ds fs ds'>4 <fs as fs'> <es as es'> <es as es'>8 ~ |
  \transpose b gs \flowingFifths |
  
  <es as es'>2 \grace { fs16[ es] } <ds ds'>2 |
  \transpose b fs \flowingFifths |
  
  <cs cs'> \grace { ds16[ cs] } <bs bs'>2 |
  \transpose b fs \flowingFifths |
  
  <as as'>4. <bs bs'> <css css'>4 ~ |
  as,8 es' as as es' as as, gs' |
  
  <css css'>8 <ds ds'>4. <es es'>4 <ds ds'> ~ |
  as,8 fs' as, es' ds( css) fs( es) |
  
  <ds ds'>1 ~ |
  \flowingFifths |
  
  <ds ds'>8 <cs e? cs'>4 <e gs e'?> <ds fs ds'> <ds fs ds'>8 ~ |
  \flowingFifths |
  
  <ds fs ds'>1 ~ |
  \transpose b gs \flowingFifths |
  
  <ds ds'>8 <cs e cs'>4 <e gs e'> <ds fs ds'> <ds fs ds'>8 ~ |
  \transpose b gs \flowingFifths |
  
  <ds fs ds'>2 <cs fs cs'> |
  \transpose b fs \flowingFifths |
  
  <b cs b'>2 <as cs as'> |
  \transpose b fs \flowingFifths |
  
  <gs cs gs'>1 ~ |
  e,,8 cs' e gs e' gs, e cs |
  
  <gs cs gs'>2 <fs cs' ~ fs> |
  e,8 cs' e gs e' gs, e cs ~ |
  
  <es gs cs es>1\fermata |
  <cs, cs'>1\fermata \bar "|."
  
}

\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 }
  >>
  \layout { }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 72 2)
    }
  }
}