2 \include "english.ly" % English note names, for cryin' out loud...
4 % Good sizes are 16, 18 or 20
6 #(set-default-paper-size "letter")
7 #(set-global-staff-size staffSize)
8 #(ly:set-option (quote no-point-and-click))
12 title = "Sonata Una Quasi Fantasia"
13 subtitle = "aka ‘Moonlight:’ First movement"
14 composer = "L.V. Beethoven"
17 mutopiatitle = "Sonata Una Quasi Fantasia"
18 mutopiacomposer = "L. V. Beethoven (1770-1827)"
20 mutopiainstrument = "Piano"
24 copyright = "Public Domain"
25 filename = "moonlight-1st.ly"
26 maintainer = "James 'Shamus' Hammons"
27 lastupdated = "2009/Dec/21"
28 % tagline = "\\parbox{\hsize}{\\thefooter\\quad\\small \\\\This music is part of the Mutopia project, \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset and placed in the public domain by " + \maintainer + ".\\\\Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}"
30 % 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!}}"
31 footer = "Mutopia-2006/10/29-xxx"
35 RightHand = \relative c'
37 \override TupletNumber #'transparent = ##t
38 \override TupletBracket #'transparent = ##t
39 \set tupletSpannerDuration = #(ly:make-moment 1 4)
45 \override TupletNumber #'transparent = ##t
46 \override TupletBracket #'transparent = ##t
58 gs8_1^\markup { \italic { sempre } \dynamic pp \italic { e con sordini } }
59 ^\markup{ \bold { \large { Adagio sostenuto } } } \(
60 cs_2 e_4 gs, cs e gs, cs e gs, cs e | % 1
61 gs, cs e gs, cs e gs, cs e gs, cs e | % 2
62 a,_1 cs_2 e_4 a, cs e \) a,_1 \( d_3 fs_5 a, d fs | % 3
63 gs, bs fs' gs, cs e gs,_1 cs_2 ds_4 fs,_1 bs_2 ds_4 | % 4
65 e,_1 gs_2 cs_4 gs_1 cs_2 e_4 \)
67 << { \stemDown \times 2/3 { gs, cs e_4 gs, cs e_3 } }
68 \context Voice = vb { r4 gs8.^5 gs16 } >> | % 5
70 << { \times 2/3 { gs,8 ds' fs_4 gs, ds' fs gs, ds' fs_3 gs, ds' fs_3 } }
71 \context Voice = vb { gs2.^5 gs8.^5 gs16 } >> | % 6
73 << { \times 2/3 { gs,8 cs e gs, cs e a, cs fs a, cs fs } }
74 \context Voice = vb { gs2^5 ^( a } >> | % 7
76 << { \times 2/3 { gs,8 b e gs, b e a,_1 b ds a_1 b_1 ds_2 } }
77 \context Voice = vb { \stemUp gs2 fs4^5 b \stemNeutral } >> | % 8
79 << { \times 2/3 { gs,8 b e gs, b e gs, b e gs, b e } }
80 \context Voice = vb { e4^4 ) r r2 } >> | % 9
82 << { \times 2/3 { g,8 b e g, b e g, b e g, b e } }
83 \context Voice = vb { r2 r4 g8. g16 } >> | % 10
85 << { \times 2/3 { g,8 b f' g, b f' g, b f' g, b f' } }
86 \context Voice = vb { g2. g8. g16 } >> | % 11
88 << { \times 2/3 { g,8 c e g, b e g, cs e fs, cs' e } }
89 \context Voice = vb { g2. ^( fs4 ) } >> | % 12
91 << { \times 2/3 { fs,8 b d fs, b d g, b cs e, b' cs } }
92 \context Voice = vb { fs2 ^( g4 e ) } >> | % 13
94 << { \times 2/3 { fs,8 b d fs, b d fs, as cs fs, as cs } }
95 \context Voice = vb { fs2 fs ^( } >> | % 14
97 << { \times 2/3 { b,8_1 d_2 fs_4 b, d fs b,_1 ds fs b, ds fs } }
98 \context Voice = vb { \stemUp b,4 ) r r b' ^( } >> | % 15
100 << { \times 2/3 { b,8 e g b, e g b, e g b, e g } }
101 \context Voice = vb { c2.^> as4^4 } >> | % 16
103 << { \times 2/3 { b,8 ds fs b, ds fs b, ds fs b, ds fs } }
104 \context Voice = vb { b2. ) b4 } >> | % 17
106 << { \times 2/3 { b,8 e g b, e g b, e g b, e g } }
107 \context Voice = vb { c2. as4 } >> | % 18
109 << { \times 2/3 { b,8 ds fs b, ds fs b, d es b d es } }
110 \context Voice = vb { b'2 b } >> | % 19
112 << { \times 2/3 { b,8 cs gs' b, cs gs' a, cs fs a, cs fs } }
113 \context Voice = vb { b2 ^( a } >> | % 20
115 << { \times 2/3 { g,8 b d g, b d fs, a ds fs, a ds } }
116 \context Voice = vb { g2 fs } >> | % 21
118 << { \times 2/3 { \clef F cs,8 fs a cs, fs a cs, fs gs cs, es gs } }
119 \context Voice = vb { cs2 ) cs ^( } >> | % 22
121 << { \times 2/3 { fs,8 a cs \clef G \stemUp a_1 cs_2 fs_4 \stemDown cs_1 fs_2 a_4 cs, fs a_3 } }
122 \context Voice = vb { fs,4 ) s r cs''8.^\markup { \italic { marcato ma sempre } \dynamic p } cs16 } >> | % 23
124 << { \times 2/3 { cs,8_1 gs'_2 b_4 cs, gs' b cs, gs' b cs, gs' b_3 } }
125 \context Voice = vb { cs2. cs8. cs16 } >> | % 24
127 << { \times 2/3 { cs,8 fs a cs, fs a bs, fs' a cs, fs a } }
128 \context Voice = vb { cs2^5 ^( bs4 cs } >> | % 25
130 << { \times 2/3 { ds,8 fs gs ds fs gs ds fs gs ds fs gs } }
131 \context Voice = vb { ds'2. ) ds4 ^( } >> | % 26
133 << { \times 2/3 { e,8 gs cs e, gs cs ds, fs a cs, e as } }
134 \context Voice = vb { e'2 ds4 cs } >> | % 27
136 << { \times 2/3 { bs8 bs, ds gs bs, ds a' bs, ds fs bs, ds } }
137 \context Voice = vb { bs'8 ) r gs4 ^( a fs ) } >> | % 28
139 << { \times 2/3 { r8 bs, ds
140 \change Staff = LH \stemUp gs,-1 _( \change Staff = RH \stemDown bs-2 ds-4
141 \change Staff = LH \stemUp a-1 \change Staff = RH \stemDown bs-2 ds-4
142 \change Staff = LH \stemUp fs,-1 \change Staff = RH \stemDown bs-2 ds-4 } }
143 \context Voice = vb { \slurNeutral \change Staff = LH \stemDown s4 gs, a fs } >> | % 29
145 %Merge-differently-headed doesn't quiet the too many collisions warning... :-P
146 << { \times 2/3 { \change Staff = LH \stemUp \once \override Staff.NoteCollision #'merge-differently-headed = ##t e8 ) \change Staff = RH \stemDown e'-1 gs-2
147 cs-4 ^( e, gs e' e, gs cs ) e, gs } }
148 \context Voice = vb { \change Staff = LH e,8 ^( s ) \change Staff = RH \stemUp cs''4 e cs } >> | % 30
150 << { \times 2/3 { \clef F r8 e,, gs cs ^( e, gs e' e, gs cs ) e, gs } }
151 \context Voice = vb { s4 cs e cs \stemNeutral } >> | % 31
155 ds8-1 ( a-3 fs-2 bs-5 a-1 ds \clef G \stemNeutral bs-1 fs' ds a' fs bs-5 ) | % 32
156 e,,8 ( cs'-4 gs-1 e'-5 cs-1 gs' e-1 cs' gs e' cs gs-2 | % 33
157 cs,8-1 fss e as fss cs' as-2 e'-4 cs-2 fss-5 e-1 as-4 ) | % 34
158 fs,8-1 ( bs a ds bs fs' ds-2 a'-4 fs-2 bs-5 a-1 ds-5 | % 35
159 bs8-4 fs-2 a-5 ds, fs bs,-1 ds a-1 bs-5 fs-2 a-5 ds, ) | % 36
162 << { \times 2/3 { \stemUp fs8-4 bs,-1 ds-3 a-1 bs-5 \clef F fs-2 a-5 ds,-2 fs cs-1 fs a } }
163 % \context Voice = vb { s2 \stemDown \times 2/3 { s8 ds,4 } cs4 } >> | % 37
164 %Bleh, using a spacer here causes a segfault...
165 %Same solution used below... :-(
166 \context Voice = vb { s2 \stemDown \times 2/3 {
167 \override TupletNumber #'transparent = ##t
168 \override TupletBracket #'transparent = ##t
169 \hideNotes d8 \unHideNotes ds,4 } cs4 } >> | % 37
171 << { \times 2/3 { bs8 fs' gs a gs fs ds fs a cs, fs a } }
172 \context Voice = vb { bs,2 ds4 cs } >> | % 38
174 << { \times 2/3 { bs8 fs' gs a gs fs d-1 fs-4 a cs, fs a } }
175 \context Voice = vb { bs,2 s2 } >> | % 39
177 << { \times 2/3 { bs8 fs' gs a gs fs cs e cs' cs, e cs' } }
178 % \context Voice = vb { \slurDown bs,2 ( \times 2/3 { cs8 ) \slurNeutral s4 } s4 } >> | % 40
179 \context Voice = vb { \slurDown bs,2 ( \times 2/3 { cs8 ) \slurNeutral \hideNotes c4 \unHideNotes } s4 } >> | % 40
181 << { \times 2/3 { \stemDown ds8 a' cs ds, a' cs ds, gs bs ds, fs bs } }
182 % \context Voice = vb { \stemUp \times 2/3 { s8 a'4 s4. s8 gs4 s8 fs4 } } >> | % 41
183 \context Voice = vb { \stemUp \times 2/3 { \hideNotes c8 \unHideNotes a4 \hideNotes a4. a8 \unHideNotes gs4 \hideNotes gs8 \unHideNotes fs4 } } >> | % 41
185 << { \times 2/3 { e8 gs cs gs-1 cs \clef G e gs, cs e-5 gs, cs e-3 } }
186 % \context Voice = vb { \times 2/3 { e,8 s4 } s4 r4 gs'8.^\markup{ \italic { piu marcato del principio } } gs16 } >> | % 42
187 \context Voice = vb { \times 2/3 { e,8 \hideNotes c4 \unHideNotes } s4 r4 gs''8.^\markup{ \italic { piu marcato del principio } } gs16 } >> | % 42
189 << { \times 2/3 { gs,8 ds' fs-4 gs, ds' fs gs, ds' fs gs, ds' fs-3 } }
190 \context Voice = vb { gs2. gs8. gs16 } >> | % 43
192 << { \times 2/3 { gs,8 cs e gs, cs e a, cs fs a, cs fs } }
193 \context Voice = vb { gs2 a } >> | % 44
195 << { \times 2/3 { gs,8 b e gs, b e a, b ds a b ds } }
196 \context Voice = vb { gs2 fs4 b } >> | % 45
198 << { \times 2/3 { gs,8 b e b e gs b, e gs b, e gs } }
199 \context Voice = vb { e4 r r b'8. b16 } >> | % 46
201 << { \times 2/3 { b,8 fs' a b, fs' a b, fs' a b, fs' a } }
202 \context Voice = vb { b2. b8. b16 } >> | % 47
204 << { \times 2/3 { b,8 e gs b, e gs bs, fs' gs cs, e gs } }
205 \context Voice = vb { b2 bs4 cs } >> | % 48
207 << { \times 2/3 { ds,8 fs gs ds fs gs e gs cs e, gs cs } }
208 \context Voice = vb { ds2 e } >> | % 49
210 << { \times 2/3 { d,8 fs a d, fs a bs, fs' gs bs, fs' gs } }
211 \context Voice = vb { d'2 bs } >> | % 50
213 << { \times 2/3 { cs,8 e gs cs, e gs cs, es gs cs, es gs } }
214 \context Voice = vb { cs2. cs4 } >> | % 51
216 << { \times 2/3 { cs,8 fs a cs, fs a cs, fs a cs, fs a } }
217 \context Voice = vb { d2.^> bs4 } >> | % 52
219 << { \times 2/3 { cs,8 es gs cs, es gs cs, es gs cs, es gs } }
220 \context Voice = vb { cs2. cs4 } >> | % 53
222 << { \times 2/3 { cs,8 fs a cs, fs a cs, fs a cs, fs a } }
223 \context Voice = vb { d2.^> bs4 } >> | % 54
225 << { \times 2/3 { cs,8 es-2 gs-3 cs, es gs cs, fs a cs, fs a } }
226 \context Voice = vb { cs2 cs } >> | % 55
228 << { \times 2/3 { b,8 fs'-3 a-4 b, fs' a b, fs' a^- b, e_2 gs^-_4 } }
229 \context Voice = vb { b2. b4 } >> | % 56
231 << { \times 2/3 { a,8 e'_3 gs^-_4 a, ds_2 fs^-_4 gs, ds'_3 fs^-_4 gs, cs_2 e^-_3 } }
232 \context Voice = vb { a4 a gs gs } >> | % 57
234 << { \times 2/3 { fs,8 cs'_3 ds_4 fs, cs'_3 ds_4 gs, cs ds a cs ds } }
235 \context Voice = vb { fs2 gs4 a } >> | % 58
237 << { \times 2/3 { gs,8 cs_2 e_4 gs, cs e fs, bs ds_3 fs, bs ds_4 } }
238 \context Voice = vb { gs2 \slurUp gs ( } >> | % 59
240 << { \times 2/3 { e,8 gs cs gs-2 cs e gs,_1 cs e gs, cs e } }
241 \context Voice = vb { cs4 ) \slurNeutral r r2^\markup { \italic { sempre legatissimo } } } >> | % 60
243 << { \times 2/3 { \stemNeutral gs8_1 ds'_3 fs_5 gs, ds' fs gs, ds' fs gs, ds'_2 fs_4 } }
244 \context Voice = vb { s1 } >> | % 61
246 << { \times 2/3 { gs,8_1 e'_3 cs_2 gs'_5 e_1 cs'_4 \stemDown gs^1 e'^3 cs^2 gs'e cs } }
247 \context Voice = vb { s1 } >> | % 62
249 << { \times 2/3 { bs8^1 ds^4 a^1 \stemUp bs_5 fs_2 a_5 \clef F \stemDown ds,^2 fs^4 \tieDown a,^1 ~ a \tieNeutral gs fs^1 } }
250 \context Voice = vb { s2. bs4^5 ^( } >> | % 63
252 << { \times 2/3 { e,8_1 e'_5 \( \clef G cs_2 \stemUp gs'_5 e_1 cs'_4 \stemDown gs e' cs gs'e cs } }
253 \context Voice = vb { cs,4 ) s2. } >> | % 64
255 << { \times 2/3 { bs'8_1 ds_4 a_1 \stemUp bs_5 fs_2 a_5 \clef F \stemDown ds,_2 fs \tieDown a,_1 ~ a \tieNeutral gs_2 fs_1 } }
256 \context Voice = vb { s2. bs4^5 ^( } >> | % 65
258 << { \times 2/3 { e,8_1 \) _( gs cs e cs gs ) r e ^( gs cs gs e ) } \stemNeutral }
259 \context Voice = vb { cs'4^4 ) s2. \stemNeutral } >> | % 66
261 \times 2/3 { \set followVoice = ##t r8 cs, ( e gs e cs \change Staff = LH gs cs gs e gs e ) \set followVoice = ##f \change Staff = RH } | % 67
262 r2 <cs'' gs e> | % 68
263 <cs gs e>1^\fermata \bar "|." % 69
270 s4 s s\< s8. s16\! | % 3
271 % s4\pp s \times 2/3 { s8\< s s\! s\> s s\! } | % 4
272 s4\pp s s8.\< s16\! s8.\> s16\! | % 4
274 % s2 \times 2/3 { s8\< s4 s s8\! } | % 8
275 s2 s4..\< s16\! | % 8
276 % s4 \times 2/3 { s8\> s4 s4. s4 s8\! } | % 9
277 s4 s2\> s8. s16\! | % 9
279 % \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } | % 12
280 s4.\< s8\! s16 s4.\> s16\! | % 12
282 % \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } | % 16
283 s4.\< s8\! s16 s4.\> s16\! | % 16
285 % \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } | % 18
286 s4.\< s8\! s16 s4.\> s16\! | % 18
288 s2 s4\< s8. s16\! | % 21
290 s4 s\< s8. s16\! s4 | % 23
292 s4 s2.-\markup { \dynamic p \italic { una corda } } | % 28
295 s2 s4\< s8. s16\! | % 32
297 s2 s4\< s8. s16\! | % 34
298 s4\p s8 s8-\markup { \italic { cresc. } } s2 | % 35
299 s2 s4-\markup { \italic { dim. } } s4 | % 36
300 s2 s8 s8-\markup { \italic { espress. } } s4 | % 37
301 s8.\< s16\! s8.\> s16\! s4\p s4 | % 38
302 s4\< s8. s16\! s4\mf s4 | % 39
304 s2 s8.\< s16\! s4 | % 42
306 s4\< s8. s16\! s4\p s4 | % 44
307 s4 s4\< s8. s16\! s8.\> s16\! | % 45
308 s4\p s2 s4-\markup { \italic { un poco cresc. } } | % 46
310 s4-\markup { \italic { più cresc. } } s2. | % 48
311 s8\p s8-\markup { \italic { subito } } s2. | % 49
312 s8 s8-\markup { \italic { più } \dynamic p } s2. | % 50
314 s4\< s8. s16\! s4\> s8. s16\! | % 52
316 s4\< s8. s16\! s4\> s8. s16\! | % 54
317 s2 s4\< s8. s16\! | % 55
318 s4 s4\> s8. s16\! s4 | % 56
320 s4-\markup{ \italic { marc. } }-\markup { \italic { una corda } } s2. | % 60
322 s4\< s2 s8. s16\! | % 62
323 s4\> s2 s8. s16\! | % 63
326 s2 s4-\markup { \italic { slentando } } s4 | % 67
328 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
330 LeftHand = \relative c
332 \override TupletNumber #'transparent = ##t
333 \override TupletBracket #'transparent = ##t
334 \set tupletSpannerDuration = #(ly:make-moment 1 4)
340 <cs cs,>1^\markup { \italic { una corda } } ( | % 1
342 <a a,>2 ) <fs fs,> | % 3
343 <gs gs,>2 <gs gs,> | % 4
347 <cs cs,>2 ( <fs, fs,> ) | % 7
350 <e e,_4>1^\markup{ \italic { una corda } } | % 10
353 <c c,_4>4 ( <b b,_5> <as as,_4>2 ) | % 12
354 <b b,>2 ( e,4 g | % 13
355 fs2 ) <fs fs,> | % 14
358 <b b,>4 <e e,> <g g,> <e e,> | % 16
360 <b b,>4 <e e,> <g g,> <e e,> | % 18
362 <b b,>2 <gs gs,>^\markup { \italic { una corda } } ( | % 19
363 <es es,>2 <fs fs,> ) | % 20
364 <b b,>2 ( <bs bs,> | % 21
369 <fs fs,>2 ( <ds ds,>4 <cs cs,> | % 25
370 <bs gs bs,>2. ) <bs gs bs,>4 ( | % 26
372 <cs gs cs,>2 ) <fs, fs,>4^\markup{ \italic { dimin. } } ( <fss fss,> | % 27
374 <gs gs,>1_\markup{ \italic { il basso sempre ten. } } | % 29
375 %% \property Voice.NoteColumn \override #'horizontal-shift = #1
376 % \once \override NoteColumn #'force-hshift = #2.0
379 %None of these work...
380 %Horrible kludge to overcome Lily's lack of sense in this area
382 % { \hideNotes a1 \unHideNotes } \\
384 % \once \override NoteColumn #'force-hshift = #2.0
408 <gs gs,>2^\markup{ \italic { dim. } } ( <a a,>^\markup{ \italic { una corda } } | % 40
409 <fs fs,>^\markup{ \italic { poco riten. } } ) <gs gs,> | % 41
410 <cs gs cs,>1^\markup { \italic{ a tempo } }^\markup{ \dynamic pp }_\markup { \italic grave } | % 42
413 <cs cs,>2 <fs, fs,> | % 44
414 <b b,>2 <b b,> | % 45
418 <e e,>2 <ds ds,>4-3 <cs cs,> | % 48
419 <bs gs bs,>2 ( <cs gs cs,> ) | % 49
420 <fs, fs,>2 ( <gs gs,> ) | % 50
423 <cs cs,>4 <fs fs,> <a a,> <fs fs,> | % 52
425 <cs cs,>4 <fs fs,> <a a,> <fs fs,> | % 54
427 <cs cs,>2 <fs, fs,> | % 55
428 <ds' ds,>2. <e e,>4 ( | % 56
429 <cs cs,> <ds ds,> <bs bs,> <cs cs,> ) | % 57
430 <a a,>2 ( <gs gs,>4 <fs fs,> | % 58
432 <gs gs,>2 ) <gs gs,> | % 59
434 % \context Voice = va
436 gs2. gs8._1 gs16_2 | % 60
437 gs2. gs8._1 gs16_2 | % 61
438 gs2. gs8. gs16 | % 62
439 gs2. gs8. gs16 | % 63
440 gs2. gs8. gs16 | % 64
441 gs2. gs8. gs16 | % 65
442 gs2^2^\markup { \italic dimin. } ^( cs | % 66
447 cs,1 | bs1 | cs1 | gs1 | cs1 | gs1 | cs1 | cs1 | % 60-7 (voice 2)
451 cs2 <cs' gs cs,>^\pp | % 68
452 <cs gs cs,>1^\fermata^\ppp \bar "|." % 69
461 %\override PianoStaff.VerticalAlignment #'forced-distance = #6.5 % gap between staves
462 %\set PianoStaff.midiInstrument = "acoustic grand"
464 \context Staff = "RH" { \override Staff.DynamicLineSpanner #'staff-padding = #5.5
465 << \RightHand \Dynamics >> }
466 \context Staff = "LH" { \LeftHand }
472 % ragged-last-bottom = ##t