input/mutopia/F.Schubert/standchen.ly

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