beginning of before the tempest

before-the-tempest.ly

@@ -0,0 +1,92 @@
+\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 {}
+}