\version "2.0.0"

\header {
 title = "Sonata No. 14 ``Moonlight''"
 subtitle = "2nd Movement"
 composer = "L. van Beethoven"
 opus = "Op. 27, No. 2"
 piece = "Allegretto"

 mutopiatitle = "Sonata No. 14 \"Moonlight\" (2nd Movement: Allegretto)"
 mutopiacomposer = "BeethovenLv"
 mutopiainstrument = "Piano"
 date = "1802"
 source = "Berners, 1908 (edited by A. Winterberger)"
 
 % I haven't typeset all of Winterberger's additions, by a long way - no
 % fingering is included, and much of the phrasing, dynamics and performance
 % directions have also been omitted.
 
 style = "Classical"
 copyright = "Public Domain"

 filename = "moonlight2.ly"
 maintainer = "Chris Sawer"
 maintainerEmail = "chris@sawer.uklinux.net"
 maintainerWeb = "http://www.sawer.uklinux.net/"
 lastupdated = "2004/Feb/03"

  tagline = "\\parbox{\\hsize}{\\thefooter\\quad\\small\\noindent\\hspace{\\stretch{1}} This music is part of the Mutopia project: \\hspace{\\stretch{1}} \\texttt{http://www.MutopiaProject.org/}\\\\ \\makebox[\\textwidth][c]{It has been typeset and placed in the public domain by " + \maintainer + ".} \\makebox[\\textwidth][c]{Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}}"

 footer = "Mutopia-2004/02/03-280"
}

allUp = { \stemUp \slurUp \tieUp }
allDown = { \stemDown \slurDown \tieDown }
allBoth = { \stemBoth \slurBoth \tieBoth }

top = \notes \relative c' {
 \property Voice . TextScript \override #'padding = #2

 \key des \major
 \time 3/4
 \clef treble
 \partial 4
 
 \stemBoth
 <des' as>4-\p-( |
 <c as>2 <bes g>4 |		%1
 <es as,>-.-) r <des f,>-. |
 <c as>-. r <bes g>-. |
 as-. r <ges'! des>-( |
 <f des>2 <es c>4 |		%5
 <as des,>-.-) r <ges bes,>-. |
 <f des>-. r <es c>-. |
 des-. r <des des,> ~ |
 <des des,>-( <c c,>-) <bes bes,> ~ |	%9
 << {
  \context Voice = main {
   \allUp
   bes-( es-) des ~ |
   des-( c-) bes ~ |
   \allBoth
  }
 } \\ {
  es,-. r f-. |
  as-. r g-.
 } >>
 bes-( as-) <ges'! ges,> ~ |
 <ges ges,>-( <f f,>-) <es es,> ~ |	%13
 << {
  \context Voice = main {
   \allUp
   es-( as-) ges ~ |
   ges-( f-) es ~ |
   \allBoth
  }
 } \\ {
  as,-. s bes-. |
  des-. s c-. |
 } >>
 es-( des-)
 
 \repeat volta 2 {
  <des f,> |
  <des f,>2 <des f,>4 |		%17
  << {
   des-( c-) ces |
   ces2 ces4 |
   ces-( bes-) bes-( |
   c!2 des4 |			%21 (1)
   es2-) ges,4 ~ |
   ges f bes8 ges |
  } \\ {
   es2 es4 |
   es2 es4 |
   des2 des4 |
   ges2_\markup {\italic "cresc."} f4 |	%21 (2)
   ges2-\sf-\> es4 ~ |
   es-\p-\! des bes |
  } >>
  <f' des>4-( <es c>-) <des' des,>-( |
  <c c,>2 <bes bes,>4 |		%25
  << {
  \context Voice = main {
    \allUp
    <es es,>-.-) r des ~ |
    des-( c-) bes ~ |
    \allBoth
   }
  } \\ {
   s2 f4-. |
   as-. r g-. |
  } >>
  bes-( as-) <ges'! ges,!>-( |
  <f f,>2 <es es,>4 |		%29
  <as as,>-.-) r <ges ges,> ~ |
  <ges ges,>-( <f f,>-) <es es,>-. |
  \property Voice . TextScript \override #'padding = #3
  <as as,>-. r_\markup {\italic "cresc."} <ges ges,> ~ |
  \property Voice . TextScript \revert #'padding
  <ges ges,>-( <f f,>-) <bes bes,>-\sf ~ |	%33
  <bes bes,>-( <as as,>-) r |
  << { c,,2-( es8 des-) } \\ { ges,!2.-\p } >> |
  <des' f,>4 r
 }
 
 \repeat volta 2 {
  <f f,>^\markup {\large \bold "Trio."}-\sf ~ |
  <f f,>2 <ges ges,>4-\sf ~ |		%37
  <ges ges,>2 <es' es,>4-\sf ~ |
  <es es,>-( <c c,>-) <as as,>-. |
  <des des,>-( <f f,>-) <f, f,>-\sf ~ |
  <f f,>2 <ges ges,>4-\sf ~ |		%41
  <ges ges,>2 <ges' ges,>4-\sf ~ |
  <ges ges,>-( <bes bes,>-) <c, c,>-. |
  <es es,>-( <des des,>-)
 }
 
 \repeat volta 2 {
  <f f,>-\pp ~ |
  <f f,>2 <bes, bes,>4 ~ |		%45
  <bes bes,>2 <es es,>4 ~ |
  <es es,>2 <as, as,>4 ~ |
  <as as,>2 <des des,>4 ~ |
  <des des,>2-\fp <ges, ges,>4 ~ |	%49
  <ges ges,>2 <f f,>4 ~ |
  <f f,> \slurDown <as as,>-( <ces ces,>-) ~ |
  <ces ces,>-( <bes bes,>-) \slurBoth <des des,> ~ |
  <des des,>2 \clef bass <ges, ges,>4 ~ |	%53
  <ges ges,>2 <f f,>4 ~ |
  <f f,>2 <e e,>4 ~ |
  <e e,>2 <f f,>4 ~ |
  <f f,>2_\markup {\italic "cresc."} <ges ges,>4 ~ |	%57
  <ges ges,>2 <f f,>4 ~ |
  <f f,>-\p-( <ges ges,>-) <c, c,>-. |
  <des des,>-. r s
 }
}

bottom = \notes \relative c {
 \property Voice . TextScript \override #'padding = #2
 \key des \major
 \time 3/4
 \clef bass
 \partial 4
 
 \stemBoth
 f'4-( |
 es2 des4 |			%1
 c-.-) r <bes des,>-. |
 <es es,>-. r <des es,>-. |
 <c as>-. r
            \clef treble
            bes'-( |
 as2 ges4 |			%5
 f-.-) r <es ges,>-. |
 <as as,>-. r <ges as,>-. |
 <f des>-. r
             \clef bass
             <as, f>-( |
 <as es>2 <g des>4 |		%9
 <c c,>-.-) r <bes des,>-. |
 <es es,>-. r <des es,>-. |
 <c as>-. r <des bes>-( |
 <des as>2 <c ges>4 |		%13
 <f f,>-.-) r <es ges,>-. |
 <as as,>-. r <ges as,>-. |
 <f des>-. r
 
 \repeat volta 2 {
  des-( |
  bes2 as4 |			%17
  g as-) as |
  as2-( ges!4 |
  f ges-) ges-( |
  <as es>2 <as des,>4 |		%21
  <as c,>2.-) |
  << {
   as2-( ges8 es-) |
   as2
  } \\ {
   des,2 ges,4 |
   as2
  } >>
      <as' f>4-( |
  <as es>2 <g des>4 |		%25
  <c c,>-.-) r <bes des,>-. |
  <es es,>-. r <des es,>-. |
  <c as>-. r <des bes>-( |
  <des as>2 <c ges>4 |		%29
  <des f,>-.-) r <des bes>-( |
  <des as>2 <c ges>4 |
  <des f,>-.-) r <des bes> |
  <des as>2 <e des g,>4-( |	%33
  <f des as>-) r r |
  \slurDown
  <as,, as,>2.-( |
  <as des,>4-) r
  \slurBoth
 }
 
 \repeat volta 2 {
  r |
  << {
   as2. ~ |		%37 (1)
   as ~ |
   as ~ |
   as |
   as ~ |		%41 (1)
   as ~ |
   as2 as4 ~ |
   as2
  } \\ {
   des,2.-\fp |		%37 (2)
   es |
   ges |
   f |
   des-\fp |		%41 (2)
   es |
   as,2 as'4
   des,2
  } >>
 }
 
 \repeat volta 2 {
  r4 |
  <as'' d,>2.-\pp |	%45
  <g des> |
  <ges! c,> |
  <f ces> |
  << {
   des ~ |		%49 (1)
   des ~ |
   des ~ |
   des |
   des ~ |		%53 (1)
   des ~ |
   des ~ |
   des |
   des ~ |		%57 (1)
   des |
   s2. |
   s2.
  } \\ {
   bes2. |		%49 (2)
   as |
   des,4-( f as-) |
   ges2. |
   bes-\fp |	%53 (2)
   as |
   g |
   as |
   bes |		%57 (2)
   as ~ |
   \allBoth
   \property Voice . TextScript \override #'padding = #3
   <as as,>2 as4-.-\markup {\italic "Allegretto D. C."} |
   \property Voice . TextScript \revert #'padding
   des,-. r s
  } >>
 }
}

\score {
 \notes \context PianoStaff <<
  \context Staff = "up" <<
   \property Staff.midiInstrument = #"acoustic grand"
   \context Voice = main { \top }
  >>
  \context Staff = "down" <<
   \property Staff.midiInstrument = #"acoustic grand"
   \bottom
  >>
 >>

 \paper {}
 
 \midi {
  \tempo 4 = 228
  \translator{
   \VoiceContext
   \remove Dynamic_performer
  }
 }
}