Shamusworld >> Repos - music/blob - moonlight-1st.ly

   1 \version "2.16.0"
   2 \include "english.ly"           % English note names, for cryin' out loud...
   3
   4 % Good sizes are 16, 18 or 20
   5 staffSize = #16
   6 #(set-default-paper-size "letter")
   7 #(set-global-staff-size staffSize)
   8 #(ly:set-option (quote no-point-and-click))
   9
  10 \header
  11 {
  12         title = "Sonata Una Quasi Fantasia"
  13         subtitle = "aka ‘Moonlight:’ First movement"
  14         composer = "L.V. Beethoven"
  15         enteredby = "JLH"
  16
  17         mutopiatitle = "Sonata Una Quasi Fantasia"
  18         mutopiacomposer = "L. V. Beethoven (1770-1827)"
  19         mutopiaopus = ""
  20         mutopiainstrument = "Piano"
  21         date = "18th C."
  22         source = "unknown"
  23         style = "Classical"
  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!}"
  29
  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"
  32 }
  33
  34
  35 RightHand = \relative c'
  36 {
  37         \override TupletNumber #'transparent = ##t
  38         \override TupletBracket #'transparent = ##t
  39         \set tupletSpannerDuration = #(ly:make-moment 1 4)
  40
  41 %DISNOWOK
  42 %{
  43         \context Voice = vb
  44         {
  45                 \override TupletNumber #'transparent = ##t
  46                 \override TupletBracket #'transparent = ##t
  47         }
  48 %}
  49
  50         \time 4/4
  51         \key cs \minor
  52         \clef G
  53
  54         \phrasingSlurUp
  55
  56         \times 2/3
  57         {
  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
  64
  65                 e,_1 gs_2 cs_4 gs_1 cs_2 e_4 \)
  66         }
  67         << { \stemDown \times 2/3 { gs, cs e_4 gs, cs e_3 } }
  68         \context Voice = vb { r4 gs8.^5 gs16 } >> |   % 5
  69
  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
  72
  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
  75
  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
  78
  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
  81
  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
  84
  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
  87
  88         << { \times 2/3 { g,8 c e g, b e g, cs e fs, cs' e } }
  89         \context Voice = vb { g2. ^( fs4 ) } >> |   % 12
  90
  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
  93
  94         << { \times 2/3 { fs,8 b d fs, b d fs, as cs fs, as cs } }
  95         \context Voice = vb { fs2 fs ^( } >> |   % 14
  96
  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
  99
 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
 102
 103         << { \times 2/3 { b,8 ds fs b, ds fs b, ds fs b, ds fs } }
 104         \context Voice = vb { b2. ) b4 } >> |   % 17
 105
 106         << { \times 2/3 { b,8 e g b, e g b, e g b, e g } }
 107         \context Voice = vb { c2. as4 } >> |   % 18
 108
 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
 111
 112         << { \times 2/3 { b,8 cs gs' b, cs gs' a, cs fs a, cs fs } }
 113         \context Voice = vb { b2 ^( a } >> |   % 20
 114
 115         << { \times 2/3 { g,8 b d g, b d fs, a ds fs, a ds } }
 116         \context Voice = vb { g2 fs } >> |   % 21
 117
 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
 120
 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
 123
 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
 126
 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
 129
 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
 132
 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
 135
 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
 138
 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
 144
 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
 149
 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
 152
 153         \times 2/3
 154         {
 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
 160         }
 161
 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
 170
 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
 173
 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
 176
 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
 180
 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
 184
 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
 188
 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
 191
 192         << { \times 2/3 { gs,8 cs e gs, cs e a, cs fs a, cs fs } }
 193         \context Voice = vb { gs2 a } >> |   % 44
 194
 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
 197
 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
 200
 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
 203
 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
 206
 207         << { \times 2/3 { ds,8 fs gs ds fs gs e gs cs e, gs cs } }
 208         \context Voice = vb { ds2 e } >> |   % 49
 209
 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
 212
 213         << { \times 2/3 { cs,8 e gs cs, e gs cs, es gs cs, es gs } }
 214         \context Voice = vb { cs2. cs4 } >> |   % 51
 215
 216         << { \times 2/3 { cs,8 fs a cs, fs a cs, fs a cs, fs a } }
 217         \context Voice = vb { d2.^> bs4 } >> |   % 52
 218
 219         << { \times 2/3 { cs,8 es gs cs, es gs cs, es gs cs, es gs } }
 220         \context Voice = vb { cs2. cs4 } >> |   % 53
 221
 222         << { \times 2/3 { cs,8 fs a cs, fs a cs, fs a cs, fs a } }
 223         \context Voice = vb { d2.^> bs4 } >> |   % 54
 224
 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
 227
 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
 230
 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
 233
 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
 236
 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
 239
 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
 242
 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
 245
 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
 248
 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
 251
 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
 254
 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
 257
 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
 260
 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
 264 }
 265
 266
 267 Dynamics =
 268 {
 269         s1*2 |   % 1-2
 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
 273         s1*3 |   % 5-7
 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
 278         s1*2 |   % 10-11
 279 %       \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } |   % 12
 280         s4.\< s8\! s16 s4.\> s16\! |   % 12
 281         s1*3 |   % 13-15
 282 %       \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } |   % 16
 283         s4.\< s8\! s16 s4.\> s16\! |   % 16
 284         s1 |   % 17
 285 %       \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } |   % 18
 286         s4.\< s8\! s16 s4.\> s16\! |   % 18
 287         s1*2 |   % 19-20
 288         s2 s4\< s8. s16\! |   % 21
 289         s4\pp s2. |   % 22
 290         s4 s\< s8. s16\! s4 |   % 23
 291         s1*4 |   % 24-27
 292         s4 s2.-\markup { \dynamic p \italic { una corda } } |   % 28
 293         s1*2 |   % 29-30
 294         s4\pp s2. |   % 31
 295         s2 s4\< s8. s16\! |   % 32
 296         s4\pp s2. |   % 33
 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
 303         s1*2 |   % 40-41
 304         s2 s8.\< s16\! s4 |   % 42
 305         s1 |   % 43
 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
 309         s1 |   % 47
 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
 313         s4\pp s2. |   % 51
 314         s4\< s8. s16\! s4\> s8. s16\! |   % 52
 315         s1 |   % 53
 316         s4\< s8. s16\! s4\> s8. s16\! |   % 54
 317         s2 s4\< s8. s16\! |   % 55
 318         s4 s4\> s8. s16\! s4 |   % 56
 319         s1*3 |   % 57-59
 320         s4-\markup{ \italic { marc. } }-\markup { \italic { una corda } } s2. |   % 60
 321         s1 |   % 61
 322         s4\< s2 s8. s16\! |   % 62
 323         s4\> s2 s8. s16\! |   % 63
 324         s4\< s2 s4\! |   % 64
 325         s1*2 |   % 65-66
 326         s2 s4-\markup { \italic { slentando } } s4 |   % 67
 327 }
 328 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
 329
 330 LeftHand = \relative c
 331 {
 332         \override TupletNumber #'transparent = ##t
 333         \override TupletBracket #'transparent = ##t
 334         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 335
 336         \time 4/4
 337         \key cs \minor
 338         \clef F
 339
 340         <cs cs,>1^\markup { \italic { una corda } } ( |   % 1
 341         <b b,>1 |   % 2
 342         <a a,>2 ) <fs fs,> |   % 3
 343         <gs gs,>2 <gs gs,> |   % 4
 344
 345         <cs gs cs,>1 |   % 5
 346         <bs gs bs,>1 |   % 6
 347         <cs cs,>2 ( <fs, fs,> ) |   % 7
 348         <b b,>2 <b b,> |   % 8
 349         <e e,>1 |   % 9
 350         <e e,_4>1^\markup{ \italic { una corda } } |   % 10
 351
 352         <d d,_5>1 |   % 11
 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
 356
 357         <b b,>1 ~ |   % 15
 358         <b b,>4 <e e,> <g g,> <e e,> |   % 16
 359         <b b,>1 ~ |   % 17
 360         <b b,>4 <e e,> <g g,> <e e,> |   % 18
 361
 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
 365         cs,2 ) cs |   % 22
 366
 367         <fs cs fs,>1 |   % 23
 368         <es' cs es,>1 |   % 24
 369         <fs fs,>2 ( <ds ds,>4 <cs cs,> |   % 25
 370         <bs gs bs,>2. ) <bs gs bs,>4 ( |   % 26
 371
 372         <cs gs cs,>2 ) <fs, fs,>4^\markup{ \italic { dimin. } } ( <fss fss,> |   % 27
 373         <gs gs,>1 ) |   % 28
 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
 377         <gs gs,>1 |   % 30
 378
 379 %None of these work...
 380 %Horrible kludge to overcome Lily's lack of sense in this area
 381 %{      <<
 382 %       { \hideNotes a1 \unHideNotes } \\
 383         { a1 } \\
 384 %       \once \override NoteColumn #'force-hshift = #2.0
 385         <gs gs,>1
 386         >>
 387  |   % 30
 388 %}
 389 %{      <<
 390         { a1 }
 391         \context Voice = vc
 392         {
 393         <gs gs,>1
 394         }
 395         >>%}
 396
 397         <gs gs,>1 |   % 31
 398         <gs gs,>1 |   % 32
 399         <gs gs,>1 |   % 33
 400         <gs gs,>1 |   % 34
 401
 402         <gs gs,>1 ~ |   % 35
 403         <gs gs,>1 ~ |   % 36
 404         <gs gs,>1 |   % 37
 405         <gs gs,>1 |   % 38
 406
 407         <gs gs,>1 |   % 39
 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
 411
 412         <bs gs bs,>1 |   % 43
 413         <cs cs,>2 <fs, fs,> |   % 44
 414         <b b,>2 <b b,> |   % 45
 415         <e e,>1 |   % 46
 416
 417         <ds ds,>1 |   % 47
 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
 421
 422         <cs cs,>1 ~ |   % 51
 423         <cs cs,>4 <fs fs,> <a a,> <fs fs,> |   % 52
 424         <cs cs,>1 ~ |   % 53
 425         <cs cs,>4 <fs fs,> <a a,> <fs fs,> |   % 54
 426
 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
 431
 432         <gs gs,>2 ) <gs gs,> |   % 59
 433         <<
 434 %       \context Voice = va
 435         {
 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
 443                 gs2 ) s |   % 67
 444         }
 445         \context Voice = vc
 446         {
 447                 cs,1 | bs1 | cs1 | gs1 | cs1 | gs1 | cs1 | cs1 |   % 60-7 (voice 2)
 448         }
 449         >>
 450
 451         cs2 <cs' gs cs,>^\pp |   % 68
 452         <cs gs cs,>1^\fermata^\ppp \bar "|."   % 69
 453 }
 454
 455
 456 \score
 457 {
 458         <<
 459                 \context PianoStaff
 460                 <<
 461 %\override PianoStaff.VerticalAlignment #'forced-distance = #6.5   % gap between staves
 462 %\set PianoStaff.midiInstrument = "acoustic grand"
 463
 464                         \context Staff = "RH" { \override Staff.DynamicLineSpanner #'staff-padding = #5.5
 465 << \RightHand \Dynamics >> }
 466                         \context Staff = "LH" { \LeftHand }
 467                 >>
 468         >>
 469
 470         \layout
 471         {
 472 %               ragged-last-bottom = ##t
 473                 ragged-last = ##t
 474         }
 475
 476 %
 477   \midi {
 478     \tempo 4 = 84
 479     }
 480
 481
 482 }