\version "2.14.2"
\language "english"

\header {
  title = "Life on the Sun"
  composer = "Tommy Montgomery"
  copyright = "(c) 2002 Tommy Montgomery"
}

defaults = {
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \key e \major
  \set Score.connectArpeggios = ##t
}

lhNinths = {
  \relative c, {
    a'8 e' a b a e a, e' a b a e
  }
}

lhInFour = {
  \relative c, {
    a'8 e' a b c e c16 b a e
  }
}

lhDMinor = {
  \relative c, {
    d8 a' d e d a d, a' d e f g 
  }
}

rhDMinorRun = {
  \relative c' {
    f16 e d e f g f e f g a bf a g a cs d e d gs, g gs e' gs,
  }
}

aMinorScale = \relative c' { a b c d e f g }

\parallelMusic #'(right left) {
  \time 4/4
  \tempo 4 = 100
  
  \defaults <ds fs a>4.\arpeggio b'8 a4 gs |
  \defaults <e gs b>4.\arpeggio b8 <cs gs'~>4 <ds gs> |
  <b, ds gs>4. as8( b ds e fs) |
  gs,8 ds' gs as, b4 b, |
  as4 ~ <fs as> ~ <b, fs' as> ~ <as b fs' as> |
  fs'8 cs' fs cs gs' cs, \parenthesize as' cs, |
  << { e'2. e'4 } \\ { <a,,? b>4 a cs b'8 a ~ } >> |
  a?8 e'4 e,8 a,4 a' |
  << { gs'4 r16 b,, ds fs a4 b } \\ { <a e'> s4 <e fs>8[ b] cs a } >> |
  gs8 e' gs4 e,16 b'8 e16 fs, cs'8 fs16 |
  <ds gs>4 b16 ds gs as b ds gs as \ottava #'1 b ds fs gs |
  gs,16 ds' gs as r4 r2 |
  as4 \ottava #'0 r16 as,,, cs fs << { as4 gs } \\ { cs,8 as b4 } >> |
  fs,8 cs' fs4 fs <e, e'> |
  \afterGrace <a? b e>1\fermata { 
    e'16[ \change Staff = "left" b a f a b \change Staff = "right" e f a b] 
    e[ b a f a b e f a b] 
    e[ b a f a b \ottava #'1 e f a b] e4 
  } |
  <e e'>1\fermata |
  
  \tempo "Freely"
  \key a \minor \ottava #'0 <g,,,, a c e>4 <g' a c e> <g' a c e> \ottava #'1 <g' a c e> |
  \key a \minor <a, a'>1 |
  \ottava #'0 <a,,, c e fs>4 <a' c e fs> <a' c e fs> \ottava #'1 <a' c e fs> |
  <a a'>1 |
  \ottava #'0 <f,,,? a c d>4 <f'? a c d> <f'? a c d> \ottava #'1 <f' a c d> |
  <a a'>1 |
  \ottava #'0 \afterGrace <a,,, b e>1 {
    e'16[ \change Staff = "left" b a e a b \change Staff = "right" e a b] 
    e[ b a e a b e a b] 
    e[ b a e a b \ottava #'1 e a b] e4
  } |
  <e e'>1 |
  
  \tempo "Slower" 4 = 70
  \ottava #'0 <b,, c>8 e, <b' c> e, <a c> e <a c> e |
  a'4 ~ a16 e'8 g16 fs4 ~ fs8. fs16 |
  <g d'>8 f? <g d'> f <a d> f <a d> e |
  f?8. a16 ~ a c b d e,8. a16 ~ a d8 d,16 |
  <b' c>8 e, <b' c> e, <a c> e <a c> e |
  <a, a'>4 ~ <a a'>16 <e' e'> <g g'>8 <fs fs'>2 |
  <g d'>8 f? <g d'> f <b f'> g <b e> g |
  <f? f'?>2 <g, g'>4 <e e'> |
  
  \set Score.tempoHideNote = ##t
  \tempo "A littler faster" 4 = 84
  
  <a c e a>4. \ottava #'1 <e' a c e>4 <a c e a> <b d g b>8 |
  <a a'>4. <e e'>4 <a a'> <b b'>8 |
  \afterGrace <c f a c>1 { \ottava #'0 c,16[ a f a c f a c \ottava #'1 f a c] f2 } |
  <f f'>2. <f f'>4 |
  \ottava #'0 r4 <d,,, g b>8 <d g b>4 <d g a> <d g a>16( b') |
  <g g'>1 ~ |
  <d, g c>4. <d g b>8 ~ <d g b> <d g a>8 ~ <d g a>4 |
  <g g'>1 |
  <a d f>4 <f a d> <a b e> <gs b e> |
  <d d'>2. <e e'>4 |
  
  \time 6/4
  
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"8" #1
      " = "
      \smaller \general-align #Y #DOWN \note #"16" #1
      )
    }
  } 4 = 166
  
  r1. |
  \lhNinths |
  r1. |
  \transpose a f \lhNinths |
  r1. |
  \transpose a g \lhNinths |
  r1. |
  \lhDMinor |
  
  \time 4/4
  r1 |
  \lhInFour |
  r1 |
  \lhInFour |
  
  r1 |
  \modalTranspose a f \aMinorScale \lhInFour |
  r1 |
  \modalTranspose a f \aMinorScale \lhInFour |
  
  r1 |
  \modalTranspose a g \aMinorScale \lhInFour |
  r1 |
  \modalTranspose a g \aMinorScale \lhInFour |
  
  \time 6/4
  r2 r8 a8 d e f a d e |
  d'8 a' d e f r8 r2. |
  
  \grace { b16[ c b] } a4. e'8 e4 d8 d4 f e8 |
  \lhNinths |
  d2 ~ d8 c ~ c2 ~ c8 c16 d |
  \transpose a f \lhNinths |
  <c e>4 <b d>8 <b d>4 e16 f <e g>4 <c f>8 <c f>4 <d f>8 |
  \transpose a g \lhNinths |
  <d f>4. <e, g> <a c d> g |
  \lhDMinor |
  
  <a a'>2 ~ <a a'>8 <e' e'> ~ <e e'> <d d'>4 <f f'>4. |
  \lhNinths |
  <e e'>2 ~ <e e'>8 <c c'> ~ <c c'>2. |
  \transpose a f \lhNinths |
  <d d'>2. <b b'> |
  \transpose a g \lhNinths |
  <a a'>1. |
  \lhDMinor |
  
  \time 4/4
  
  <e a c>8 <e a c> <e g b> <e a c> ~ <e a c> <e g b> <f a f'> <g b g'> ~ |
  <a, e' a> <a e' a> <g e' g> <a e' a> ~ <a e' a> <g e' g> <f f'> <e e'> ~ |
  <g b g'>8 <a f' a>4. f'16 d a d f a d f |
  <e e'>8 <d d'>8 ~ <d d'>2. |
  
  <e,, a c>8 <e a c> <e g b> <e a c> ~ <e a c> <e g b> <e g e'> <f a f'> ~ |
  <a' e' a> <a e' a> <g e' g> <a e' a> ~ <a e' a> <g e' g> <e e'> <d d'> ~ |
  <f a f'>8 <g e' g>4. e'16 cs g cs e g cs e |
  <d d'>8 <cs cs'>8 ~ <cs cs'>2. |
  
  <e,, a c>8 <e a c> <e g b> <e a c> ~ <e a c> <e g b> <f a f'> <g b g'> ~ |
  <a' e' a> <a e' a> <g e' g> <a e' a> ~ <a e' a> <g e' g> <f f'> <e e'> ~ |
  <g b g'>8 <a f' a>4. f'16 d a d f a d f |
  <e e'>8 <d d'>8 ~ <d d'>2. |
  
  <e,, a c>8 <e a c> <e g b> <e a c> ~ <e a c> <e g b> <e g e'> <f a f'> ~ |
  <a' e' a> <a e' a> <g e' g> <a e' a> ~ <a e' a> <g e' g> <e e'> <d d'> ~ |
  <f a f'>8 <g e' g>4. g'16 e cs bf e cs bf g |
  <d d'>8 <cs cs'>8 ~ <cs cs'>2. ~ |
  \time 2/4
  cs16 bf g e bf' g e cs |
  <cs cs'>2 |
  
  \time 9/8
  %\set Score.tempoHideNote = ##t
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"8" #1
      " = "
      \smaller \general-align #Y #DOWN \note #"8" #1
      )
    }
  }
  
  \key d \minor r16 d a d f d g d g d g d f d f d f d |
  \key d \minor <d, d'>2. ~ <d d'>4. |
  e16 cs a cs e cs f cs f cs f cs e cs e cs e cs |
  <a' a'>2. <g g'>4. |
  f16 d a d f d g d g d g d f d f d f d |
  <d d'>2. <bf' bf'>4. |
  e16 cs a cs e cs f cs f cs f cs e cs e cs e cs |
  <a a'>2. <a a'>4. |
  f16 d a d f d g d g d g d f d f d f d |
  <d, d'>4 <f f'>8 <a a'>4 <g g'>8 <bf bf'>4 <f f'>8 |
  e16 cs a cs e cs f cs f cs f cs e cs e cs e cs |
  <a a'>4 <g g'>8 <bf bf'>4  <g g'>8 <f f'>4 <e e'>8 |
  f16 d a d f d g d g d g d f d f d f d |
  <d d'>4 <f f'>8 <a a'>4 <g g'>8 <bf bf'>4 <c c'>8 |
  e16 cs a cs e cs f cs f cs f cs e cs e cs e cs |
  <d d'>4. <bf bf'> <f f'>4 <e e'>8 |
  
  \time 12/8
  
  \rhDMinorRun |
  <d d'>4. <bf' bf'> <a a'> <gs gs'> |
  \transpose d d' \rhDMinorRun |
  <d' d'>4. <bf' bf'> <a a'> <gs gs'> |
  
  d''16 a g? a bf c cs bf a g f e f e d e f g a e d cs bf a |
  <g? d' g?>4. <a e' a> <bf f' bf> <a a'> |
  g16 a bf c? d ef d c d ef f g a g a bf a g fs ef d c bf a |
  <g d' g>4. <ef bf' ef> <d bf' d> <d a' d> |
  
  bf16 g d g c bf a f? c f d' c bf f d c d f a g f ef d c |
  <g, g'>4. <f' f'> <bf, bf'> <f f'> |
  bf16 g a bf c d c f, bf c f bf c f, bf c f bf b f d af' g f |
  <ef ef'>4. <bf' bf'> <af af'> <g g'> |
  
  \key c \minor \transpose d c' \rhDMinorRun |
  \key c \minor <c, c'>4. <af'' af'> <g g'> <fs fs'> |
  \ottava #'1 \transpose d c'' \rhDMinorRun |
  <c' c'>4. <af' af'> <g g'> <fs fs'> |
  c''16 g c, d ef f g c, \ottava #'0 f, g af bf c g c, d ef f g c, f, g af bf |
  <c,, c'>4. c'16 g' c d ef g c4. c,,16 g' c d ef g |
  c g c, d ef f g c, \override Stem #'direction = #UP \change Staff = "left" f, g af bf c g c, d ef f g c, f, g af bf |
  c4. r4. \override Stem #'direction = #DOWN <c,,, c'> <g' g'> |
  
  \time 4/4
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"4" #1
      " = "
      \smaller \general-align #Y #DOWN \note #"4." #1
      )
    }
  } 4 = 110
  
  <g c>4 <ef' g d'> <ef g ef'> <ef g c> ~ |
  <c, c'>1 ~ |
  <ef g c>2 s8 <f f'> <ef ef'> <d d'> |
  <c c'>2 r8 <f f'> <ef ef'> <d d'> |
  
  << { \change Staff= "right" r4 <c' ef g>8 d <c' ef g>[ d] <c' ef g> d } \\ 
     { \change Staff = "left" <c,,, c'>1 } 
  >> |
  << { s4 <c'' ef g>8 d \override Stem #'direction = #DOWN \change Staff = "right" <c' ef g>[ d] <c' ef g> d } \\
     {  \change Staff = "left" <c,,,, c'>1 } 
  >> |
  
  s2 s8 <g' g'> <f f'> <ef ef'> |
  r2 r8 <g' g'> <f f'> <ef ef'> |
  << { \change Staff= "right" r4 <af d f>8 c <af' d f>[ c] <af' d f> c } \\ 
     { \change Staff = "left" <d,,, d'>1 } 
  >> |
  << { s4 <d' d'> <d' d'> \override Stem #'direction = #DOWN \change Staff = "right" <d' d'> } \\
     {  \change Staff = "left" <d,,, d'>1 } 
  >> |
  
  \change Staff = "right" r2 r8 <c' c'> <bf bf'> <af af'> |
  r2 r8 <c' c'> <bf bf'> <af af'> |
  << { \change Staff= "right" r4 <af d f>8 b <af' d f>[ b] <af' d f> b } \\ 
     { <g,, g'>1 } 
  >> |
  << { s4 <g' b d>8 f' <g b d>[ \override Stem #'direction = #DOWN \change Staff = "right" f']  <g b d> f' } \\
     {  \change Staff = "left" <g,,,, g'>1 } 
  >> |
  
  r2 r8 <ef' ef'> <d d'> <c c'> |
  r2 r8 <ef' ef'> <d d'> <c c'> |
  << { r4 <d d'>16[ <f f'> <af af'> <b b'> <d d'> <f f'> <af af'> <b b'> 
       \ottava #'1 <d d'> <f f'> <af af'> <b b'>\fermata] } \\
     { <b,,, b'>1\fermata }
  >> |
  << { s4 r32 \override Stem #'direction = #DOWN <b' b'>16[ <d d'> <f f'> 
       \change Staff = "right" <af af'> <b b'> <d d'> <f f'> <af af'> <b b'> <d d'> <f f'> <af af'>32\fermata] } \\
     { <b,,,, b'>1\fermata }
  >> |
  
  \ottava #'0 \change Staff = "left" \afterGrace s1 { c,,16[ d ef f g af bf c d ef f g af bf c \change Staff = "right" d ef f g af bf c d ef f g af bf c d ef f g af bf c] } |
  <c, c'>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 88 4)
    }
  }
}