input/mutopia/F.Schubert/standchen.ly

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