mutopia/standchen.ly

   1 \header{
   2 filename =       "standchen.ly";
   3 title    = "St\"andchen";
   4 subtitle = "(Serenade)\\\``Leise flehen meine Lieder''";
   5 opus =   "D. 957 No. 4";
   6 composer =       "Franz Schubert (1797-1828)"
   7          "Text by Ludwig Rellstab (1799-1860)";
   8 enteredby =      "JCN";
   9 copyright =      "public domain";
  10 }
  11
  12 %{
  13  Tested Features@ multivoice, accents, lyrics, chords, piano music,
  14 multiple \paper{}s in one \score
  15 %}
  16
  17 \version "0.1.15";
  18
  19 $vocal_verse1 = \melodic{
  20         \octave c';
  21
  22         % ugh: treble/bass
  23 %       \clef treble;
  24 %       \clef violin;
  25         [/3 g8( )as] g \] c'4. g8 |
  26         [/3 f8( )g] f \] c'4 f8 r |
  27         g4.-> f8 [/3 f( )es] d \] |
  28         es2 r4 |
  29         % ugh: a whole should be a measure
  30         %r1 |
  31         r2. |
  32         r2. |
  33         [/3 g8( )as] g \] es'4. g8 |
  34         [/3 f8( )g] f \] d'4. c'8 |
  35         bes4. as8 [/3 as( )g] f \] |
  36         g2 r4 |
  37         r2. |
  38         r2. |
  39         g8. b16 es'4. d'8 |
  40         c'8. g16 es4. c8 |
  41         % [/3 as\grace( bes ] )
  42         [/3 as8( )g] as \] c'4. as8 |
  43         g2. |
  44         %[/3 f\grace( g] )
  45         [/3 f8( )e] f \] as4. f8 |
  46         es!2. |
  47         g8. b16 es'4. d'8 |
  48         c'8. g16 e4. c8 |
  49         % [/3 a\grace( b] )
  50         [/3 a!8( ) gis] a \] c'4. a8 |
  51         g!2. |
  52         % [/3 a\grace( b] )
  53         [/3 d'8\f cis'] d' \] f'4. b8 |
  54         c'!2. |
  55 }
  56
  57 $vocal_through = \melodic{
  58         \octave c';
  59         g8. g16 b8. b16 d'8. d16 |
  60         c'4 b r |
  61         g4. b8 d'8. c'16 |
  62         b2 r4 |
  63         e'4. d'8 [/3 d'( )c'] b \] |
  64         a8. b16 c'4-> a8 r |
  65         r2. |
  66         r2. |
  67         % 4 bars copied from end verse 1
  68         % [/3 a\grace( b] )
  69         [/3 a!8( ) gis] a \] c'4. a8 |
  70         g!2. |
  71         % [/3 a\grace( b] )
  72         [/3 d'8\f cis'] d' \] f'4. b8 |
  73         c'!2. ~ |
  74         c'4 r c' |
  75         as2. |
  76         g |
  77         es2 r4 |
  78 }
  79
  80 $lyric_verse1 = \lyric{
  81 % 5
  82         \[/3 Lei-4 se8 \] fleh-4. en8 |
  83         \[/3 mei-4 ne8 \] Lie-4 der8 _8 |
  84         Durch4. die8 \[/3 Nacht4 zu8 \] |
  85         dir;2 _4 |
  86         _4 _ _ |
  87         _ _ _ |
  88 % 11
  89         \[/3 In4 den8 \] stil-4. len8 |
  90         \[/3 Hainr4 her-8 \] nie-4. der,8 |
  91         Lieb4. chen,8 \[/3 komm4 zu8 \] |
  92         mir!2 _4 |
  93         _4 _ _ |
  94         _ _ _ |
  95 % 17
  96         Fl\"us-8. ternd16 schlan-4. ke8 |
  97         Wip-8. fel16 rau-4. schen8 |
  98         \[/3 In4 des8 \] Mon-4. des8 |
  99         Licht;2. |
 100         _4 _ _ |
 101         _4 _ _ |
 102 % 23
 103         Des8. Ver-16 r\"a-4. ters8 |
 104         feind-8. lich16 Lau-4. schen8 |
 105         \[/3 F\"urch-4 te,8 \] Hol-4. de,8 |
 106         nicht,2. |
 107         \[/3 f\"urch-4 te,8 \] Hol-4. de,8 |
 108         nicht.2. |
 109 }
 110
 111 $lyric_verse2 = \lyric{
 112 % 5
 113         \[/3 H\"orst4 die8 \] Nach-4. ti-8
 114         \[/3 gal-4 len8 \] schla-4 gen?8 _8
 115         Ach!4. sie8 \[/3 fleh-4 en8 \]
 116         dich,2 _4
 117         _4 _ _
 118         _4_ _
 119
 120 % 11
 121         \[/3 Mit4 der8 \] T\"o-4. ne8
 122         \[/3 s\"u\ss-4 en8 \] Kla-4. gen8
 123         Fleh-4. en8 \[/3 sie4 f\"ur8 \]
 124         mich.2 _4
 125         _4_ _
 126         _4_ _
 127
 128 % 17
 129         Sie-8. ver-16 stehn4. des8
 130         Bus-8. ens16 Seh-4. nen,8
 131         \[/3 Ken-4 nen8 \] Lieb-4. es-8
 132         schmerz,2.
 133         \[/3 Ken-4 nen8 \] Lieb-4. es-8
 134         schmerz,2.
 135
 136 % 23
 137         R\"uh-8. ren16 mit4. den8
 138         Sil-8. ber-16 t\"o-4. nen8
 139         \[/3 Jed-4 es8 \] wei-4. che8
 140         Herz.2.
 141         \[/3 Jed-4 es8 \] wei-4. che8
 142         Herz.2.
 143 }
 144
 145 $lyric_through = \lyric{
 146 % 37
 147         La\ss8. auch16 dir8. die16 Brust8. be-16 |
 148         we-4 gen, _ |
 149         Lieb-4. chen,8 h\"o-8. re16 |
 150         mich!2 _4 |
 151         Be-8. bend16 harr'4 ich8 _8 |
 152         dir8. ent-16 ge-4 gen!8 _8 |
 153         \[/3 Komm,4 be-8 \] gl\"u4. cke8 |
 154         mich!2. |
 155         \[/3 Komm,4 be-8 \] gl\"u4. cke8 |
 156         mich!2. |
 157         _2 be-4 |
 158         gl\"u-2. |
 159         cke2. |
 160         mich!2 _4 |
 161 }
 162
 163 $treble_intro = \melodic{
 164         \octave c';
 165         \clef violin;
 166         % ugh: i'd like to type this!
 167         %r8\pp [<g,-. c-.> <c-. es-.> <g,-. c-.> <c-. es-.> <g,-. c-.>] |
 168         r8\pp <[g,-. c-.> <c-. es-.> <g,-. c-.> <c-. es-.> <g,-. c-.]> |
 169         r8 <[as,-. c-.> <c-. es-.> <as,-. c-.> <c-. es-.> <as,-. c-.]> |
 170         r8 <[as,-. c-.> <c-. d-.> <as,-. c-.> <c-. d-.> <as,-. c-.]> |
 171         r8 <[g,-. b,-.> <b,-. d-.> <g,-. b,-.> <b,-. d-.> <g,-. b,-.]> |
 172         \break
 173
 174 }
 175
 176 $treble_verse1 = \melodic{
 177         \octave c';
 178 %       \clef violin;
 179         r8 <[g, c> <c es> <g, c> <c es> <g, c]> |
 180         r8 <[f, c> <c d> <f, c> <c d> <f, c]> |
 181         r8 <[f, g, b,> <g, b, d> <f, g, b,> <g, b, d> <f, g, b,]> |
 182         r8 <[es, g, c> <g, c es> <es, g, c> <g, c es> <es, g, c]> |
 183         <g'4.( b> <)f'8 d'> <[/3 f' d'> <es' c'> <d' b]1/1> |
 184         <c'2. es'> |
 185         r8 <[g, c> <c es> <g, c> <c es> <g, c]> |
 186         r8 <[f, c> <c d> <f, c> <c d> <f, c]> |
 187         r8 <[f, as, bes,> <as, bes, d> <f, g, bes,> <g, bes, d> <f, g, bes,]> |
 188         r8 <[es, g, bes,> <g, bes, es> <es, g, bes,> <g, bes, es]>
 189         <{ es'( | )bes4. as8}{ c'( | )d4.( )f8 } >
 190         < [/3 f as> <es g> <d f]1/1> |
 191         <es2. g> |
 192         r8 <[f, g,> <g, b,> <f, g,> <g, b,> <f, g,]> |
 193         r8 <[es, g,> <g, c> <es, g,> <g, c> <es, g,]> |
 194         r8\pp <[es, as, c> <as, c es> <es, as, c> <as, c es> <es, as, c]> |
 195         r8 <[es, g, bes,> <g, bes, es,> <es, g, bes,> <g, bes, es,> <es, g, bes,]> |
 196         % [/3 as\grace( bes )
 197         [/3 as8(( g )as]1/1 c'4.-> ) as8 |
 198         g2. |
 199         r8 <[f, g,> <g, b,> <f, g,> <g, b,> <f, g,]> |
 200         r8 <[e, g,> <g, c> <e, g,> <g, c> <e, g,]> |
 201         r8 <[f, a, c> <a, c f> <f, a, c> <a, c f> <f, a, c]> |
 202         r8 <[e, g, c> <g, c e> <e, g, c> <g, c e> <e, g, c]> |
 203         <{[/3 f'8\f( e' f']1/1 a'4. )f'8 } {\[/3 f e f \] a4. f8 } > |
 204         <e2 e'> r4 |
 205 }
 206
 207 $treble_eentje = \melodic{
 208         \octave c';
 209         <f2\mf as!(> <[as8.->( c'> <)f16 )as]> |
 210         <e4. g> <[e8-. g-.(> <e-. g-.> <e-. )g-.]> |
 211         <f4. g> <[b,8-. g-.(> <d-. g-.> <f-. )g-.]> |
 212         <e2 g\pp> <e4 g> |
 213         <f2\mf a(> <[a8.( c'> <)f16 )a]> |
 214         <e4. g> <[e8-. g-.(> <e-. g-.> <e-. )g-.]> |
 215         <f4. g> <[b,8-. g-.(> <d-. g-.> <f-. )g-.]> |
 216         <e2. g> |
 217 }
 218
 219 $treble_through = \melodic{
 220         \octave c';
 221         r2. |
 222         % lily: 221: warning: Junking request: Span_dynamic_req: the \>
 223         <[g,8.\< g> <g,16 g> <b,8. b> <\! b,16\> b16> <d8. d'> <d16 d']> |
 224         % lily: 222: warning: Can't find cresc to end.
 225         < { c4( )b, } { c'4( )b } > \!r |
 226 % ugh
 227 %       <g,4. g> <b,8 b> <[d8.-> d'->> c'16] |
 228         <g,4. g> <b,8 b> [d'8.-> c'16] |
 229 % ugh, ugh: connecting chords
 230         < { d2.\f( )a2} { e2. ~ e2 } { b2. c2 }> r4 |
 231         <
 232                 {
 233                         \voiceone
 234                         [a8. b16] c'4->( )a8 r |
 235                         [a8. b16] c'4->( )a8 r |
 236                 }
 237                 {
 238                         \voicetwo
 239                         <d4\f f> <d2 f> |
 240                         <c!4\f es> <c2 es> |
 241                 }
 242         >
 243         % 4 bars copied from end verse1
 244         r8 <[f,\p a, c> <a, c f> <f, a, c> <a, c f> <f, a, c]> |
 245         r8 <[e, g, c> <g, c e> <e, g, c> <g, c e> <e, g, c]> |
 246         <{[/3 f'8\f( e' f']1/1 a'4. )f'8 } {\[/3 f e f \] a4. f8 } > |
 247         <e2 e'> r4 |
 248         <es2 es'> r4 |
 249         <d2 d'> r4 |
 250         <b,2 b> r4 |
 251         <c2 c'> <e4\pp g> |
 252
 253         % four copied from begin eentje
 254         <f2\mf as!(> <[as8.->( c'> <)f16 )as]> |
 255         <e4. g> <[e8-. g-.(> <e-. g-.> <e-. )g-.]> |
 256         <f4. g> <[b,8-. g-.(> <d-. g-.> <f-. )g-.]> |
 257         \textstyle "italic";
 258         <e2._"dim." g> |
 259         <g,2. e g> |
 260         <g,2.-\fermata e g> |
 261 }
 262
 263 $bass_intro = \melodic{
 264         \octave c;
 265         \clef bass;
 266         <c,2 c> r4 |
 267         <as,,2 as,> r4 |
 268         <f,,2 f,> r4 |
 269         <g,,2 g,> r4 |
 270 }
 271
 272 $bass_verse1 = \melodic{
 273         \octave c;
 274 %       \clef bass;
 275         <c,2 c> r4 |
 276         <as,,2 as,> r4 |
 277         <g,,2 g,> r4 |
 278         <c,2 c> r4 |
 279         <g,,8 g,> <[g d'> <d' f'> <g d'> <d' f'> <g d']> |
 280         <c,8 c> <[g c'> <c' es'> <g c'> <c' es'> <g c']> |
 281         <c,2 c> r4 |
 282         <as,,2 as,> r4 |
 283         <bes,,2 bes,> r4 |
 284         <es,,2 es,> r4 |
 285         bes,,8 <[bes, f> <f bes> <bes, f> <f bes> <bes, f]> |
 286         es,,8 <[bes, es> <es g> <bes, es> <es g> <bes, es]> |
 287         <g,,2 g,> r4 |
 288         <c,2 c> r4 |
 289         <as,,2 as,> r4 |
 290         <es,,2 es,> r4 |
 291         <bes,,8 bes,> <[f bes> <bes d'> <f bes> <bes d'> <f bes]> |
 292         <es,,8 es,> <[es g bes> <g bes es'> <es g bes> <g bes es'> <es g bes]> |
 293         <g,,2 g,> r4 |
 294         <c,2 c> r4 |
 295         <f,,2 f,> r4 |
 296         <c,2 c> r4 |
 297         <g,,8 g,> <[d g> <g b> <d g> <g b> <d g]> |
 298         c,8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 299 }
 300
 301 $bass_eentje = \melodic{
 302         \octave c;
 303         <c,8 c> <[c f as!> <f as c'> <c f as> <f as c'> <c f as]> |
 304         c,8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 305         <g,,8 g,> <[d g> <g b> <d g> <g b> <d g]> |
 306         c,8 <[e g> <g c'> <e g> <g c'> <e g]> |
 307         <c,8 c> <[c f a> <f a c'> <c f a> <f a c'> <c f a]> |
 308         c,8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 309         <g,,8 g,> <[d g> <g b> <d g> <g b> <d g]> |
 310         c,8 <[e g> <g c'> <e g> <g c'> <e g]> |
 311 }
 312
 313 $bass_through = \melodic{
 314         \octave c;
 315         <g,,8 g,> <[g, b, d> <b, d f> <g, b, d> <as,!-> b-> d->> <b, d f]> |
 316         <g,,8 g,> <[g, d> <d f> <g, d> <as,-> b-> d->> <b, d f]> |
 317         % copied
 318         <g,,8 g,> <[g, d> <d f> <g, d> <as,-> b-> d->> <b, d f]> |
 319         <g,,8 g,> <[g, d e> <d f> <g, d> <gis,-> b,-> d->> <b, d f]> |
 320         <gis,,8 gis,> <[d e> <e b> <d e> <e b> <d e]> |
 321         <a,,8 a,> <[c e> <e a> <c e> <e a> <c e]> |
 322         <a,,8 a,> <[a, d f> <d f a> <a, d f> <d f a> <a, d f]> |
 323         <a,,8 a,> <[a, c e> <c e a> <a, c e> <c e a> <a, c e]> |
 324         % 4 bars copied from end verse1
 325         <f,,2 f,> r4 |
 326         <c,2 c> r4 |
 327         <g,,8 g,> <[d g> <g b> <d g> <g b> <d g]> |
 328         c,8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 329
 330         <c,8 c> <[c es! g> <es g c'> <c es! g> <es g c'> <c es! g]> |
 331         <f,,8 f,> <[d f> <f as!> <d f> <f as!> <d f]> |
 332         <g,,8 g,> <[d f> <f g> <d f> <f g> <d f]> |
 333         c,8 <[c e> <e g> <c e> <e g> <c e]> |
 334         c,8 <[c f> <f as> <c f> <f as> <c f]> |
 335         c,8 <[c e> <e g> <c e> <e g> <c e]> |
 336         g,,8 <[g, d> <d f> <g, d> <d f> <g, d]> |
 337         % copied from two bars back
 338         c,8 <[c e> <e g> <c e> <e g> <c e]> |
 339         c,8 <[c e> <e g> <c e> <e g> <c e]> |
 340         <c,2._\fermata g, c> |
 341 }
 342
 343 global = \melodic{
 344         \meter 3/4;
 345         \key bes es as;
 346         \skip 4 * 12;
 347         \break
 348         \skip 4 * 234;
 349         \bar "|.";
 350 }
 351
 352
 353 $lyric_four = \lyric{
 354         _4 _ _
 355         _ _ _
 356         _ _ _
 357         _ _ _
 358 }
 359
 360 lyrics = \melodic{
 361         \meter 3/4;
 362 %       \skip 4 * 12;
 363         \$lyric_four
 364         \$lyric_verse1
 365 %       \skip 4 * 24;
 366         \$lyric_four
 367         \$lyric_four
 368         \$lyric_verse2
 369         \$lyric_through
 370 }
 371
 372 $lyric_staff = \type Lyrics = lyric<
 373         \$lyrics
 374 >
 375
 376 vocals = \melodic{
 377         \skip 4 * 12;
 378         \$vocal_verse1
 379         \skip 4 * 24;
 380         \$vocal_verse1
 381         \$vocal_through
 382 }
 383
 384 $vocal_staff = \type Staff = vocal<
 385         \property Staff.instrument = "alto sax"
 386         \global
 387         \$vocals
 388 >
 389
 390 % treble = \melodic{
 391 treble = {
 392         \$treble_intro
 393         \$treble_verse1
 394         \$treble_eentje
 395         \$treble_verse1
 396         \$treble_through
 397 }
 398
 399 $treble_staff = \type Staff = treble<
 400         \global
 401         \treble
 402 >
 403
 404 bass = \melodic{
 405         \$bass_intro
 406         \$bass_verse1
 407         \$bass_eentje
 408         \$bass_verse1
 409         \$bass_through
 410 }
 411
 412 $bass_staff = \type Staff = bass<
 413         \global
 414         \bass
 415 >
 416
 417 $grand_staff = \type Grand_staff<
 418         \$treble_staff
 419         \$bass_staff
 420 >
 421
 422 a4 = \paper{
 423         linewidth= 193.\mm;
 424         \include "score-bar-numbering.ly";
 425 }
 426
 427 \score{
 428         <
 429                 \$vocal_staff
 430                 \$lyric_staff
 431                 \$grand_staff
 432         >
 433         \paper{ \a4 }
 434         \midi{
 435                 \tempo 4 = 54;
 436         }
 437 }
 438
 439
 440