jmoonlight1-2.20.ly

%% Time-stamp: "2/28/2017 22:42"
%% 1:41:47.03 2020/03/31 
\version "2.20.0"
#(set-default-paper-size "letter")
#(set-global-staff-size 20)

%% \paper{ paper-height = 280\mm
%% }
\paper{ paper-height = 260\mm }%% Letter size. Time-stamp :2/28/2017 22:42

\header{
 title = \markup{ \line { \huge\bold  Sonata No.14 Moonlight} }
 subtitle = \markup{ \line {\bold 1st \hspace #1 Movement} }
 subsubtitle = #(string-append "LilyPond version " (lilypond-version))
 composer = "L.van Beethoven"
 opus = "Op. 27, No. 2"
 meter = "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"
 footer = "Mutopia-2004/02/03-276"
 tagline = \markup {\center-align {
 \line{ \small by \hspace #1 \maintainer \hspace #3 Reference: \hspace #1 \footer }}}
}

topmain = \relative c' {
 \clef treble \key e \major \time 2/2 \tempo 4 = 54
 \set Staff.midiInstrument = "acoustic grand"
%% 1-4 
R1*4
%% 5-22
s2 r4 gis'8.^\pp gis16 | gis2. gis8. gis16 | gis2 a2 |
gis2 fis4 b | e, r r2 | r r4 g8. g16 | g2. g8. g16 |
g2. fis4 | fis2 g4 e | fis2 fis | b,4 r r b' | c2. ais4 |
b2. b4 | c2. ais4 | b2 b | b a | g fis | cis cis4 cis |
%% 23-30
fis, r r cis''8. cis16 |
cis2. cis8. cis16 | cis2 bis4 cis | dis2. dis4 | e2 dis4 cis |
s^\pp gis a fis | s gis, a fis | s cis'' e cis |
%% 31-39
s cis, e cis | s1*2 | s1*3 |
\stemDown s4 \clef bass s4 a8*2/3 dis,4*2/3 cis4 |
bis2 dis4 cis | bis2 d4 cis |
%% 40-60
bis2_\markup {\italic "decresc."} s2 | s1 |
\stemUp s4 \clef treble s s gis''8.^\pp gis16 |
gis2. gis8. gis16 | gis2 a | gis fis4 b4 | e, r r b'8. b16 |
b2. b8. b16 | b2 bis4 cis | dis2 e | d bis | cis2. cis4 |
d2. bis4 | cis2. cis4 | d2. bis4 | cis2 cis | b!2. b4 |
a a gis gis | fis2_\markup {\italic "cresc."} gis4 a |
gis2^\pp gis | cis,4 s s2 |
%% 61-69
s1 | s1 | s2 \clef bass s4 bis4 | s8*2/3 \clef treble s4*2/3 s2. |
s2 \clef bass s4 bis4 | s1 | s2 r | r <cis gis e>^\pp |
<cis gis e>1^\fermata | \stemNeutral \bar "|."
}

topsecondary =  \relative c' {
 \set Staff.midiInstrument = "acoustic grand"
%% 1-4
\times 2/3 { \stemDown
gis8_\markup {\italic "sempre" \dynamic "pp" \italic "e senza sordino"}
cis e gis, cis e gis, cis e gis, cis e |
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 |
%% 5-23
\stemDown e, gis cis gis cis e 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 |
gis, b e gis, b e gis, b e gis, b e |
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 fis, cis' e |
fis, b d fis, b d g, b cis e, b' cis |
fis, b d fis, b d fis, ais cis fis, ais cis |
\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 |
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 |
g, b d g, b d fis, a dis fis, a dis |
cis, fis a cis, fis a cis, fis gis cis, eis gis |
\stemDown fis a cis a cis fis cis fis a cis, fis a |
%% 24-30
cis, gis' b cis, gis' b cis, gis' b cis, gis' b |
cis,_\markup {\italic "cresc."}
fis a cis, fis a bis, fis' a cis, fis a |
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 |
\stemDown bis bis, dis gis bis, dis a' bis, dis fis bis, dis |
\stemDown r bis dis gis, bis dis a bis dis fis, bis dis |
\stemDown e, e' gis cis e, gis e' e, gis cis e, gis |
%% 31-39
\stemDown r e, gis cis e, gis e' e, gis cis e, gis |
\stemDown dis a' fis bis a dis bis fis' dis a' fis bis |
e,, cis' gis e' cis gis' e cis' gis e' cis gis |
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 |
bis, fis' gis  a gis fis dis fis a cis, fis a |
bis, fis' gis  a gis fis d fis a cis, fis a |
%% 40-60
bis, fis' gis a gis fis \stemNeutral cis e cis' cis, e cis' |
dis, a' cis dis, a' cis dis, gis bis dis, fis bis |
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 |
gis, b e b e gis b, e gis b, e gis |
b, fis' a b, fis' a b, fis' a b, fis' a |
b,_\markup {\italic "cresc."}
e gis b, e gis bis, fis' gis cis, e gis |
dis\pp fis gis dis fis gis e gis cis e, gis cis |
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 |
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 |
\stemDown fis, cis' dis fis, cis' dis gis, cis dis a cis dis |
gis, cis e gis, cis e fis, bis dis fis, bis dis |
\stemDown e, gis cis gis cis e gis, cis e gis, cis e |
%% 61-67
gis, dis' fis gis, dis' fis gis, dis' fis gis, dis' fis |
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 |
<cis' e,> gis cis e cis gis r e gis cis gis e |
r cis e gis e cis
 }
}

bottom = \relative c {
 \clef bass \key e \major \time 2/2 \tempo 4 = 54
 \set Staff.midiInstrument = "acoustic grand"
%% 1-4 
\stemUp <cis cis,>1 | <b b,> | <a a,>2 <fis fis,> | <gis gis,> <gis gis,> |
%% 5-22
<cis gis cis,>1 | <bis gis bis,> | <cis cis,>2 <fis, fis,> |
<b b,> <b b,> | <e e,>1 | <e e,> | <d d,> | <c c,>4 <b b,> <ais ais,>2 |
\stemUp <b b,> e,4 g | fis2 <fis fis,> | <b b,>1~ |
<b b,>4 <e e,> <g g,> <e e,> | <b b,>1~ | <b b,>4 <e e,> <g g,> <e e,> |
<b b,>2 <gis gis,> | <eis eis,> <fis fis,> | <b b,> <bis bis,> |
 cis, cis |
%% 23-30
\stemUp <fis cis fis,>1 | <eis' cis eis,> |
<fis fis,>2 <dis dis,>4 <cis cis,> | <bis gis bis,>2. <bis gis bis,>4 |
<cis gis cis,>2 <fis, fis,>4 <fisis fisis,> | <gis gis,>1 |
<gis gis,> | <gis gis,> |
%% 31-60
<gis gis,> | <gis gis,> | <gis gis,> | <gis gis,> | <gis gis,>~ |
<gis gis,>~ | <gis gis,> | <gis gis,> | <gis gis,> | <gis gis,>2 <a a,> |
<fis fis,> <gis gis,> | <cis gis cis,>1 | <bis gis bis,> |
<cis cis,>2 <fis, fis,> | <b b,> <b b,> | <e e,>1 | <dis dis,> |
<e e,>2 <dis dis,>4 <cis cis,> | <bis gis bis,>2 <cis gis cis,> |
<fis, fis,> <gis gis,> | <cis cis,>1~ |
<cis cis,>4 <fis fis,> <a a,> <fis fis,> | <cis cis,>1 ~ |
<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,> |
<a a,>2 <gis gis,>4 <fis fis,> | <gis gis,>2 <gis gis,> |
<< { 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 |
%% 61-69
bis | cis | gis | cis | gis | cis~ | cis | } >>
cis2^\pp <cis' gis cis,>_\markup{\column { \tiny \italic "attacca subito" \tiny \italic "il seguente"}} |
<cis gis cis,>1^\fermata | \stemNeutral \bar "|."
}
%%%%-----------------------------------------------------------------------
%{
bis | cis | gis | cis | gis | cis~ | cis | } >>
cis2-\pp <cis' gis cis,>_\markup{\column < \italic "attacca subito" \italic "il seguente">} |
<cis gis cis,>1^\fermata | \stemNeutral \bar "|."
}
%}
%%%-------------------------------------------------------------------------


\score { \context PianoStaff <<
  \context Staff = "up" <<
       \context Voice = VA { \topmain }
       \context Voice = VB { \topsecondary }
                        >>
  \context Staff = "down" <<
       \context Voice = VC { \bottom }
                          >>
                                    >>

  \layout { }
 
  \midi { 
       %% Remove the dynamics from the midi output
        \context { \Voice
                   \remove "Dynamic_performer"
                   %%\remove "Span_dynamic_performer" }
          }
}
}