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.10";
  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> <['b8-. 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> <['b8-. 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         <['g8.\< g> <'g16 g> <'b8. b> <\!'b16\> 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 %       <'g4. g> <'b8 b> <[d8.-> d'->> c'16] |
 228         <'g4. g> <'b8 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         <'b2 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> <['b8-. g-.(> <d-. g-.> <f-. )g-.]> |
 257         \textstyle "italic";
 258         <e2._"dim." g> |
 259         <'g2. e g> |
 260         <'g2.-\fermata e g> |
 261 }
 262
 263 $bass_intro = \melodic{
 264         \octave c;
 265         \clef bass;
 266         <'c2 c> r4 |
 267         <''as2 'as> r4 |
 268         <''f2 'f> r4 |
 269         <''g2 'g> r4 |
 270 }
 271
 272 $bass_verse1 = \melodic{
 273         \octave c;
 274 %       \clef bass;
 275         <'c2 c> r4 |
 276         <''as2 'as> r4 |
 277         <''g2 'g> r4 |
 278         <'c2 c> r4 |
 279         <''g8 'g> <[g d'> <d' f'> <g d'> <d' f'> <g d']> |
 280         <'c8 c> <[g c'> <c' es'> <g c'> <c' es'> <g c']> |
 281         <'c2 c> r4 |
 282         <''as2 'as> r4 |
 283         <''bes2 'bes> r4 |
 284         <''es2 'es> r4 |
 285         ''bes8 <['bes f> <f bes> <'bes f> <f bes> <'bes f]> |
 286         ''es8 <['bes es> <es g> <'bes es> <es g> <'bes es]> |
 287         <''g2 'g> r4 |
 288         <'c2 c> r4 |
 289         <''as2 'as> r4 |
 290         <''es2 'es> r4 |
 291         <''bes8 'bes> <[f bes> <bes d'> <f bes> <bes d'> <f bes]> |
 292         <''es8 'es> <[es g bes> <g bes es'> <es g bes> <g bes es'> <es g bes]> |
 293         <''g2 'g> r4 |
 294         <'c2 c> r4 |
 295         <''f2 'f> r4 |
 296         <'c2 c> r4 |
 297         <''g8 'g> <[d g> <g b> <d g> <g b> <d g]> |
 298         'c8 <[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         <'c8 c> <[c f as!> <f as c'> <c f as> <f as c'> <c f as]> |
 304         'c8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 305         <''g8 'g> <[d g> <g b> <d g> <g b> <d g]> |
 306         'c8 <[e g> <g c'> <e g> <g c'> <e g]> |
 307         <'c8 c> <[c f a> <f a c'> <c f a> <f a c'> <c f a]> |
 308         'c8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 309         <''g8 'g> <[d g> <g b> <d g> <g b> <d g]> |
 310         'c8 <[e g> <g c'> <e g> <g c'> <e g]> |
 311 }
 312
 313 $bass_through = \melodic{
 314         \octave c;
 315         <''g8 'g> <['g 'b d> <'b d f> <'g 'b d> <'as!-> b-> d->> <'b d f]> |
 316         <''g8 'g> <['g d> <d f> <'g d> <'as-> b-> d->> <'b d f]> |
 317         % copied
 318         <''g8 'g> <['g d> <d f> <'g d> <'as-> b-> d->> <'b d f]> |
 319         <''g8 'g> <['g d e> <d f> <'g d> <'gis-> 'b-> d->> <'b d f]> |
 320         <''gis8 'gis> <[d e> <e b> <d e> <e b> <d e]> |
 321         <''a8 'a> <[c e> <e a> <c e> <e a> <c e]> |
 322         <''a8 'a> <['a d f> <d f a> <'a d f> <d f a> <'a d f]> |
 323         <''a8 'a> <['a c e> <c e a> <'a c e> <c e a> <'a c e]> |
 324         % 4 bars copied from end verse1
 325         <''f2 'f> r4 |
 326         <'c2 c> r4 |
 327         <''g8 'g> <[d g> <g b> <d g> <g b> <d g]> |
 328         'c8 <[c e g> <e g c'> <c e g> <e g c'> <c e g]> |
 329
 330         <'c8 c> <[c es! g> <es g c'> <c es! g> <es g c'> <c es! g]> |
 331         <''f8 'f> <[d f> <f as!> <d f> <f as!> <d f]> |
 332         <''g8 'g> <[d f> <f g> <d f> <f g> <d f]> |
 333         'c8 <[c e> <e g> <c e> <e g> <c e]> |
 334         'c8 <[c f> <f as> <c f> <f as> <c f]> |
 335         'c8 <[c e> <e g> <c e> <e g> <c e]> |
 336         ''g8 <['g d> <d f> <'g d> <d f> <'g d]> |
 337         % copied from two bars back
 338         'c8 <[c e> <e g> <c e> <e g> <c e]> |
 339         'c8 <[c e> <e g> <c e> <e g> <c e]> |
 340         <'c2._\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         gourlay_maxmeasures = 7.;
 424         linewidth= 193.\mm;
 425 Score = \translator {
 426         \type Score_engraver;
 427
 428         \consists "Timing_engraver";
 429         \consists "Bar_column_engraver";
 430         \consists "Bar_number_engraver";
 431         \consists "Span_score_bar_engraver";
 432         \consists "Score_priority_engraver";
 433         \consists "Priority_horizontal_align_engraver";
 434         \consists "Vertical_align_engraver";
 435
 436
 437         \accepts "Staff_group";
 438         \accepts "Staff";
 439         \accepts "Rhythmic_staff";
 440         \accepts "Lyrics";
 441         \accepts "Grand_staff";
 442 }
 443 }
 444
 445 \score{
 446         <
 447                 \$vocal_staff
 448                 \$lyric_staff
 449                 \$grand_staff
 450         >
 451         \paper{ \a4 }
 452         \midi{
 453                 \tempo 4 = 54;
 454         }
 455 }
 456
 457
 458