input/mutopia/F.Schubert/standchen.ly

   1 #(ly:set-option 'old-relative)
   2
   3 % #(ly:set-point-and-click 'line-column)
   4
   5 instrument = "Piano"
   6
   7 \header {
   8   title = "Ständchen"
   9   subtitle = "(Serenade)"
  10   subsubtitle = "Leise flehen meine Lieder"
  11   opus = "D. 957 No. 4"
  12   date = "August 1828"
  13   composer = "Franz Schubert (1797-1828)"
  14   poet = "Text by Ludwig Rellstab (1799-1860)"
  15   enteredby = "JCN"
  16   copyright = "public domain"
  17   % instrument = \instrument
  18
  19   % mutopia headers.
  20   mutopiatitle = "Standchen"
  21   mutopiasubtitle = "Leise flehen meine Lieder"
  22   mutopiacomposer = "Franz Schubert (1797-1828)"
  23   mutopiapoet = "Ludwig Rellstab (1799-1860)"
  24   mutopiaopus = "D957.4"
  25   mutopiainstrument = \instrument
  26   date = "1828/08"
  27   style = "Romantic"
  28   source = "Schubert-Lieder Edition Schott No. 608, (Not dated).
  29     Jubilaeums-Ausgabe zum 100. Todestage (~1928)."
  30
  31   copyright = "Public Domain"
  32   maintainer = "Jan Nieuwenhuizen"
  33   maintainerEmail = "janneke@gnu.org"
  34   lastupdated =  "2001/Apr/27"
  35   mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\thefooter\\quad\\small
  36     \\\\This music is part of the Mutopia project,
  37     \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset
  38     and placed in the public domain by " + \maintainer +
  39     ".\\\\Unrestricted modification and redistribution is permitted
  40     and encouraged---copy this music and share it.}"
  41  tagline = \mutopiapublicdomain
  42  footer = "Mutopia-2001/04/27-xx"
  43 }
  44
  45 \version "2.1.22"
  46
  47 dynamicUp = \override DynamicLineSpanner  #'direction = #1
  48 dynamicRevert = \revert DynamicLineSpanner #'direction
  49
  50 #(set-global-staff-size 16)
  51
  52 vocalVerse = \notes\relative c''{
  53         \dynamicUp
  54         \times 2/3 {  g8[(  as)] g } c4. g8 |
  55         \times 2/3 {  f8[(  g)] f } c'4 f,8 r |
  56         g4.-> f8 \times 2/3 {  f[(  es)] d } |
  57         es2 r4 |
  58         R2. |
  59         R2. |
  60         \times 2/3 {  g8[(  as)] g } es'4. g,8 |
  61         \times 2/3 {  f8[(  g)] f } d'4. c8 |
  62         bes4. as8 \times 2/3 {  as[(  g)] f } |
  63         g2 r4 |
  64         R2. |
  65         R2. |
  66         g8. b16 es4. d8 |
  67         c8. g16 es4. c8 |
  68         \grace {
  69 <<<<<<< standchen.ly
  70   \override Stem  #'stroke-style = #"grace"
  71 =======
  72   \override Stem   #'stroke-style = #"grace"
  73 >>>>>>> 1.31
  74     as'32[( bes ]
  75   \revert Stem #'stroke-style }
  76  \times 2/3 {  as8[)(  g)] as } c4. as8 |
  77         g2. |
  78         \grace {
  79 <<<<<<< standchen.ly
  80   \override Stem  #'stroke-style = #"grace"
  81 =======
  82   \override Stem   #'stroke-style = #"grace"
  83 >>>>>>> 1.31
  84     f32[( g ]
  85   \revert Stem #'stroke-style }
  86  \times 2/3 {  f8[)(  e)] f } as4. f8 |
  87
  88         es!2. |
  89         g8. b16 es4. d8 |
  90         c8. g16 e4. c8 |
  91         \grace {
  92 <<<<<<< standchen.ly
  93   \override Stem  #'stroke-style = #"grace"
  94 =======
  95   \override Stem   #'stroke-style = #"grace"
  96 >>>>>>> 1.31
  97     a'32[( b ]
  98   \revert Stem #'stroke-style }
  99  \times 2/3 {  a!8[)(  gis)] a } c4. a8 |
 100         g!2. |
 101         \times 2/3 {  d'8[\f(  cis)] d } f4. b,8 |
 102         c!2. |
 103 }
 104
 105 vocalThrough = \notes\relative c{
 106         \dynamicUp
 107         g''8. g16 b8. b16 d8. d16 |
 108         c4 b r |
 109         g4. b8 d8. c16 |
 110         b2 r4 |
 111         e4. d8 \times 2/3 {  d[(  c)] b } |
 112         a8. b16 c4-> a8 r |
 113         R2. |
 114         R2. |
 115         \grace {
 116 <<<<<<< standchen.ly
 117   \override Stem  #'stroke-style = #"grace"
 118 =======
 119   \override Stem   #'stroke-style = #"grace"
 120 >>>>>>> 1.31
 121     a32[( b ]
 122   \revert Stem #'stroke-style }
 123  \times 2/3 {  a!8[)(  gis)] a } c4. a8 |
 124         g!2. |
 125         \times 2/3 {  d'8[\f(  cis)] d } f4. b,8 |
 126         c!2. ~ |
 127         % bug: slur on other staff fools lily into extending melisma
 128         c4 r c |
 129         as2. |
 130         g |
 131         e2 r4 |
 132 }
 133
 134 lyricVerseOne = \lyrics {
 135         Lei -- se fle -- hen mei -- ne Lie -- der
 136         durch die Nacht zu dir;
 137         in den stil -- len Hain her nie -- der,
 138         Lieb -- chen, komm zu mir!
 139
 140         Flüs -- ternd schlan -- ke Wip -- fel rau -- schen
 141         in des Mon -- des Licht,
 142         in des Mon -- des Licht;
 143
 144         des Ver -- rä -- ters feind -- lich Lau -- schen
 145         fürch -- te, Hol -- de, nicht,
 146         fürch -- te, Hol -- de, nicht.
 147 }
 148
 149 lyricVerseTwo = \lyrics{
 150         Hörst die Nach -- ti -- gal -- len schla -- gen?
 151         ach! sie fle -- hen dich,
 152         mit der Tö -- ne sü -- "\ss en" Kla -- gen
 153         fle -- hen sie für mich.
 154
 155         Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen,
 156         ken -- nen Lieb -- es -- schmerz,
 157         ken -- nen Lieb -- es -- schmerz,
 158
 159         rüh -- ren mit den Sil -- ber -- tö -- nen
 160         jed -- es wei -- che Herz,
 161         jed -- es wei -- che Herz.
 162 }
 163
 164 lyricThrough = \lyrics{
 165         La\ss auch dir die Brust be -- we -- gen
 166         Lieb -- chen, hö -- re mich!
 167         be -- bend harr' ich dir ent -- ge -- gen!
 168
 169         komm, be -- glük -- ke mich!
 170         komm, be -- glük -- ke mich, __
 171         be -- glük -- ke mich!
 172 }
 173
 174 trebleIntro = \notes\relative c{
 175         r8^"\bf Mäßig"\pp <g' c>-. <c es>-. <g c>-. <c es>-. <g c>-. |
 176         r8 <as c>-. <c es>-. <as c>-. <c es>-. <as c>-. |
 177         r8 <as c>-. <c d>-. <as c>-. <c d>-. <as c>-. |
 178         r8 <g b>-. <b d>-. <g b>-. <b d>-. <g b>-. |
 179 }
 180
 181 trebleVerseOne = \notes\relative c{
 182         %5
 183         r8 <g' c> <c es> <g c> <c es> <g c> |
 184         r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
 185         r8 <f g b> <g b d> <f g b> <g b d> <f g b> |
 186         r8 <es g c> <g c es> <es g c> <g c es> <es g c> |
 187         <g'' b,>4.( <f d>8)
 188         \times 2/3 { <f d>([ <es c> <d b>)] }
 189
 190         %10
 191         <c es>2. |
 192         r8 <g, c> <c es> <g c> <c es> <g c> |
 193         r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
 194         r8 <f as bes> <as bes d> <f as bes> <as bes d> <f as bes> |
 195         r8
 196         <es g bes>[
 197         <g bes es>
 198         <es g bes>
 199         <g bes es>]
 200         <es' c'>(
 201         <d bes'>4.()
 202         <f as>8)
 203
 204         \times 2/3 { <f as>([ <es g> <d f>)] }
 205         %16
 206         <es g>2. |
 207         r8 <f, g> <g b> <f g> <g b> <f g> |
 208         r8 <es g> <g c> <es g> <g c> <es g> |
 209         r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
 210         %20
 211         r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
 212 <<<<<<< standchen.ly
 213         \override Slur  #'attachment = #'(stem . stem)
 214 =======
 215         \override Slur   #'attachment = #'(stem . stem)
 216 >>>>>>> 1.31
 217         \grace {
 218 <<<<<<< standchen.ly
 219   \override Stem  #'stroke-style = #"grace"
 220 =======
 221   \override Stem   #'stroke-style = #"grace"
 222 >>>>>>> 1.31
 223     as'32[( bes ]
 224   \revert Stem #'stroke-style }
 225
 226         \times 2/3 {  as8[)( g as] } c4.->  as8) |
 227         \revert Slur #'attachment
 228         g2. |
 229         r8 <f, g> <g b> <f g> <g b> <f g> |
 230         r8 <e g> <g c> <e g> <g c> <e g> |
 231         r8 <f a c> <a c f> <f a c> <a c f> <f a c> |
 232         r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
 233         \times 2/3  { <f' f'>\f( <e e'> <f f'> }
 234         <a a'>4.-> <f f'>8)  |
 235 }
 236
 237 trebleEentje = \notes \relative c' \context Voice {
 238         \stemBoth
 239         <e e'>2 r4 |
 240         <f as!>2\(\mf <as c>8.(-> <f as>16)\) |
 241         % urg: slurs with staccati are ugly
 242         <e g>4. <e g>8-.( <e g>-. <e g>)-. |
 243         <f g>4. <b, g'>8-.( <d g>-. <f g>)-. |
 244         <e g>2 <e g>4\pp |
 245         <f a>2\( <a c>8.( <f a>16)\) |
 246         <e g>4.\( <e g>8(-. <e g>-. <e g>)\)-. |
 247         <f g>4. <b, g'>8(-. <d g>-. <f g>)-. |
 248         %60
 249         <e g>2 r4 |
 250 }
 251
 252 trebleThrough = \notes \relative c'{
 253         \stemBoth
 254         <e e'>2. |
 255         %61
 256         R2. |
 257         <g, g'>8.[\< <g g'>16 <b b'>8. <b b'>16\>\! <d d'>8. <d d'>16] |
 258
 259         %% score has double slur on chord.
 260         <c c'>4( <b c'>) r\!
 261
 262         <g g'>4. <b b'>8 <d' d, >8.->[ c16] |
 263         %65
 264         <d, e b'>2.~(\f
 265         <c e a>2)  r4
 266         <<
 267         {       a'8. b16 c4^> ( a8) r |
 268                 a8. b16 c4^> ( a8) r |
 269         }\\{
 270                 <d, f>4 <d f>2 |
 271                 <c! es>4 <c es>2 |
 272         } >>
 273
 274         % 4 bars copied from end verse1
 275         r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
 276         %70
 277         r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
 278         \times 2/3 {  <f' f'>8( <e e'> <f f'> }
 279
 280         <a a'>4.-> <f f'>8)
 281         <e e'>2. |
 282         <es! es'! >2. |
 283 <<<<<<< standchen.ly
 284         \override TextScript  #'font-shape = #'italic
 285 =======
 286         \override TextScript   #'font-shape = #'italic
 287 >>>>>>> 1.31
 288         <d d'>2._"decresc."
 289         \revert TextScript #'font-shape
 290
 291         %75
 292         <b b'>2. |
 293         <c c'>2 <e g>4\pp |
 294
 295         % four copied from begin eentje
 296         <f as!>2( <as c>8.-> <f as>16) |
 297         <e g>4. <e g>8(-. <e g>-. <e g>)-. |
 298         <f g>4. <b, g'>8(-. <d g>-. <f g>)-. |
 299         %80
 300
 301 <<<<<<< standchen.ly
 302         \override TextScript  #'font-shape = #'italic
 303 =======
 304         \override TextScript   #'font-shape = #'italic
 305 >>>>>>> 1.31
 306         <e g>2._"dim."
 307         \revert TextScript #'font-shape
 308
 309         <g, e' g>2. |
 310         <g e' g>2.\fermata |
 311 }
 312
 313 bassIntro = \notes\relative c{
 314         \dynamicUp
 315 %1
 316         <c, c'>2 r4 |
 317         <as as'>2 r4 |
 318         <f f'>2 r4 |
 319         <g g'>2 r4 |
 320 }
 321
 322 bassVerseOne = \notes\relative c{
 323 %       \clef bass
 324         \dynamicUp
 325 %5
 326         <c, c'>2 r4 |
 327         <as as'>2 r4 |
 328         <g g'>2 r4 |
 329         <c c'>2 r4 |
 330         <g g'>8 <g'' d'>[ <d' f> <g, d'> <d' f> <g, d'>] |
 331 %10
 332         <c,, c'>8 <g'' c>[ <c es> <g c> <c es> <g c>] |
 333         <c,, c'>2 r4 |
 334         <as as'>2 r4 |
 335         <bes bes'>2 r4 |
 336         <es, es'>2 r4 |
 337 %15
 338         bes'8 <bes' f'>[ <f' as> <bes, f'> <f' as> <bes, f'>] |
 339         es,8 <bes' es>[ <es g> <bes es> <es g> <bes es>] |
 340         <g, g'>2 r4 |
 341         <c c'>2 r4 |
 342         <as as'>2 r4 |
 343         <es es'>2 r4 |
 344         <bes' bes'>8 <f'' bes>[ <bes d> <f bes> <bes d> <f bes>] |
 345         <es,, es'>8 <es'' g bes>[ <g bes es> <es g bes> <g bes es> <es g bes>] |
 346         <g,, g'>2 r4 |
 347         <c c'>2 r4 |
 348         <f, f'>2 r4 |
 349         <c' c'>2 r4 |
 350         <g g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
 351         c,8 <c' e g>[ <e g c> <c e g> <e g c> <c e g>] |
 352 }
 353
 354 bassEentje = \notes\relative c{
 355         \dynamicUp
 356         <c, c'>8 <c' f as!>[ <f as c> <c f as> <f as c> <c f as>] |
 357         c,8 <c' e g>[ <e g c> <c e g> <e g c> <c e g>] |
 358         <g, g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
 359         c,8 <e' g>[ <g c> <e g> <g c> <e g>] |
 360         <c, c'>8 <c' f a>[ <f a c> <c f a> <f a c> <c f a>] |
 361         c,8 <c' e g>[ <e g c> <c e g> <e g c> <c e g>] |
 362         <g, g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
 363         c,8 <e' g>[ <g c> <e g> <g c> <e g>] |
 364 }
 365
 366 bassThrough = \notes\relative c{
 367         \dynamicUp
 368         %61
 369         <g, g'>8^"cresc." <g' b d>[ <b d f> <g b d> <as! b d >-> <b d f>] |
 370         <g, g'>8 <g' d'>[ <d' f> <g, d'> <as b d >-> <b d f>] |
 371         % copied
 372         <g, g'>8 <g' d'>[ <d' f> <g, d'> <as b d >-> <b d f>] |
 373         <g, g'>8 <g' d'>[ <d' f> <g, d'> <gis b d >-> <b d f>] |
 374         %65
 375         <gis, gis'>8 <d'' e>[\> <e b'> <d e> <e b'> <d e> \!] |
 376         <a, a'>8 <c' e>[ <e a> <c e> <e a> <c e>] |
 377         <a, a'>8 <a' d f>[ <d f a> <a d f> <d f a> <a d f>] |
 378         <a, a'>8 <a' c e>[ <c e a> <a c e> <c e a> <a c e>] |
 379         % 4 bars copied from end verse1
 380         <f, f'>2\p r4 |
 381         %70
 382         <c' c'>2 r4 |
 383         <g g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
 384         c,8\> <c' e g>[ < e g c> \! <c e g> <e g c> <c e g>] |
 385
 386         <c, c'>8 <c' es! g>[ <es g c> <c es g> <es g c> <c es g>] |
 387         <f,, f'>8 <d'' f>[ <f as!> <d f> <f as> <d f>] |
 388         %75
 389         <g,, g'>8 <d'' f>[ <f g> <d f> <f g> <d f>] |
 390         c,8 <c' e>[ <e g> <c e> <e g> <c e>] |
 391         c,8 <c' f>[ <f as> <c f> <f as> <c f>] |
 392         c,8 <c' e>[ <e g> <c e> <e g> <c e>] |
 393         g,8 <g' d'>[ <d' f> <g, d'> <d' f> <g, d'>] |
 394         %80
 395         c,8 <c' e>[ <e g> <c e> <e g> <c e>] |
 396         c,8 <c' g>[ <e c> <c g> <e c> <c g>] |
 397         <c, g' c>2._\fermata |
 398 }
 399
 400 global = \notes{
 401         \time 3/4
 402         \key es \major
 403         \skip 1 * 3/4 * 4
 404         \break
 405         \skip 1 * 3/4 * 25
 406         \break
 407         \skip 1 * 3/4 * 6
 408         \break
 409         \skip 1 * 3/4 * 41
 410         \break
 411         \skip 1 * 3/4 * 6
 412         \bar "|."
 413 }
 414
 415 allLyrics = {
 416         % maybe should be bigger by default, in grob-description.scm ?
 417         \lyricsto "leise" \new Lyrics {
 418             \lyricVerseOne
 419             \lyricVerseTwo
 420             \lyricThrough
 421 } }
 422
 423 vocals = \context Voice = leise \notes {
 424         \clef treble
 425         % certainly no auto-beaming for vocals
 426         \autoBeamOff
 427
 428         \dynamicUp
 429         % duh 1 != 3/4
 430         R1 * 3/4 * 4
 431         \vocalVerse
 432         R1 * 3/4 * 8
 433         \vocalVerse
 434         \vocalThrough
 435         R1 * 3/4 * 6
 436 }
 437
 438 <<<<<<< standchen.ly
 439 trebleStaff =  \context Staff = treble<<
 440         \set Staff.midiInstrument =  "acoustic grand"
 441 =======
 442 trebleStaff = \context Staff = treble<<
 443         \set Staff.midiInstrument = "acoustic grand"
 444 >>>>>>> 1.31
 445         \global
 446         {\clef treble
 447 <<<<<<< standchen.ly
 448         \override autoBeamSettings  #'(begin * * * *) = #(ly:make-moment 0 1)
 449 =======
 450         \override autoBeamSettings   #'(begin * * * *) = #(ly:make-moment 0 1)
 451 >>>>>>> 1.31
 452         \trebleIntro
 453         \trebleVerseOne
 454         \trebleEentje
 455         \trebleVerseOne
 456         \trebleThrough }
 457 >>
 458
 459 <<<<<<< standchen.ly
 460 bassStaff =  \context Staff = bass<<
 461         \set Staff.midiInstrument =  "acoustic grand"
 462 =======
 463 bassStaff = \context Staff = bass<<
 464         \set Staff.midiInstrument = "acoustic grand"
 465 >>>>>>> 1.31
 466         \global
 467         \clef bass
 468         {\bassIntro
 469         \bassVerseOne
 470         \bassEentje
 471         \bassVerseOne
 472         \bassThrough}
 473 >>
 474
 475
 476 \score{
 477     <<
 478         \new Staff <<
 479 <<<<<<< standchen.ly
 480             \set Staff.midiInstrument =  "synth voice"
 481 =======
 482             \set Staff.midiInstrument = "synth voice"
 483 >>>>>>> 1.31
 484             %% insert \transpose if necessary, depending on voice range.
 485             \global
 486             \vocals
 487         >>
 488         \allLyrics
 489         \context PianoStaff <<
 490             \trebleStaff
 491             \bassStaff
 492         >>
 493     >>
 494     \paper {
 495                                 % Use
 496                                 %   textheight = 280.\mm
 497                                 %   linewidth = 190.\mm
 498                                 % to get this on 3 pages of a4.
 499
 500                                 % Mandatory Mutopia settings yield 4 pages :(
 501         textheight = 270.0\mm
 502         linewidth = 180.0\mm
 503
 504         \translator { \RemoveEmptyStaffContext }
 505     }
 506     \midi{
 507         \tempo 4 = 54
 508     }
 509 }
 510