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 "1.9.0"
  46
  47 dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1
  48 dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction
  49
  50 \include "paper16.ly"
  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 {  as'32-[( bes ] } \times 2/3 {  as8-[-)(  g-)] as } c4. as8 |
  69         g2. |
  70         \grace {  f32-[( g ] } \times 2/3 {  f8-[-)(  e-)] f } as4. f8 |
  71
  72         es!2. |
  73         g8. b16 es4. d8 |
  74         c8. g16 e4. c8 |
  75         \grace {  a'32-[( b ] } \times 2/3 {  a!8-[-)(  gis-)] a } c4. a8 |
  76         g!2. |
  77         \times 2/3 {  d'8-[-\f(  cis-)] d } f4. b,8 |
  78         c!2. |
  79 }
  80
  81 vocalThrough =  \notes\relative c{
  82         \dynamicUp
  83         g''8. g16 b8. b16 d8. d16 |
  84         c4 b r |
  85         g4. b8 d8. c16 |
  86         b2 r4 |
  87         e4. d8 \times 2/3 {  d-[(  c-)] b } |
  88         a8. b16 c4-> a8 r |
  89         R2. |
  90         R2. |
  91         \grace {  a32-[( b ] } \times 2/3 {  a!8-[-)(  gis-)] a } c4. a8 |
  92         g!2. |
  93         \times 2/3 {  d'8-[-\f(  cis-)] d } f4. b,8 |
  94         c!2. ~ |
  95         % bug: slur on other staff fools lily into extending melisma
  96         c4 r c |
  97         as2. |
  98         g |
  99         e2 r4 |
 100 }
 101
 102 lyricVerseOne =  \lyrics{
 103         Lei -- se fle -- hen mei -- ne Lie -- der
 104         durch die Nacht zu dir;
 105         in den stil -- len Hain her nie -- der,
 106         Lieb -- chen, komm zu mir!
 107
 108         Fl\"us -- ternd schlan -- ke Wip -- fel rau -- schen
 109         in des Mon -- des Licht,
 110         in des Mon -- des Licht;
 111
 112         des Ver -- r\"a -- ters feind -- lich Lau -- schen
 113         f\"urch -- te, Hol -- de, nicht,
 114         f\"urch -- te, Hol -- de, nicht.
 115 }
 116
 117 lyricVerseTwo =  \lyrics{
 118         H\"orst die Nach -- ti -- gal -- len schla -- gen?
 119         ach! sie fle -- hen dich,
 120         mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen
 121         fle -- hen sie f\"ur mich.
 122
 123         Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen,
 124         ken -- nen Lieb -- es -- schmerz,
 125         ken -- nen Lieb -- es -- schmerz,
 126
 127         r\"uh -- ren mit den Sil -- ber -- t\"o -- nen
 128         jed -- es wei -- che Herz,
 129         jed -- es wei -- che Herz.
 130 }
 131
 132 lyricThrough =  \lyrics{
 133         La\ss auch dir die Brust be -- we -- gen
 134         Lieb -- chen, h\"o -- re mich!
 135         be -- bend harr' ich dir ent -- ge -- gen!
 136
 137         komm, be -- gl\"uk -- ke mich!
 138         komm, be -- gl\"uk -- ke mich, __
 139         be -- gl\"uk -- ke mich!
 140 }
 141
 142 trebleIntro =  \notes\relative c{
 143         r8^"\bf M\\\"a\\ss ig"-\pp <<g' c>>-. <<c es>>-. <<g c>>-. <<c es>>-. <<g c>>-. |
 144         r8 <<as c>>-. <<c es>>-. <<as c>>-. <<c es>>-. <<as c>>-. |
 145         r8 <<as c>>-. <<c d>>-. <<as c>>-. <<c d>>-. <<as c>>-. |
 146         r8 <<g b>>-. <<b d>>-. <<g b>>-. <<b d>>-. <<g b>>-. |
 147 }
 148
 149 trebleVerseOne =  \notes\relative c{
 150         %5
 151         r8 <<g' c>> <<c es>> <<g c>> <<c es>> <<g c>> |
 152         r8 <<f c'>> <<c' d>> <<f, c'>> <<c' d>> <<f, c'>> |
 153         r8 <<f g b>> <<g b d>> <<f g b>> <<g b d>> <<f g b>> |
 154         r8 <<es g c>> <<g c es>> <<es g c>> <<g c es>> <<es g c>> |
 155         <<g'' b,>>4.-( <<f d>>8-)
 156         \times 2/3 { <<f d>>-(-[ <<es c>> <<d b>>-)-] }
 157
 158         %10
 159         <<c es>>2. |
 160         r8 <<g, c>> <<c es>> <<g c>> <<c es>> <<g c>> |
 161         r8 <<f c'>> <<c' d>> <<f, c'>> <<c' d>> <<f, c'>> |
 162         r8 <<f as bes>> <<as bes d>> <<f as bes>> <<as bes d>> <<f as bes>> |
 163         r8
 164         <<es g bes>>-[
 165         <<g bes es>>
 166         <<es g bes>>
 167         <<g bes es>>-]
 168         <<es' c'>>-(
 169         <<d bes'>>4.-(-)
 170         <<f as>>8-)
 171
 172         \times 2/3 { <<f as>>-(-[ <<es g>> <<d f>>-)-] }
 173         %16
 174         <<es g>>2. |
 175         r8 <<f, g>> <<g b>> <<f g>> <<g b>> <<f g>> |
 176         r8 <<es g>> <<g c>> <<es g>> <<g c>> <<es g>> |
 177         r8-\pp <<es as c>> <<as c es>> <<es as c>> <<as c es>> <<es as c>> |
 178         %20
 179         r8 <<es g bes>> <<g bes es>> <<es g bes>> <<g bes es>> <<es g bes>> |
 180         \property Voice.Slur \override #'attachment = #'(stem . stem)
 181         \grace {  as'32-[( bes ] }
 182         \times 2/3 {  as8-[-)( g as] } c4.->  as8-) |
 183         \property Voice.Slur \revert #'attachment
 184         g2. |
 185         r8 <<f, g>> <<g b>> <<f g>> <<g b>> <<f g>> |
 186         r8 <<e g>> <<g c>> <<e g>> <<g c>> <<e g>> |
 187         r8 <<f a c>> <<a c f>> <<f a c>> <<a c f>> <<f a c>> |
 188         r8 <<e g c>> <<g c e>> <<e g c>> <<g c e>> <<e g c>> |
 189         \times 2/3  { <<f' f'>>-\f-( <<e e'>> <<f f'>> }
 190         <<a a'>>4.-> <<f f'>>8-)  |
 191 }
 192
 193 trebleEentje =  \notes \relative c' \context Voice {
 194         \stemBoth
 195         <<e e'>>2 r4 |
 196         <<f as!>>2-\(-\mf <<as c>>8.-(-> <<f as>>16-)-\) |
 197         % urg: slurs with staccati are ugly
 198         <<e g>>4. <<e g>>8-.-( <<e g>>-. <<e g>>-)-. |
 199         <<f g>>4. <<b, g'>>8-.-( <<d g>>-. <<f g>>-)-. |
 200         <<e g>>2 <<e g>>4-\pp |
 201         <<f a>>2-\( <<a c>>8.-( <<f a>>16-)-\) |
 202         <<e g>>4.-\( <<e g>>8-(-. <<e g>>-. <<e g>>-)-\)-. |
 203         <<f g>>4. <<b, g'>>8-(-. <<d g>>-. <<f g>>-)-. |
 204         %60
 205         <<e g>>2 r4 |
 206 }
 207
 208 trebleThrough =  \notes \relative c'{
 209         \stemBoth
 210         <<e e'>>2. |
 211         %61
 212         R2. |
 213         <<g, g'>>8.[\< <<g g'>>16 <<b b'>>8. <<b b'>>16-\>-\! <<d d'>>8. <<d d'>>16] |
 214
 215         %% score has double slur on chord.
 216         <<c c'>>4-( <<b c'>>-) r-\!
 217
 218         <<g g'>>4. <<b b'>>8 <<d' d, >>8.->[ c16] |
 219         %65
 220         <<d, e b'>>2.-~-(-\f
 221         <<c e a>>2-)  r4
 222         <
 223         {       a'8. b16 c4^> ( a8-) r |
 224                 a8. b16 c4^> ( a8-) r |
 225         }\\{
 226                 <<d, f>>4 <<d f>>2 |
 227                 <<c! es>>4 <<c es>>2 |
 228         } >
 229
 230         % 4 bars copied from end verse1
 231         r8 <<f, a c>> <<a c f>> <<f a c>> <<a c f>> <<f a c>> |
 232         %70
 233         r8 <<e g c>> <<g c e>> <<e g c>> <<g c e>> <<e g c>> |
 234         \times 2/3 {  <<f' f'>>8-( <<e e'>> <<f f'>> }
 235
 236         <<a a'>>4.-> <<f f'>>8-)
 237         <<e e'>>2. |
 238         <<es! es'! >>2. |
 239         \property Voice . TextScript \override #'font-shape = #'italic
 240         <<d d'>>2._"decresc."
 241         \property Voice . TextScript \revert #'font-shape
 242
 243         %75
 244         <<b b'>>2. |
 245         <<c c'>>2 <<e g>>4-\pp |
 246
 247         % four copied from begin eentje
 248         <<f as!>>2-( <<as c>>8.-> <<f as>>16-) |
 249         <<e g>>4. <<e g>>8-(-. <<e g>>-. <<e g>>-)-. |
 250         <<f g>>4. <<b, g'>>8-(-. <<d g>>-. <<f g>>-)-. |
 251         %80
 252
 253         \property Voice . TextScript \override #'font-shape = #'italic
 254         <<e g>>2._"dim."
 255         \property Voice . TextScript \revert #'font-shape
 256
 257         <<g, e' g>>2. |
 258         <<g e' g>>2.-\fermata |
 259 }
 260
 261 bassIntro =  \notes\relative c{
 262         \dynamicUp
 263 %1
 264         <<c, c'>>2 r4 |
 265         <<as as'>>2 r4 |
 266         <<f f'>>2 r4 |
 267         <<g g'>>2 r4 |
 268 }
 269
 270 bassVerseOne =  \notes\relative c{
 271 %       \clef bass
 272         \dynamicUp
 273 %5
 274         <<c, c'>>2 r4 |
 275         <<as as'>>2 r4 |
 276         <<g g'>>2 r4 |
 277         <<c c'>>2 r4 |
 278         <<g g'>>8 <<g'' d'>>[ <<d' f>> <<g, d'>> <<d' f>> <<g, d'>>] |
 279 %10
 280         <<c,, c'>>8 <<g'' c>>[ <<c es>> <<g c>> <<c es>> <<g c>>] |
 281         <<c,, c'>>2 r4 |
 282         <<as as'>>2 r4 |
 283         <<bes bes'>>2 r4 |
 284         <<es, es'>>2 r4 |
 285 %15
 286         bes'8 <<bes' f'>>[ <<f' as>> <<bes, f'>> <<f' as>> <<bes, f'>>] |
 287         es,8 <<bes' es>>[ <<es g>> <<bes es>> <<es g>> <<bes es>>] |
 288         <<g, g'>>2 r4 |
 289         <<c c'>>2 r4 |
 290         <<as as'>>2 r4 |
 291         <<es es'>>2 r4 |
 292         <<bes' bes'>>8 <<f'' bes>>[ <<bes d>> <<f bes>> <<bes d>> <<f bes>>] |
 293         <<es,, es'>>8 <<es'' g bes>>[ <<g bes es>> <<es g bes>> <<g bes es>> <<es g bes>>] |
 294         <<g,, g'>>2 r4 |
 295         <<c c'>>2 r4 |
 296         <<f, f'>>2 r4 |
 297         <<c' c'>>2 r4 |
 298         <<g g'>>8 <<d'' g>>[ <<g b>> <<d g>> <<g b>> <<d g>>] |
 299         c,8 <<c' e g>>[ <<e g c>> <<c e g>> <<e g c>> <<c e g>>] |
 300 }
 301
 302 bassEentje =  \notes\relative c{
 303         \dynamicUp
 304         <<c, c'>>8 <<c' f as!>>[ <<f as c>> <<c f as>> <<f as c>> <<c f as>>] |
 305         c,8 <<c' e g>>[ <<e g c>> <<c e g>> <<e g c>> <<c e g>>] |
 306         <<g, g'>>8 <<d'' g>>[ <<g b>> <<d g>> <<g b>> <<d g>>] |
 307         c,8 <<e' g>>[ <<g c>> <<e g>> <<g c>> <<e g>>] |
 308         <<c, c'>>8 <<c' f a>>[ <<f a c>> <<c f a>> <<f a c>> <<c f a>>] |
 309         c,8 <<c' e g>>[ <<e g c>> <<c e g>> <<e g c>> <<c e g>>] |
 310         <<g, g'>>8 <<d'' g>>[ <<g b>> <<d g>> <<g b>> <<d g>>] |
 311         c,8 <<e' g>>[ <<g c>> <<e g>> <<g c>> <<e g>>] |
 312 }
 313
 314 bassThrough =  \notes\relative c{
 315         \dynamicUp
 316         %61
 317         <<g, g'>>8^"cresc." <<g' b d>>[ <<b d f>> <<g b d>> <<as! b d >>-> <<b d f>>] |
 318         <<g, g'>>8 <<g' d'>>[ <<d' f>> <<g, d'>> <<as b d >>-> <<b d f>>] |
 319         % copied
 320         <<g, g'>>8 <<g' d'>>[ <<d' f>> <<g, d'>> <<as b d >>-> <<b d f>>] |
 321         <<g, g'>>8 <<g' d'>>[ <<d' f>> <<g, d'>> <<gis b d >>-> <<b d f>>] |
 322         %65
 323         <<gis, gis'>>8 <<d'' e>>[-\> <<e b'>> <<d e>> <<e b'>> <<d e>> -\!] |
 324         <<a, a'>>8 <<c' e>>[ <<e a>> <<c e>> <<e a>> <<c e>>] |
 325         <<a, a'>>8 <<a' d f>>[ <<d f a>> <<a d f>> <<d f a>> <<a d f>>] |
 326         <<a, a'>>8 <<a' c e>>[ <<c e a>> <<a c e>> <<c e a>> <<a c e>>] |
 327         % 4 bars copied from end verse1
 328         <<f, f'>>2-\p r4 |
 329         %70
 330         <<c' c'>>2 r4 |
 331         <<g g'>>8 <<d'' g>>[ <<g b>> <<d g>> <<g b>> <<d g>>] |
 332         c,8\> <<c' e g>>[ << e g c>> -\! <<c e g>> <<e g c>> <<c e g>>] |
 333
 334         <<c, c'>>8 <<c' es! g>>[ <<es g c>> <<c es g>> <<es g c>> <<c es g>>] |
 335         <<f,, f'>>8 <<d'' f>>[ <<f as!>> <<d f>> <<f as>> <<d f>>] |
 336         %75
 337         <<g,, g'>>8 <<d'' f>>[ <<f g>> <<d f>> <<f g>> <<d f>>] |
 338         c,8 <<c' e>>[ <<e g>> <<c e>> <<e g>> <<c e>>] |
 339         c,8 <<c' f>>[ <<f as>> <<c f>> <<f as>> <<c f>>] |
 340         c,8 <<c' e>>[ <<e g>> <<c e>> <<e g>> <<c e>>] |
 341         g,8 <<g' d'>>[ <<d' f>> <<g, d'>> <<d' f>> <<g, d'>>] |
 342         %80
 343         c,8 <<c' e>>[ <<e g>> <<c e>> <<e g>> <<c e>>] |
 344         c,8 <<c' g>>[ <<e c>> <<c g>> <<e c>> <<c g>>] |
 345         <<c, g' c>>2._\fermata |
 346 }
 347
 348 global =  \notes{
 349         \time 3/4
 350         \key es \major
 351         \skip 1 * 3/4 * 4
 352         \break
 353         \skip 1 * 3/4 * 25
 354         \break
 355         \skip 1 * 3/4 * 6
 356         \break
 357         \skip 1 * 3/4 * 41
 358         \break
 359         \skip 1 * 3/4 * 6
 360         \bar "|."
 361 }
 362
 363 allLyrics = \lyrics {
 364         % maybe should be bigger by default, in grob-description.scm ?
 365         \property Lyrics . LyricText \override #'font-relative-size = #1
 366         \property Lyrics . LyricHyphen \override #'maximum-length = #1.5
 367         \context LyricsVoice = "leise-1"  { \lyricVerseOne
 368         \lyricVerseTwo
 369         \lyricThrough
 370 } }
 371
 372 lyricStaff = \context Lyrics {
 373         \allLyrics
 374 }
 375
 376 vocals = \context Voice \notes {
 377         \clef treble
 378         % certainly no auto-beaming for vocals
 379         \property Voice.autoBeaming = ##f
 380         \property Staff.automaticMelismata= ##t
 381
 382         \dynamicUp
 383         % duh 1 != 3/4
 384         R1 * 3/4 * 4
 385         \vocalVerse
 386         R1 * 3/4 * 8
 387         \vocalVerse
 388         \vocalThrough
 389         R1 * 3/4 * 6
 390 }
 391
 392 vocalStaff =  \context Staff = vocal<
 393           \property Staff.midiInstrument = "synth voice"
 394         \context Voice = "leise" <        \global
 395           \vocals >
 396 >
 397
 398 treble =  {
 399         \clef treble
 400         \property Voice.autoBeamSettings \override #'(begin * * * *) = #(ly:make-moment 0 1)
 401         \trebleIntro
 402         \trebleVerseOne
 403         \trebleEentje
 404         \trebleVerseOne
 405         \trebleThrough
 406 }
 407
 408 trebleStaff =  \context Staff = treble<
 409         \property Staff.midiInstrument = "acoustic grand"
 410         \global
 411         \treble
 412 >
 413 bass =  {
 414         \clef bass
 415         \bassIntro
 416         \bassVerseOne
 417         \bassEentje
 418         \bassVerseOne
 419         \bassThrough
 420 }
 421
 422 bassStaff =  \context Staff = bass<
 423         \property Staff.midiInstrument = "acoustic grand"
 424         \global
 425         \bass
 426 >
 427
 428 grandStaff =  \context PianoStaff <
 429
 430         \trebleStaff
 431         \bassStaff
 432 >
 433
 434
 435 \score{
 436         <
 437
 438 %{
 439         Transpose as you like for your voice
 440         Range untransposed is c' to f'' (for tenors and sopranos)
 441         \transpose c' a gives a' to d'' (for basses, who sing an octave down)
 442
 443                 \addlyrics
 444                         \notes \transpose c' a \vocalStaff
 445                         \lyricStaff
 446                 \notes \transpose c' a \grandStaff
 447 %}
 448
 449                 \addlyrics
 450                         \vocalStaff
 451                         \lyricStaff
 452                 \grandStaff
 453         >
 454         \paper {
 455                 % Use
 456                 %   textheight = 280.\mm
 457                 %   linewidth = 190.\mm
 458                 % to get this on 3 pages of a4.
 459
 460                 % Mandatory Mutopia settings yield 4 pages :-(
 461                 textheight = 270.0\mm
 462                 linewidth = 180.0\mm
 463
 464                 \translator { \RemoveEmptyStaffContext }
 465         }
 466         \midi{
 467                 \tempo 4 = 54
 468         }
 469 }
 470