\version "2.18.0"
\language "english"

\header {
  title = "Before the Tempest"
  composer = "Tommy Montgomery"
  copyright = "(c) 2014 Tommy Montgomery"
}

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

firstThemeR = \relative c'' {
  \tempo "Deliberately" 4. = 100
  d2.   ~ d8  bf( c  | d2.)  ~ d8  c(  bf |
  c2.)  ~ c8  a(  bf | c2.)  ~ c8  bf( af |
  bf2.) ~ bf8 af( g  | af2.) ~ af8 g(  f  |
  g2.)  ~ g8  f(  e  | d2.)  \times 6/8 { d16 e f g a bf c d ~ } |
  
  <d d'>2.    ~ q8 <bf bf'>( <c c'>   | <d d'>2.)   ~ q8 <c c'>(   <bf bf'> |
  <c c'>2.)   ~ q8 <a a'>(   <bf bf'> | <c c'>2.)   ~ q8 <bf bf'>( <af af'> |
  <bf bf'>2.) ~ q8 <af af'>( <g g'>   | <af af'>2.) ~ q8 <g g'>(   <f f'>   | 
  <g g'>2.)   ~ q8 <f f'>(   <e e'>   | <d d'>2.)   ~ q8 d         f        |
  
  \time 3/8 \override Stem #'direction = #UP a d f \revert Stem #'direction |
}

firstThemeL = \relative c, {
  r8 bf  f'  d'  bf f'  d'4.  | r8 g,,, d'  bf' g  d'  bf'4. |
  r8 a,, f'  c'  a  f'  c'4.  | r8 af,, ef' c'  af ef' c'4.  |
  r8 g,, ef' bf' g  ef' bf'4. | r8 f,,  c'  af' f  c'  af'4. |
  r8 g,, d'  b'  g  d'  b'4.  | r8 d,,  a'  f'  g  e   d4.   |
  
  r8 bf, f'  d'  bf f'  d'4.  | r8 g,,, d'  bf' g  d'  bf'4.     |
  r8 a,, f'  c'  a  f'  c'4.  | r8 af,, ef' c'  af ef' c'4.      |
  r8 g,, ef' bf' g  ef' bf'4. | r8 f,,  c'  af' f  c'  af'4.     |
  r8 g,, d'  b'  g  d'  b'4.  | r8 d,,  a'  e'  f  e   d     f a |
  
  \time 3/8 \change Staff = "right" \override Stem #'direction = #DOWN  d f a 
  \revert Stem #'direction \change Staff = "left" |
}

secondThemeR = \relative c''' {
  \time 9/8
  <bf, g'>2. ~ q8 <g ef'>( <a f'> | <bf g'>2.) ~ q8 <a f'>( <g e'?> | 
  <a f'>2.) ~ q8 <f d'>( <g e'> | <a f'>2.) ~ q8 <g e'>( <f d'> |
  <g e'>2.) ~ q8 <e c'>( <f d'> | <g e'>2.) ~ q8 <f d'>( <e cs'> |
  <d a' d>2.) ~ q4. ~ | q2. r8 a' d |
  \time 3/8 fs a d |
}

secondThemeL = \relative c, {
  \time 9/8
  r8 ef bf' g' ef bf' g'4. | r8 bf,,, e? cs' bf e? cs'4. |
  r8 d,, a' f' d a' f'4. | r8 bf,,, f' d' bf f' d'4. |
  r8 c,, g' e' c g' e'4. | r8 cs,, a' e' cs a' e'4. |
  r8 d,, a' f' d a' f'4. | r8 c,, a' fs' c a' fs'4. ~ |
  \time 3/8 fs4. |
}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } {
      \clef treble
      \global
      
      \firstThemeR
      \secondThemeR
    }
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { 
      \clef bass
      \global
      
      \firstThemeL
      \secondThemeL
    }
  >>
  \layout { }
  \midi {}
}