Shamusworld >> Repos - music/blob - moonlight-2nd.ly

   1 \version "2.16.0"
   2 \language "english"
   3
   4 \header
   5 {
   6   title = "Sonata Una Quasi Fantasia"
   7   subtitle = "Second Movement"
   8   composer = "L. V. Beethoven"
   9   meter = "Allegretto"
  10 }
  11
  12 %paperOFF = { \set Score.skipTypesetting = ##t }
  13 %paperON = { \set Score.skipTypesetting = ##f }
  14
  15 barRest =  { s2. }
  16
  17
  18 playRH =  \relative d''
  19 {
  20         \clef treble
  21         \key bf \minor
  22         \time 3/4
  23
  24         \partial 1 <df-5 af-1>4 ( | % 0
  25
  26         <c-4 af-2>2 <bf g>4 | % 1
  27         <ef-5 af,-2>-. ) r <df f,>-. | % 2
  28         <c-4 af>4-. r <bf g>-. | % 3
  29         af4-. r <gf'-5 df-1> ( | % 4
  30         <f-4 df-2>2 <ef c>4 | % 5
  31         <af df,>4-. ) r <gf bf,>-. | % 6
  32         <f df>4-. r <ef c>-. | % 7
  33         df4-. r <df-4 df,> ( ~ | % 8
  34
  35         <df df,>4 <c-5 c,> ) << { bf ~ ( } \\ { bf,-. } >> | % 9
  36         << { bf'4 ef ) df-5 ( } \\ { ef,4-. r f-. } >> | % 10
  37         << { df'4 c ) bf-4 ~ ( } \\ { af-. r g-. } >> | % 11
  38         << { bf4 af-3 ) } \\ { s2 } >> <gf' gf,>4 ~ ( | % 12
  39         <gf gf,>4 <f f,> ) << { ef ~ ( } \\ { ef,-. } >> | % 13
  40         << { ef'4 af ) gf ~ ( } \\ { af,-. r bf-. } >> | % 14
  41         << { gf'4 f ) ef-4 ~ ( } \\ { df-. r c-. } >> | % 15
  42         \partial 2 << { ef4 df-3 ) } \\ { s2 } >> | % 16
  43
  44         \repeat volta 2
  45         {
  46                 \partial 1 <df-5 f,-2>4-.
  47                 <df f,-1>2-- <df f,-2>4 | % 17
  48                 << { df4-5 ( c-3 ) } \\ { ef,2-1 } >> <cf'-5 ef,-2>4-. | % 18
  49                 <cf-- ef,-1>2 <cf ef,-2>4 | % 19
  50                 << { cf4 ( bf-3 ) } \\ { df,2-1 } >> <bf'-4 df,>4 ( | % 20
  51                 <c-5 gf-2>2 <df-4 f,-1>4 | % 21
  52                 <ef gf,>2 ) <gf,-4 ef-2>4 ~ ( | % 22
  53                 <gf ef>4 <f df> << { bf8 gf-4 } \\ { bf,4 } >> | % 23
  54                 <f' df>4 <ef c> ) <df' df,> ( | % 24
  55                 <c c,>2 <bf-4 bf,>4 | % 25
  56                 <ef ef,>4 ) r << { df-5 ~ ( } \\ { f,-. } >> | % 26
  57                 << { df'4 c ) bf ~ ( } \\ { af-. r g-. } >> | % 27
  58                 << { bf4 af ) } \\ { s2 } >> <gf' gf,>4 ( | % 28
  59                 <f f,>2 <ef ef,>4 | % 29
  60                 <af af,>4 ) r <gf gf,> ~ ( | % 30
  61                 <gf gf,>4 <f f,> ) <ef ef,>-. | % 31
  62                 <af af,>4-. r <gf-4 gf,> ~ ( | % 32
  63                 <gf gf,>4 <f f,> ) <bf-5 bf,> ~ ( | % 33
  64                 <bf bf,>4 <af-4 af,> ) r | % 34
  65                 << { c,,2-3 ( ef8-5 [ df-4 ] } \\ { gf,2. ( } >> | % 35
  66                 \partial 2 << { df'4-3 ) } \\ { f, ) } >> r % 36
  67         }
  68         \repeat volta 2
  69         {
  70                 \partial 1 <f'-5 f,>4 ~
  71                 <f f,>2 <gf-4 gf,>4 ~ | % 37
  72                 <gf gf,>2 <ef'-4 ef,>4 ~ ( | % 38
  73                 <ef ef,>4 <c-5 c,> ) <af-5 af,>-. | % 39
  74                 <df-4 df,>4 ( <f f,> ) <f, f,> ~ | % 40
  75                 <f f,>2 <gf gf,>4 ~ | % 41
  76                 <gf gf,>2 <gf'-4 gf,>4 ~ ( | % 42
  77                 <gf gf,>4 <bf-5 bf,> ) <c, c,>-. | % 43
  78                 \partial 2 <ef-4 ef,>4 ( <df-3 df,> ) % 44
  79         }
  80         \repeat volta 2
  81         {
  82                 \partial 1 <f f,>4 ~
  83                 <f f,>2 <bf,-4 bf,>4 ~ | % 45
  84                 <bf bf,>2 <ef ef,>4 ~ | % 46
  85                 <ef ef,>2 <af,-4 af,>4 ~ | % 47
  86                 <af af,>2 <df-5 df,>4 ~ | % 48
  87                 <df df,>2 <gf,-4 gf,>4 ~ | % 49
  88                 <gf gf,>2 <f f,>4 ~ ( | % 50
  89                 <f f,>4 <af af,> <cf cf,> ~ | % 51
  90                 <cf cf,>4 <bf bf,> ) <df df,> ~ ( | % 52
  91                 <df df,>2 \clef bass <gf, gf,>4 ~ | % 53
  92                 <gf gf,>2 <f f,>4 ~ | % 54
  93                 <f f,>2 <e e,>4 ~ | % 55
  94                 <e e,>2 ) <f f,>4 ~ ( | % 56
  95                 <f f,>2 <gf gf,>4 ~ | % 57
  96                 <gf gf,>2 ) <f f,>4 ~ ( | % 58
  97                 <f f,>4 <gf gf,> ) <c, c,>-. | % 59
  98                 \partial 2 <df df,>4-. r \clef treble % 60
  99         }
 100
 101         \partial 1 <df' af>4 (
 102
 103         <c af>2 <bf g>4 | % 61
 104         <ef af,>-. ) r <df f,>-. | % 62
 105         <c af>4-. r <bf g>-. | % 63
 106         af4-. r <gf' df> ( | % 64
 107         <f df>2 <ef c>4 | % 65
 108         <af df,>4-. ) r <gf bf,>-. | % 66
 109         <f df>4-. r <ef c>-. | % 67
 110         df4-. r <df df,> ( ~ | % 68
 111
 112         <df df,>4 <c c,> ) << { bf ~ ( } \\ { bf,-. } >> | % 9
 113         << { bf'4 ef ) df ( } \\ { ef,4-. r f-. } >> | % 10
 114         << { df'4 c ) bf ~ ( } \\ { af-. r g-. } >> | % 11
 115         << { bf4 af ) } \\ { s2 } >> <gf' gf,>4 ~ ( | % 12
 116         <gf gf,>4 <f f,> ) << { ef ~ ( } \\ { ef,-. } >> | % 13
 117         << { ef'4 af ) gf ~ ( } \\ { af,-. r bf-. } >> | % 14
 118         << { gf'4 f ) ef ~ ( } \\ { df-. r c-. } >> | % 15
 119         << { ef4 df ) } \\ { s2 } >> <df f,-2>4-. | %
 120
 121         <df f,-1>2-- <df f,-2>4 | % 17
 122         << { df4 ( c-3 ) } \\ { ef,2 } >> <cf' ef,-2>4-. | % 18
 123         <cf-- ef,-1>2 <cf ef,-2>4 | % 19
 124         << { cf4 ( bf-3 ) } \\ { df,2-1 } >> <bf'-4 df,>4 ( | % 20
 125         <c gf>2 <df f,>4 | % 21
 126         <ef gf,>2 ) <gf, ef>4 ~ ( | % 22
 127         <gf ef>4 <f df> << { bf8 gf } \\ { bf,4 } >> | % 23
 128         <f' df>4 <ef c> ) <df' df,> ( | % 24
 129         <c c,>2 <bf bf,>4 | % 25
 130         <ef ef,>4 ) r << { df ~ ( } \\ { f,-. } >> | % 26
 131         << { df'4 c ) bf ~ ( } \\ { af-. r g-. } >> | % 27
 132         << { bf4 af ) } \\ { s2 } >> <gf' gf,>4 ( | % 28
 133         <f f,>2 <ef ef,>4 | % 29
 134         <af af,>4 ) r <gf gf,> ~ ( | % 30
 135         <gf gf,>4 <f f,> ) <ef ef,>-. | % 31
 136         <af af,>4-. r <gf gf,> ~ ( | % 32
 137         <gf gf,>4 <f f,> ) <bf bf,> ~ ( | % 33
 138         <bf bf,>4 <af af,> ) r | % 34
 139         << { c,,2 ( ef8 [ df ] } \\ { gf,2. ( } >> | % 35
 140         << { df'4 ) } \\ { f, ) } >> r r \bar "|." % 36
 141 }
 142
 143 playDyn =
 144 {
 145         \partial 1 s4\p
 146         \barRest |
 147         s4 s s\pp |
 148         \barRest |
 149         s4 s s\p |
 150         \barRest |
 151         s4 s s\pp |
 152         \barRest |
 153         s4 s s\mf |
 154         \barRest |
 155         s4 s s\p |
 156         \barRest |
 157         s4 s s\mf |
 158         \barRest |
 159         s4 s s\p |
 160         \barRest |
 161         \barRest |
 162         \barRest |
 163         \barRest |
 164         \barRest |
 165         s4 s s\cresc |
 166         \barRest |
 167         s4\sf s s\> |
 168         s4\p s2 |
 169         s2 s4\mf |
 170         \barRest |
 171         s2 s4\p |
 172         \barRest |
 173         s2 s4-\markup { \italic { dolce } } |
 174         \barRest |
 175         s2 s4\< |
 176         s4 s\! s\> |
 177         s8 s\! s4 s\cresc |
 178         s2 s4\sf |
 179         \barRest |
 180         s4\p s2 |
 181         s2 s4\f |
 182         s4\fp s s\sf |
 183         s2 s4\sf |
 184         s4\> s\! s |
 185         s4\p s s\sf |
 186         s4\fp s s\sf |
 187         s2 s4\sf |
 188         s4\> s s\p |
 189         s2 s4\pp |
 190         \barRest |
 191         \barRest |
 192         \barRest |
 193         \barRest |
 194         s4\fp s s |
 195         \barRest |
 196         s8\< s s4\! s\> |
 197         s4 s\! s |
 198         s4\fp s s |
 199         \barRest |
 200         \barRest |
 201         \barRest |
 202         s4\cresc s s |
 203         \barRest |
 204         s4\p s s\pp |
 205
 206         s2 s4-\markup { \italic { dolce } } |
 207         s4\< s s |
 208         s8 s\! s4 s\p |
 209         \barRest |
 210         \barRest |
 211         \barRest |
 212         s4 s s\p |
 213         \barRest |
 214         s4 s s\mf |
 215         \barRest |
 216         s4 s s\p |
 217         \barRest |
 218         s4 s s\mf |
 219         \barRest |
 220         s4 s s\p |
 221         \barRest |
 222         \barRest |
 223         s4\< s s\! |
 224         s4\> s s\! |
 225         \barRest |
 226         s4 s s\cresc |
 227         \barRest |
 228         s4\sf s s\> |
 229         s4\p s s |
 230         s4 s s\p |
 231         \barRest |
 232         s4 s s\pp |
 233         \barRest |
 234         s4 s s-\markup { \italic { dolce } } |
 235         \barRest |
 236         s4 s s\< |
 237         s4 s s |
 238         s4\p s s\cresc |
 239         s4 s s\sf |
 240         s4 \> s s\pp |
 241
 242 %{
 243                                 % 5 - 8
 244     s4\p s s s |
 245     \barRest |
 246     \barRest |
 247     \barRest |
 248                                 % 9 - 12
 249     s4\pp s s s |
 250     \barRest |
 251     \crescTextCresc
 252     \override DynamicLineSpanner #'staff-padding = #5
 253     s4 s s\< s |
 254     s s s s\! |
 255
 256                                 % 13
 257     \barRest |
 258 %}
 259 }
 260
 261 playLH =  \relative f'
 262 {
 263         \clef bass
 264         \key bf \minor
 265         \time 3/4
 266
 267
 268         \partial 1 f4-1 ( | % 1
 269
 270         ef2 df4 | % 2
 271         c4-.-1 ) r <bf-2 df,-5>-. | % 3
 272         <ef ef,>4-. r <df ef,>-. | % 4
 273         <c af>4-. r \clef treble bf'-1 ( | % 5
 274         af2 gf4 | % 6
 275         f4-.-1 ) r <ef-2 gf,>-. | % 7
 276         <af af,>4-. r <gf af,>-. | % 8
 277         <f df>4-. r \clef bass <af,-2 f-3> ( | % 9
 278
 279         <af-1 ef-4>2 <g-2 df-5>4 | % 10
 280         <c c,>4 ) r <bf df,>-. | % 11
 281         <ef ef,>4-. r <df ef,>-. | % 12
 282         <c af>4-. r <df-2 bf-3> ( | % 13
 283         <df-1 af-4>2 <c gf>4 | % 14
 284         <f f,>4 ) r <ef gf,>-. | % 15
 285         <af af,>4-. r <f af,>-. | % 16
 286         \partial 2 <f df>-. r | % 17
 287
 288         \partial 1 df4-2 ( | % 18
 289         bf2 af4 | % 19
 290         g-5 af-4 ) af-.-3 | % 20
 291         af2-2 ( gf4 | % 21
 292         f4-4 gf-3 ) gf-2 ( | % 22
 293         <af ef>2-3 <af df,>4 | % 23
 294         <af c,>2. ) | % 24
 295         <af df,-3>2 ( << { gf8 ef } \\ { gf,4 } >> | % 25
 296         <af' af,>2 ) <af-1 f-2>4 ( | % 26
 297
 298         <af ef>2 <g df>4 | % 27
 299         <c c,>4 ) r <bf-2 df,>-. | % 28
 300         <ef ef,>4-. r <df ef,> | % 29
 301         <c af>4-. r <df-1 bf-2> ( | % 30
 302         <df af>2 <c gf>4 | % 31
 303         <df f,>4 ) r <df bf> ( | % 32
 304         <df af>2 ) <c-1 gf-4>4-. | % 33
 305         <df-2 f,-5>4-. r <df bf> ( | % 34
 306         <df af>2 ) <e df g,>4-> ( | % 35
 307         <f df af-4>4 ) r r | % 36
 308         <af,, af,>2. ( | % 37
 309         \partial 2 <af df,>4 ) r | % 38
 310
 311         \partial 1 r4
 312         << { af2. ~ } \\ { df,2.-5 } >> | % 39
 313         << { af'2. ~ } \\ { ef2. } >> | % 40
 314         << { af2. ~ } \\ { gf2. } >> | % 41
 315         << { af2. } \\ { f2.-3 } >> | % 42
 316         << { af2. ~ } \\ { df,2.-4 } >> | % 43
 317         << { af'2. ~ } \\ { ef2. } >> | % 44
 318         << { af2  af4 ~ } \\ { af,2 af'4 } >> | % 45
 319         \partial 2 << { af2 } \\ { df, } >> | % 46
 320
 321         \partial 1 r4
 322         <af''-1 d,-2>2. ( | % 47
 323         <g-1 df-3>2. | % 48
 324         <gf-1 c,-4>2. | % 49
 325         <f-1 c-5> 2. ) | % 50
 326         << { df2.-2 ~ } \\ { bf2.-3 } >> | % 51
 327         << { df2.-1 ~ } \\ { af2. } >> | % 52
 328         << { df2. ~ } \\ { df,4 ( f af } >> | % 53
 329         << { df2. } \\ { gf,2. ) } >> | % 54
 330         << { df'2. ~ } \\ { bf2.-2 ( } >> | % 55
 331         << { df2. ~ } \\ { af2. } >> | % 56
 332         << { df2. ~ } \\ { g,2. } >> | % 57
 333         << { df'2. } \\ { af2. ) } >> | % 58
 334         << { df2.-> ~ } \\ { bf2. ( } >> | % 59
 335         << { df2. } \\ { af2.) } >> | % 60
 336         << { af2 af4-. } \\ { af,2 s4 } >> | % 61
 337         \partial 2 << { df4-. r } \\ { df4 s } >> % 62
 338
 339         \partial 1 f''4 (
 340
 341         ef2 df4 | % 63
 342         c4-. ) r <bf df,>-. | % 64
 343         <ef ef,>4-. r <df ef,>-. | % 65
 344         <c af>4-. r \clef treble bf' ( | % 66
 345         af2 gf4 | % 67
 346         f4-. ) r <ef gf,>-. | % 68
 347         <af af,>4-. r <gf af,>-. | % 69
 348         <f df>4-. r \clef bass <af, f> ( | % 70
 349
 350         <af ef>2 <g df>4 | % 10
 351         <c c,>4 ) r <bf df,>-. | % 11
 352         <ef ef,>4-. r <df ef,>-. | % 12
 353         <c af>4-. r <df bf> ( | % 13
 354         <df af>2 <c gf>4 | % 14
 355         <f f,>4 ) r <ef gf,>-. | % 15
 356         <af af,>4-. r <f af,>-. | % 16
 357         <f df>-. r df4-2 ( | % 18
 358
 359         bf2-3 af4 | % 19
 360         g-5 af-4 ) af-.-3 | % 20
 361         af2-2 ( gf4 | % 21
 362         f4-4 gf-3 ) gf-2 ( | % 22
 363         <af ef>2-3 <af df,>4 | % 23
 364         <af c,>2. ) | % 24
 365         <af df,>2 ( << { gf8 ef } \\ { gf,4 } >> | % 25
 366         <af' af,>2 ) <af f>4 ( | % 26
 367
 368         <af ef>2 <g df>4 | % 27
 369         <c c,>4 ) r <bf df,>-. | % 28
 370         <ef ef,>4-. r <df ef,> | % 29
 371         <c af>4-. r <df bf> ( | % 30
 372         <df af>2 <c gf>4 | % 31
 373         <df f,>4 ) r <df bf> ( | % 32
 374         <df af>2 ) <c gf>4-. | % 33
 375         <df f,>4-. r <df bf> ( | % 34
 376         <df af>2 ) <e df g,>4-> ( | % 35
 377         <f df af>4 ) r r | % 36
 378         <af,, af,>2. ( | % 37
 379         <af df,>4 ) r r | % 38
 380 }
 381
 382 scoreAll =
 383 {
 384     \new PianoStaff
 385     {
 386 %        \override PianoStaff.VerticalAlignment #'forced-distance = #13   % gap between staves -- default 12
 387         \set PianoStaff.midiInstrument = "acoustic grand"
 388         %% \accidentalStyle "piano"
 389         <<
 390             \context Staff = "rh"
 391             {
 392                 %% \override Staff.TextScript #'staff-padding = #2
 393                 \override Staff.DynamicLineSpanner #'staff-padding = #3.5  % (forced-distance - 6) / 2
 394                 %% \override Staff.Hairpin #'minimum-length = #3
 395                 <<
 396                     \playRH
 397                     \playDyn
 398                 >>
 399                 \bar "|."
 400             }
 401             \context Staff = "lh"
 402             {
 403                 \set Staff.pedalSustainStyle = #'bracket
 404                 %% \override Staff.PianoPedalBracket  #'shorten-pair = #'(0 . -1.0)
 405                 \playLH
 406                 \bar "|."
 407             }
 408         >>
 409     }
 410 }
 411
 412
 413 \score
 414 {
 415     {
 416         \scoreAll
 417     }
 418     \layout {}
 419     \midi
 420     {
 421         \tempo 4 = 50
 422         %% Remove the dynamics from the midi output
 423         \context
 424         {
 425             \Voice
 426             \remove "Dynamic_performer"
 427 %            \remove "Span_dynamic_performer"
 428         }
 429     }
 430 }