mutopia/standje.ly

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