input/mutopia/F.Schubert/standchen.ly

   1
   2 #(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.5.72"
  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''4.( b,> <)f8 d>
 155         % manual beam override bug
 156         %\times 2/3 { < [f( d> <es c> <)d b] > } |
 157         \times 2/3 < { [ f( es )d ] } { d c b } > |
 158         %10
 159         <c2. es> |
 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         % manual beam override bug
 164         % r8 < [ es g bes> <g bes es> <es g bes> <g bes es ] >
 165         r8 < { [ es g es g ] } { g bes g bes } { bes es bes es } >
 166         <{ es'( )  d4.() f8}{ c' | bes4.  as8 } >
 167         % manual beam override bug
 168         % \times 2/3 { < [f( as> <es g> <)d f] > } |
 169         \times 2/3 < { [ f( es )d ] } { as' g f } > |
 170         %16
 171         <es2. g> |
 172         r8 <f, g> <g b> <f g> <g b> <f g> |
 173         r8 <es g> <g c> <es g> <g c> <es g> |
 174         r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
 175         %20
 176         r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
 177         \property Voice.Slur \override #'attachment = #'(stem . stem)
 178         \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
 179         \property Voice.Slur \revert #'attachment
 180         g2. |
 181         r8 <f, g> <g b> <f g> <g b> <f g> |
 182         r8 <e g> <g c> <e g> <g c> <e g> |
 183         r8 <f a c> <a c f> <f a c> <a c f> <f a c> |
 184         r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
 185         \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
 186         < {a4.- > )f8}  { a'4. f8 }  > |
 187 }
 188
 189 trebleEentje =  \notes \relative c'{
 190         \stemBoth
 191         <e2 e'> r4 |
 192         <f2\mf as!\(> <as8.->( c> <f16 \))as> |
 193         % urg: slurs with staccati are ugly
 194         <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
 195         <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
 196         <e2 g> <e4\pp g> |
 197         <f2 a\(> <a8.( c> <f16 \))a> |
 198         <e4.\( g> <e8-.( g-.> <e-. g-.> <e-. \))g-.> |
 199         <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
 200         %60
 201         <e2 g> r4 |
 202 }
 203
 204 trebleThrough =  \notes \relative c'{
 205         \stemBoth
 206         <e2. e'> |
 207         %61
 208         R2. |
 209         [<g,8.\< g'> <g16 g'> <b8. b'> <\! b16\> b'16> <d8. d'> <d16 d'>] |
 210
 211         %% score has double slur on chord.
 212         < { c4( )b } { c'4 b } > \!r |
 213
 214         <g4. g'> <b8 b'> [<d'8.-> d,-> > c16] |
 215         %65
 216         < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 |
 217         \context Staff <
 218                 \context Voice=one {
 219                         \voiceOne
 220                         %urg
 221                         %a8. b16 c4-> () a8 r |
 222                         a8. b16 c4^> () a8 r |
 223                         %a8. b16 c4-> () a8 r |
 224                         a8. b16 c4^> () a8 r |
 225                 }
 226                 \context Voice=two {
 227                         \voiceTwo
 228                         <d,4 f> <d2 f> |
 229                         <c!4 es> <c2 es> |
 230                 }
 231         >
 232
 233         % 4 bars copied from end verse1
 234         r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
 235         %70
 236         r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
 237         \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
 238         < { a4.-> )f8 } { a'4. f8 } > |
 239         <e2. e'> |
 240         <es!2. es'! > |
 241         \property Voice . TextScript \override #'font-shape = #'italic
 242         <d2._"decresc." d'> |
 243         \property Voice . TextScript \revert #'font-shape
 244
 245         %75
 246         <b2. b'> |
 247         <c2 c'> <e4\pp g> |
 248
 249         % four copied from begin eentje
 250         <f2 as!(> <as8.-> c> <f16 )as> |
 251         <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
 252         <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
 253         %80
 254
 255         \property Voice . TextScript \override #'font-shape = #'italic
 256         <e2._"dim." g> |
 257         \property Voice . TextScript \revert #'font-shape
 258
 259         <g,2. e' g> |
 260         <g2.-\fermata e' g> |
 261 }
 262
 263 bassIntro =  \notes\relative c{
 264         \dynamicUp
 265 %1
 266         <c,2 c'> r4 |
 267         <as2 as'> r4 |
 268         <f2 f'> r4 |
 269         <g2 g'> r4 |
 270 }
 271
 272 bassVerseOne =  \notes\relative c{
 273 %       \clef bass
 274         \dynamicUp
 275 %5
 276         <c,2 c'> r4 |
 277         <as2 as'> r4 |
 278         <g2 g'> r4 |
 279         <c2 c'> r4 |
 280         <g8 g'> [<g'' d'> <d' f> <g, d'> <d' f> <g, d'>] |
 281 %10
 282         <c,,8 c'> [<g'' c> <c es> <g c> <c es> <g c>] |
 283         <c,,2 c'> r4 |
 284         <as2 as'> r4 |
 285         <bes2 bes'> r4 |
 286         <es,2 es'> r4 |
 287 %15
 288         bes'8 [<bes' f'> <f' as> <bes, f'> <f' as> <bes, f'>] |
 289         es,8 [<bes' es> <es g> <bes es> <es g> <bes es>] |
 290         <g,2 g'> r4 |
 291         <c2 c'> r4 |
 292         <as2 as'> r4 |
 293         <es2 es'> r4 |
 294         <bes'8 bes'> [<f'' bes> <bes d> <f bes> <bes d> <f bes>] |
 295         <es,,8 es'> [<es'' g bes> <g bes es> <es g bes> <g bes es> <es g bes>] |
 296         <g,,2 g'> r4 |
 297         <c2 c'> r4 |
 298         <f,2 f'> r4 |
 299         <c'2 c'> r4 |
 300         <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
 301         c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
 302 }
 303
 304 bassEentje =  \notes\relative c{
 305         \dynamicUp
 306         <c,8 c'> [<c' f as!> <f as c> <c f as> <f as c> <c f as>] |
 307         c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
 308         <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
 309         c,8 [<e' g> <g c> <e g> <g c> <e g>] |
 310         <c,8 c'> [<c' f a> <f a c> <c f a> <f a c> <c f a>] |
 311         c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
 312         <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
 313         c,8 [<e' g> <g c> <e g> <g c> <e g>] |
 314 }
 315
 316 bassThrough =  \notes\relative c{
 317         \dynamicUp
 318         %61
 319         <g,8^"cresc." g'> [<g' b d> <b d f> <g b d> <as!-> b-> d->> <b d f>] |
 320         <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
 321         % copied
 322         <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
 323         <g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
 324         %65
 325         <gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
 326         <a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
 327         <a,8 a'> [<a' d f> <d f a> <a d f> <d f a> <a d f>] |
 328         <a,8 a'> [<a' c e> <c e a> <a c e> <c e a> <a c e>] |
 329         % 4 bars copied from end verse1
 330         <f,2\p f'> r4 |
 331         %70
 332         <c'2 c'> r4 |
 333         <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
 334         c,8\> [<c' e g> < \! e g c> <c e g> <e g c> <c e g>] |
 335
 336         <c,8 c'> [<c' es! g> <es g c> <c es g> <es g c> <c es g>] |
 337         <f,,8 f'> [<d'' f> <f as!> <d f> <f as> <d f>] |
 338         %75
 339         <g,,8 g'> [<d'' f> <f g> <d f> <f g> <d f>] |
 340         c,8 [<c' e> <e g> <c e> <e g> <c e>] |
 341         c,8 [<c' f> <f as> <c f> <f as> <c f>] |
 342         c,8 [<c' e> <e g> <c e> <e g> <c e>] |
 343         g,8 [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
 344         %80
 345         c,8 [<c' e> <e g> <c e> <e g> <c e>] |
 346         c,8 [<c' g> <e c> <c g> <e c> <c g>] |
 347         <c,2._\fermata g' c> |
 348 }
 349
 350 global =  \notes{
 351         \time 3/4
 352         \key es \major
 353         \skip 1 * 3/4 * 4
 354         \break
 355         \skip 1 * 3/4 * 25
 356         \break
 357         \skip 1 * 3/4 * 6
 358         \break
 359         \skip 1 * 3/4 * 41
 360         \break
 361         \skip 1 * 3/4 * 6
 362         \bar "|."
 363 }
 364
 365 allLyrics = \lyrics {
 366         % maybe should be bigger by default, in grob-description.scm ?
 367         \property Lyrics . LyricText \override #'font-relative-size = #1
 368         \property Lyrics . LyricHyphen \override #'maximum-length = #1.5
 369         \lyricVerseOne
 370         \lyricVerseTwo
 371         \lyricThrough
 372 }
 373
 374 lyricStaff = \context Lyrics {
 375         \allLyrics
 376 }
 377
 378 vocals = \context Voice \notes {
 379         \clef treble
 380         % certainly no auto-beaming for vocals
 381         \property Voice.autoBeaming = ##f
 382         \property Staff.automaticMelismata= ##t
 383
 384         \dynamicUp
 385         % duh 1 != 3/4
 386         R1 * 3/4 * 4
 387         \vocalVerse
 388         R1 * 3/4 * 8
 389         \vocalVerse
 390         \vocalThrough
 391         R1 * 3/4 * 6
 392 }
 393
 394 vocalStaff =  \context Staff = vocal<
 395           \property Staff.midiInstrument = "synth voice"
 396           \global
 397           \vocals
 398 >
 399
 400 treble =  {
 401         \clef treble
 402         \property Voice.autoBeamSettings \override #'(begin * * * *) = #(make-moment 0 1)
 403         \trebleIntro
 404         \trebleVerseOne
 405         \trebleEentje
 406         \trebleVerseOne
 407         \trebleThrough
 408 }
 409
 410 trebleStaff =  \context Staff = treble<
 411         \property Staff.midiInstrument = "acoustic grand"
 412         \global
 413         \treble
 414 >
 415 bass =  {
 416         \clef bass
 417         \bassIntro
 418         \bassVerseOne
 419         \bassEentje
 420         \bassVerseOne
 421         \bassThrough
 422 }
 423
 424 bassStaff =  \context Staff = bass<
 425         \property Staff.midiInstrument = "acoustic grand"
 426         \global
 427         \bass
 428 >
 429
 430 grandStaff =  \context PianoStaff <
 431
 432         \trebleStaff
 433         \bassStaff
 434 >
 435
 436
 437 \score{
 438         <
 439
 440 %{
 441         Transpose as you like for your voice
 442         Range untransposed is c' to f'' (for tenors and sopranos)
 443         \transpose a gives a' to d'' (for basses, who sing an octave down)
 444
 445                 \addlyrics
 446                         \notes \transpose a \vocalStaff
 447                         \lyricStaff
 448                 \notes \transpose a \grandStaff
 449 %}
 450
 451                 \addlyrics
 452                         \vocalStaff
 453                         \lyricStaff
 454                 \grandStaff
 455         >
 456         \paper {
 457                 % Use
 458                 %   textheight = 280.\mm
 459                 %   linewidth = 190.\mm
 460                 % to get this on 3 pages of a4.
 461
 462                 % Mandatory Mutopia settings yield 4 pages :-(
 463                 textheight = 270.0\mm
 464                 linewidth = 180.0\mm
 465
 466                 \translator { \HaraKiriStaffContext }
 467         }
 468         \midi{
 469                 \tempo 4 = 54
 470         }
 471 }