music/piano-sonata.ly

\version "2.18.2"
\language "english"

\header {
  title = "Dat Piano Piece"
  composer = "Tommy Montgomery"
  copyright = "(c) 2015 Tommy Montgomery"
}

global = {
  \key b \minor
  \time 6/8
  \set Staff.printKeyCancellation = ##f
}

\parallelMusic #'(right left) {
  \tempo "Moderately" 4. = 60

  % intro
  \global <fs b d fs>4.( ~ q8. <fs, b e fs> ~ |
  \global r4. <b b'>4.|

  <gs b e gs>2.) |
  <e e'>4. e, |

  <fs' b d fs>4.( ~ q8. <g,? d' e g?> ~ |
  r4. <g? g'?> |

  <fs cs' e fs>2.) |
  <a a'>4. fs' |

  <fs' b d fs>4.( ~ q8. <fs, b e fs> ~ |
  r4. <b, b'>4.|

  <gs b e gs>2.) |
  <e e'>4 b8 e,4. |

  <fs' b d fs>4.( ~ q8. <es, b' cs es> ~ |
  r4. <cs' cs'> |

  <e! b' cs e!>2.) |
  fs2. |

  % theme 1
  b'8 fs'( d) b fs'( d) |
  <b, b'>2. ~ |

  b8 fs'( d) b fs'( d) |
  q2. |

  d'4.(^Understated b4 cs8 |
  \clef treble b''8-. fs'-. d-. b-. fs'-. d-. |

  d4.) d4( e8 |
  b8-. fs'-. d-. b-. fs'-. d-. |

  fs2. |
  as8-. fs'-. d-. as-. fs'-. d-. |

  g4. fs4 e8 |
  as8-. fs'-. d-. as-. fs'-. cs-. |

  d4.) b4( cs8 |
  b8-. fs'-. d-. b-. fs'-. d-. |

  d4.) d4( e8 |
  as8-. fs'-. d-. as-. fs'-. cs-. |

  fs2. ~ |
  a!8-. fs'-. d-. a-. fs'-. d-. |

  fs4. e4 d8 |
  gs,8-. fs'-. d-. gs,-. fs'-. d-. |

  cs4.) a4( b8 |
  g,!8-. e'-. cs-. g-. e'-. cs-. |

  cs4.) a4( b8 |
  es,8-. cs'-. gs-. es-. cs'-. gs-. |

  cs2. ~ |
  \clef bass fs8-. e'-. cs-. e,( cs' fs,) |

  cs4.) as( |
  cs8( fs e) fs,( e' cs) |

  b4) r8 d,16( b cs d e fs |
  b,8( b' d fs4.) |

  g4.) cs4.( |
  cs8( g' e as e' cs |

  d4) r8 a16( fs g a b cs |
  d8 a fs d4 cs8)  |

  d16 b fs d b fs \clef bass  as g e g as cs |
  b,8 <fs' d'>4-> cs8 <g' cs>4-> |

  <fs, d'>4.) <d b'>4( <g cs>8 |
  b,8 d' fs, b, d' fs, |

  <fs d'>4. <b d>4 <g e'>8 |
  b,8 d' fs, b, d' fs, |

  <fs fs'>2. |
  as,8 d' fs, as, d' fs, |

  <g cs g'>4. ~ <fs cs' fs>4 <e as e'>8 |
  as,8 d' fs, as, cs' fs, |

  <fs d'>4.) <d b'>4( <g cs>8 |
  b,8 d' fs, b, d' fs, |

  <fs d'>4. <b d>4 <cs e>8 |
  as,8 d' fs, as, d' fs, |

  <a! fs'>2.) |
  d8 d' a! d, d' a |

 \set Staff.connectArpeggios = ##t
  << { g'4.(\arpeggio fs4 e8 } \\ { <a, cs>2.\arpeggio } >> |
  cs,8 e' a, cs, e' a, |

  << { d4.) d( } \\ { d,8 b' fs d b' fs } >> |
  b,8 b' fs b, b' fs |

  << { d'4. e } \\ { d,8 b' fs e cs' fs, } >> |
  b,8 b' fs cs cs' fs, |

  << { fs'2. ~ } \\ { fs,8 d' a fs8 d' a } >> |
  d8 d' a d, d' a |

  << { fs'2.)  } \\ { fs,8 d'8 a fs8 d' a } >> |
  d,8 d' a d, d' a |

  << { fs'4.( fs } \\ { fs,8 d'8 a fs d' a } >> |
  d,8 d' a d, d' a |

  << { fs'4. fs } \\ { fs,8 d' a fs ds' a } >> |
  d,8 d' a ds, ds' b |

  \clef treble << { g'2. ~  } \\ { g,8 e' b g e' b } >> |
  e,8 e' b e, e' b |

  << { g'2.) } \\ { g,8 e'8 b g e' b } >> |
  e,8 e' b e, e' b |

  << { g'4.( g } \\ { g,8 e' bf g e' bf } >> |
  e,8 e' c e, e' c |

  << { g'4. a } \\ { g,8 e' bf a f' c } >> |
  e,8 e' c f, f' c |

  << { a'2. ~ } \\ { a,8 fs'! c a fs' c } >> |
  fs,!8 fs'! d fs, fs' d |

  << { a'2.) } \\ { a,8 fs' c a fs' c } >> |
  fs,8 fs' d fs, fs' d |

  << { bf'2.( } \\ { bf,8 g' d bf g' d } >> |
  g,8 g' d g, g' d |

  << { g2. } \\ { g,8 ef' bf g ef' bf } >> |
  ef,8 ef' bf ef, ef' bf |

  \clef bass << { ef2. } \\ { ef,8 c' g ef c' g } >> |
  c,8 c' g c, c' g |

  << { d'4. c } \\ { d,8 b' g d a' fs } >> |
  b,8 b' g d c' a |

  << { b4) s8 c4( cs8 } \\ { g16 e fs g a b a4. } >> |
  << { g4( fs8 f4) s8 } \\ { s4. f16 d e f g a } >> |

  \clef treble << { d4) s8 g4( gf8 } \\ { d16 bf c d ef f ef4. } >> |
  << { bf4( a8 af4) s8 } \\ { bf4 s8 af16 f g af bf c } >> |

  << { f4) s8 } \\ { f16 df ef f fs gs } >> a16 fs cs \change Staff = "left" a fs cs |
  df4 <b, b'>8 <a a'>4. |

  \change Staff = "right" gs''16 d \change Staff = "left"
  a gs d a \override Stem #'direction = #UP b cs d fs b d |
  <gs gs'>4. \override Stem #'direction = #DOWN <fs fs'>4 <d d'>8 |


  \change Staff = "right" \revert Stem #'direction cs8. <cs fs gs cs>16 q8 <cs es gs cs>4. |
  \revert Stem #'direction <cs cs'>8. <cs' cs'>16 <fs fs'>8 <gs gs'>4. |

  fs''16 a cs, a fs a cs, a fs a cs, a |
  \clef treble d''''16 a fs e! d a fs e! \clef bass d a fs e! |

  <cs fs gs cs>8. <cs ds gs cs>16 q8 <cs es gs cs>4. |
  <cs,, cs'>8. <cs' cs'>16 <fs fs'>8 <gs gs'>4. |

}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
      \consists "Span_arpeggio_engraver"
    } \relative c' \right
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { \clef bass \relative c, \left }
  >>
  \layout { }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 60 2)
    }
  }
}