\version "2.0.0"

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

 mutopiatitle = "Sonata No. 14 \"Moonlight\" (1st Movement: Adagio sostenuto)"
 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 = "moonlight1.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-276"
}

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

 \key e \major
 \time 2/2
 \clef treble
 \stemUp
 
 s1*4			%1
 s2 r4 gis'8.^\pp gis16 |	%5
 gis2. gis8. gis16 |
 gis2 a2 |
 gis2 fis4 b |
 e, r r2 |		%9
 r r4 g8. g16 |
 g2. g8. g16 |
 g2. fis4 |
 fis2 g4 e |		%13
 fis2 fis |
 b,4 r r b' |
 c2. ais4 |
 b2. b4 |		%17
 c2. ais4 |
 b2 b |
 b a |
 g fis |		%21
 cis cis4 cis |
 \translator Staff = "down"
 fis,
 \translator Staff = "up"
  r r cis''8. cis16 |
 cis2. cis8. cis16 |
 cis2 bis4 cis |	%25
 dis2. dis4 |
 e2 dis4 cis |
 s-\p gis a fis |
 s gis, a fis |		%29
 s cis'' e cis |
 \translator Staff = "down"
 s cis, e cis |
 \translator Staff = "up"
 s1*2 |			%33
 s1*3 |
 \stemDown
 s4 \clef bass s4 a8*2/3 dis,4*2/3 cis4 |	%37
 bis2 dis4 cis |
 bis2 d4 cis |
 bis2_\markup {\italic "decresc."} s2 |
 s1 |			%41
 \stemUp
 s4 \clef treble s s gis''8.^\pp gis16 |
 gis2. gis8. gis16 |
 gis2 a |
 gis fis4 b4 |		%45
 e, r r b'8. b16 |
 b2. b8. b16 |
 b2 bis4 cis |
 dis2 e |		%49
 d bis |
 cis2. cis4 |
 d2. bis4 |
 cis2. cis4 |		%53
 d2. bis4 |
 cis2 cis |
 b!2. b4 |
 a a gis gis |		%57
 fis2_\markup {\italic "cresc."} gis4 a |
 gis2-\p gis |
 cis,4 s s2 |
 s1 |			%61
 s1 |
 s2 \clef bass s4 bis4 |
 s8*2/3 \clef treble s4*2/3 s2. |
 s2 \clef bass s4 bis4 |		%65
 s1 |
 s2 r |
 r <cis gis e>-\pp |
 <cis gis e>1^\fermata |			%69
 
 \stemBoth
 \bar "|."
}

topsecondary = \notes \relative c' {
 \property Voice . TextScript \override #'padding = #2
 \property Voice.autoBeamSettings \override #'(end * * * *) = #(ly:make-moment 1 4)

 \times 2/3 {
  \stemUp
  gis8_\markup {\italic "sempre" \dynamic "pp" \italic "e senza sordino"}
       cis e     gis, cis e     gis, cis e     gis, cis e    | %1
  gis, cis e     gis, cis e     gis, cis e     gis, cis e    |
  a, cis e       a, cis e       a, d fis       a, d fis      |
  gis, bis fis'  gis, cis e     gis, cis dis   fis, bis dis  |
  \translator Staff = "down"
  e, gis cis
  \translator Staff = "up"
  \stemDown
                 gis cis e      gis, cis e     gis, cis e    | %5
  gis, dis' fis  gis, dis' fis  gis, dis' fis  gis, dis' fis |
  gis, cis e     gis, cis e     a, cis fis     a, cis fis    |
  gis, b e       gis, b e       a, b dis       a b dis       |
  gis, b e       gis, b e       gis, b e       gis, b e      | %9
  g, b e         g, b e         g, b e         g, b e        |
  g, b f'        g, b f'        g, b f'        g, b f'       |
  g, c e         g, b e         g, cis e
  \translator Staff = "down"
  \stemUp
                                               fis, cis' e   |
  fis, b d       fis, b d       g, b cis       e, b' cis     | %13
  fis, b d       fis, b d       fis, ais cis   fis, ais cis  |
  \translator Staff = "up"
  \stemDown
  b d fis        b, d fis       b, dis fis     b, dis fis    |
  b, e g         b, e g         b, e g         b, e g        |
  b, dis fis     b, dis fis     b, dis fis     b, dis fis    | %17
  b, e g         b, e g         b, e g         b, e g        |
  b, dis fis     b, dis fis     b, d eis       b d eis       |
  b cis gis'     b, cis gis'    a, cis fis     a, cis fis    |
  \translator Staff = "down"
  \stemUp
  g, b d         g, b d         fis, a dis     fis, a dis    | %21
  cis, fis a     cis, fis a     cis, fis gis   cis, eis gis  |
  \stemDown
  fis a cis      a cis
  \translator Staff = "up"
                       fis      cis fis a      cis, fis a    |
  cis, gis' b    cis, gis' b    cis, gis' b    cis, gis' b   |
  
  \property Voice . TextScript \override #'padding = #0.2
  cis,_\markup {\italic "cresc."}
  \property Voice . TextScript \revert #'padding
  
       fis a     cis, fis a     bis, fis' a    cis, fis a    | %25
  dis, fis gis   dis fis gis    dis fis gis    dis fis gis   |
  e gis cis      e, gis cis     dis,_\markup {\italic "decresc."}
                                     fis a     cis, e ais    |
  \stemUp
  bis bis, dis
  \stemDown
                 gis bis, dis   a' bis, dis    fis bis, dis  |
  \stemUp
  r bis dis
  \stemDown
                 gis, bis dis   a bis dis      fis, bis dis  | %29
  \stemBoth
  \translator Staff = "down"
  e,
  \translator Staff = "up"
     e' gis
  \stemDown
                 cis e, gis     e' e, gis      cis e, gis    |
  \translator Staff = "down"
  \stemUp
  r e, gis
  \stemDown
                 cis e, gis     e' e, gis      cis e, gis    |
  \stemUp
  dis a' fis
  \translator Staff = "up"
                 bis a dis      bis fis' dis   a' fis bis    |
  \translator Staff = "down"
  e,, cis' gis
  \translator Staff = "up"
  \stemBoth
                 e' cis gis'    e cis' gis     e' cis gis    | %33
  cis, fisis e   ais fisis cis' ais e' cis     fisis e ais   |
  fis,! bis a!   dis bis fis'   dis a' fis     bis a dis     |
  bis fis a      dis, fis bis,  dis a bis      fis a dis,    |
  fis bis, dis   a bis fis
  \stemUp
                                a dis, fis     cis fis a     | %37
  bis, fis' gis  a gis fis      dis fis a      cis, fis a    |
  bis, fis' gis  a gis fis      d fis a        cis, fis a    |
  bis, fis' gis  a gis fis      \stemBoth
                                cis e cis'     cis, e cis'   |
  dis, a' cis    dis, a' cis    dis, gis bis   dis, fis bis  | %41
  e, \pp gis cis gis cis e      \stemDown
                                gis, cis e     gis, cis e    |
  gis, dis' fis  gis, dis' fis  gis, dis' fis  gis, dis' fis |
  gis, cis e     gis, cis e     a, cis fis     a, cis fis    |
  gis, b e       gis, b e       a, b dis       a b dis       | %45
  gis, b e       b e gis        b, e gis       b, e gis      |
  b, fis' a      b, fis' a      b, fis' a      b, fis' a     |
  
  \property Voice . TextScript \override #'padding = #0.2
  b,_\markup {\italic "cresc."}
  \property Voice . TextScript \revert #'padding
  
     e gis       b, e gis       bis, fis' gis  cis, e gis    |
  dis \p fis gis dis fis gis    e gis cis      e, gis cis    | %49
  d, fis a       d, fis a       bis, fis' gis  bis, fis' gis |
  cis, e gis     cis, e gis     cis, eis gis   cis, eis gis  |
  cis, fis a     cis, fis a     cis, fis a     cis, fis a    |
  cis, eis gis   cis, eis gis   cis, eis gis   cis, eis gis  | %53
  cis, fis a     cis, fis a     cis, fis a     cis, fis a    |
  cis, eis gis   cis, eis gis   cis, fis a     cis, fis a    |
  b,! fis' a     b, fis' a      b, fis' a      b, e! gis     |
  a, e' gis      a, dis fis     gis, dis' fis  gis, cis e    | %57
  \translator Staff = "down"
  \stemUp
  fis, cis' dis  fis, cis' dis  gis, cis dis   a cis dis     |
  gis, cis e     gis, cis e     fis, bis dis   fis, bis dis  |
  e, gis cis
  \translator Staff = "up"
  \stemBoth
                 gis cis e      gis, cis e     gis, cis e    |
  gis, dis' fis  gis, dis' fis  gis, dis' fis  gis, dis' fis | %61
  gis, e' cis    gis' e cis'    gis e' cis     gis' e cis    |
  bis dis a      bis fis a      dis, fis a, ~  a gis fis     |
  <cis' e,> e cis gis' e cis'   gis e' cis     gis' e cis    |
  bis dis a      bis fis a      dis, fis a, ~  a gis fis     | %65
  <cis' e,> gis cis e cis gis   r e gis        cis gis e     |
  r cis e        gis e cis
 }
}


bottom = \notes \relative c {
 \property Voice . TextScript \override #'padding = #2
 \key e \major
 \time 2/2
 \clef bass
 
 \stemUp
 <cis cis,>1 |			%1
 <b b,> |
 <a a,>2 <fis fis,> |
 <gis gis,> <gis gis,> |
 <cis gis cis,>1 |		%5
 <bis gis bis,> |
 <cis cis,>2 <fis, fis,> |
 <b b,> <b b,> |
 <e e,>1 |			%9
 <e e,> |
 <d d,> |
 <c c,>4 <b b,> <ais ais,>2 |
 \stemDown
 <b b,> e,4 g |			%13
 fis2 <fis fis,> |
 \stemUp
 <b b,>1 ~ |
 <b b,>4 <e e,> <g g,> <e e,> |
 <b b,>1 ~ |			%17
 <b b,>4 <e e,> <g g,> <e e,> |
 <b b,>2 <gis gis,> |
 <eis eis,> <fis fis,> |
 \stemDown
 <b b,> <bis bis,> |		%21
 cis, cis |
 \stemUp
 <fis cis fis,>1 |
 <eis' cis eis,> |
 <fis fis,>2 <dis dis,>4 <cis cis,> |		%25
 <bis gis bis,>2. <bis gis bis,>4 |
 <cis gis cis,>2 <fis, fis,>4 <fisis fisis,> |
 <gis gis,>1 |
 <gis gis,> |			%29
 <gis gis,> |
 <gis gis,> |
 <gis gis,> |
 <gis gis,> |			%33
 <gis gis,> |
 <gis gis,> ~ |
 <gis gis,> ~ |
 <gis gis,> |			%37
 <gis gis,> |
 <gis gis,> |
 <gis gis,>2 <a a,> |
 <fis fis,> <gis gis,> |	%41
 <cis gis cis,>1 |
 <bis gis bis,> |
 <cis cis,>2 <fis, fis,> |
 <b b,> <b b,> |		%45
 <e e,>1 |
 <dis dis,> |
 <e e,>2 <dis dis,>4 <cis cis,> |
 <bis gis bis,>2 <cis gis cis,> |	%49
 <fis, fis,> <gis gis,> |
 <cis cis,>1 ~ |
 <cis cis,>4 <fis fis,> <a a,> <fis fis,> |
 <cis cis,>1 ~ |				%53
 <cis cis,>4 <fis fis,> <a a,> <fis fis,> |
 <cis cis,>2 <fis, fis,> |
 <dis' dis,>2. <e e,>4 |
 <cis cis,> <dis dis,> <bis bis,> <cis cis,> |	%57
 \stemDown
 <a a,>2 <gis gis,>4 <fis fis,> |
 <gis gis,>2 <gis gis,> |
 \stemUp
 << {
  gis2. gis8. gis16 |
  gis2. gis8. gis16 |
  gis2. gis8. gis16 |
  gis2. gis8. gis16 |
  gis2. gis8. gis16 |
  gis2. gis8. gis16 |
  gis2 cis |
  gis2 gis8*2/3-[ cis8*2/3 gis8*2/3-] e8*2/3-[ gis8*2/3 e8*2/3-]
 } \\ {
  cis1 |
  bis |		%61
  cis |
  gis |
  cis |
  gis |		%65
  cis ~ |
  cis |
 } >>
 cis2-\pp <cis' gis cis,>_\markup {\column < \italic "attacca subito" \italic "il seguente">} |
 <cis gis cis,>1^\fermata |
 
 \stemBoth
 \bar "|."
}


\score {
 \notes \context PianoStaff <<
  \context Staff = "up" <<
   \property Staff.midiInstrument = #"acoustic grand"
   \context Voice = VA { \voiceOne \topmain }
   \context Voice = VB { \voiceTwo \topsecondary }
  >>
  \context Staff = "down" <<
   \property Staff.midiInstrument = #"acoustic grand"
   \bottom
  >>
 >>

 \paper {
  linewidth = 170.0\mm
  \translator{
   \VoiceContext
   \remove Tuplet_engraver
  }
 }
 
 \midi {
  \tempo 4 = 54
  \translator{
   \VoiceContext
   \remove Dynamic_performer
  }
 }
}