\version "2.18.0"
\language "english"

\header {
  title = "Arise"
  composer = "Tommy Montgomery"
  copyright = "(c) 2004 Tommy Montgomery"
}

global = {
  \key cs \minor
  \time 4/4
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
}

dynamics = {
  s1\pp \repeat unfold 7 { s1 }
  s1\p
}

pedal = {
  %s2\sustainOn s\sustainOff
}

introR = \relative c {
  \tempo "Very slowly" 4 = 52
  
  \repeat unfold 2 { r4 <e gs e'> r <ds fss ds'> }
  \repeat unfold 2 { r4 <gs b gs'> r <fss as fss'> }
  r4 <e gs e'> r <ds fss ds'> |
  r <cs fs cs'> r <cs es cs'> ~ |
  q1 | r1 \bar "||" |
}

introL = \relative c,, {
  \repeat unfold 14 { <cs cs'>2 }
  <cs cs'>1 |
}

firstThemeR = \relative c, {
  \tempo 4 = 104
  r8 e gs cs e gs cs <e, ds'> ~ |
  q e, gs cs e gs cs <fs, fs'> ~ |
  q e, gs cs e gs cs <gs es'> ~ |
  q e,? gs cs e gs cs <e, b'> ~ |
  q a4 gs fs es8 ~ |
  
  es e,? gs cs e gs cs <e, ds'> ~ |
  q e, gs cs e gs cs <fs, fs'> ~ |
  q e, gs cs e gs cs <gs es'> ~ |
}

firstThemeL = \relative c,, {
  \repeat unfold 4 { cs2 cs' }
  a8 e' a gs fs e? ds cs |
  \repeat unfold 4 { cs,2 cs' }
}



\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } {
      \clef bass
      \global
      
      \introR
      \firstThemeR
    }
    \new Dynamics = "Dynamics" \dynamics
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { 
      \clef bass
      \global
      
      \introL
      \firstThemeL
    }
    \new Dynamics = "pedal" \pedal
  >>
  \layout {
    \context {
      
    }
  }
  \midi {}
}
%}