]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/F.Schubert/standchen.ly
release: 1.2.13
[lilypond.git] / mutopia / F.Schubert / standchen.ly
index 3a9d9a039f58aca266c825b97d421df702f386f4..51b3ba5798f0d5ec938a4ff277789e6748e27336 100644 (file)
@@ -11,24 +11,19 @@ copyright =  "public domain";
 } 
 
 %{
- Tested Features@ multivoice accents lyrics chords piano music
+ Tested Features: multivoice accents lyrics chords piano music
 multiple \paper{}s in one \score 
 Note: Original key F.
 %}
 
-\version "1.0.14";
+\version "1.2.0";
 
-$vocal_verse1 = \notes\relative c''{
-       % ugh: treble/bass
-       % ?
-       \clef treble;
-       \property Voice.dynamicdir=1
+vocalVerse = \notes\relative c''{
+       \property Voice.dynamicDirection=1
        \times 2/3 { [ g8( )as] g } c4. g8 |
        \times 2/3 { [ f8( )g] f } c'4 f,8 r |
        g4.-> f8 \times 2/3 { [ f( )es] d } |
        es2 r4 |
-       % ugh: a whole should be a measure
-       %r1 |
        R2. |
        R2. |
        \times 2/3 { [ g8( )as] g } es'4. g,8 |
@@ -39,27 +34,21 @@ $vocal_verse1 = \notes\relative c''{
        R2. |
        g8. b16 es4. d8 |
        c8. g16 es4. c8 |
-       % \times 2/3 { [ as\grace( bes ] )
-%      \tiny  [as'16*1/16 bes16*1/16 ] 
-%      \normalsize \times 2/3 {  [as8 g8] as8 } c4. as8 |
-       \times 2/3 { [ as'8( )g] as } c4. as8 |
+       \grace { as'16 bes } \times 2/3 { [ )as8( )g] as } c4. as8 |
        g2. |
-       %\times 2/3 { [ f\grace( g] )
-       \times 2/3 { [ f8( )e] f } as4. f8 |
-       %\tiny \times 2/3 {  [f`16*1/16 g16*1/16] \normalsize
+       \grace { f16( g } \times 2/3 { [ )f8( )e] f } as4. f8 |
+  
        es!2. |
        g8. b16 es4. d8 |
        c8. g16 e4. c8 |
-       % \times 2/3 { [ a\grace( b] )
-       \times 2/3 { [ a'!8( ) gis] a } c4. a8 |
+       \grace { a'16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
        g!2. |
-       % \times 2/3 { [ a\grace( b] )
-       \times 2/3 { [ d'8\f cis] d } f4. b,8 |
+       \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
        c!2. |
 }
 
-$vocal_through = \notes\relative c{
-       \property Voice.dynamicdir=1
+vocalThrough = \notes\relative c{
+       \property Voice.dynamicDirection=1
        g''8. g16 b8. b16 d8. d16 |
        c4 b r |
        g4. b8 d8. c16 |
@@ -68,12 +57,9 @@ $vocal_through = \notes\relative c{
        a8. b16 c4-> a8 r |
        R2. |
        R2. |
-       % 4 bars copied from end verse 1
-       % \times 2/3 { [ a\grace( b] )
-       \times 2/3 { [ a!8( ) gis] a } c4. a8 |
+       \grace { a16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
        g!2. |
-       % \times 2/3 { [ a\grace( b] )
-       \times 2/3 { [ d'8\f cis] d } f4. b,8 |
+       \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
        c!2. ~ |
        c4 r c |
        as2. |
@@ -81,205 +67,155 @@ $vocal_through = \notes\relative c{
        e2 r4 |
 }
 
-$lyric_verse1 = \lyrics{
-% 5
-       \times 2/3 {  Lei-4 se8 } fleh-4. en8 |
-       \times 2/3 {  mei-4 ne8 } Lie-4 der8 _8 |
-       Durch4. die8 \times 2/3 {  Nacht4 zu8 } |
-       dir;2 _4 |
-       _4 _ _ |
-       _ _ _ |
-% 11
-       \times 2/3 {  In4 den8 } stil-4. len8 |
-       \times 2/3 {  Hain4 her-8 } nie-4. der8 |
-       Lieb-4. chen,8 \times 2/3 {  komm4 zu8 } |
-       mir!2 _4 |
-       _4 _ _ |
-       _ _ _ |
-% 17
-       Fl\"us-8. ternd16 schlan-4. ke8 |
-       Wip-8. fel16 rau-4. schen8 |
-       \times 2/3 {  In4 des8 } Mon-4. des8 |
-       Licht;2. |
-       \times 2/3 {  In4 des8 } Mon-4. des8 |
-       Licht;2. |
-% 23 
-       Des8. Ver-16 r\"a-4. thers8 |
-       feind-8. lich16 Lau-4. schen8 |
-       \times 2/3 {  F\"urch-4 te8 } Hol-4. de8 |
-       nicht2. |
-       \times 2/3 {  f\"urch-4 te8 } Hol-4. de8 |
-       nicht.2. |
+lyricVerseOne = \lyrics{
+       Lei- se fleh- en mei- ne Lie- der 
+       Durch die Nacht zu dir; 
+       In den stil- len Hain her- nie- der
+       Lieb- chen, komm zu mir! 
+       
+       Fl\"us- ternd schlan- ke Wip- fel rau- schen
+       In des Mon- des Licht,
+       In des Mon- des Licht;
+
+       Des Ver- r\"a- ters feind- lich Lau- schen
+       F\"urch- te, Hol- de, nicht,
+       F\"urch- te, Hol- de, nicht.
 }
        
-$lyric_verse2 = \lyrics{
-% 5
-       \times 2/3 {  H\"orst4 die8 } Nach-4. ti-8 
-       \times 2/3 {  gal-4 len8 } schla-4 gen?8 _8
-       ach!4. sie8 \times 2/3 {  fleh-4 en8 } 
-       dich,2 _4
-       _4 _ _ 
-       _4_ _
-
-% 11
-       \times 2/3 {  Mit4 der8 } T\"o-4. ne8
-       \times 2/3 {  s\"u-4 "\ss{}en"8 } Kla-4. gen8
-       Fleh-4. en8 \times 2/3 {  sie4 f\"ur8 }
-       mich2 _4
-       _4_ _ 
-       _4_ _
-
-% 17
-       Sie-8. ver-16 stehn4. des8
-       Bus-8. ens16 Seh-4. nen8
-       \times 2/3 {  Ken-4 nen8 } Lieb-4. es-8 
-       schmerz,2.
-       \times 2/3 {  Ken-4 nen8 } Lieb-4. es-8 
-       schmerz.2.
-
-% 23
-       R\"uh-8. ren16 mit4. den8 
-       Sil-8. ber-16 t\"o-4. nen8
-       \times 2/3 {  jed-4 es8 } wei-4. che8 
-       Herz,2.
-       \times 2/3 {  jed-4 es8 } wei-4. che8 
-       Herz.2.
+lyricVerseTwo = \lyrics{
+       H\"orst die Nach- ti- gal- len schla- gen? 
+       Ach! sie fleh- en dich, 
+       Mit der T\"o- ne s\"u- "\ss en" Kla- gen
+       Fleh- en sie f\"ur mich. 
+       
+       Sie- ver- "steh'n" des Bus- ens Seh- nen
+       Ken- nen Lieb- es- schmerz,
+       Ken- nen Lieb- es- schmerz.
+
+       R\"uh- ren mit den Sil- ber- t\"o- nen
+       Jed- es wei- che Herz,
+       Jed- es wei- che Herz.
 }
 
-$lyric_through = \lyrics{
-% 37
-       La\ss8. auch16 dir8. die16 Brust8. be-16 |
-       we-4 gen _ |
-       Lieb-4. chen,8 h\"o-8. re16 |
-       mich!2 _4 |
-       Be-4. bend8 \times 2/3 {  harr'4 ich8} |
-       dir8. ent-16 ge-4 gen!8 _8 |
-       _2. |
-       _2. |
-       \times 2/3 {  Komm4 be-8 } gl\"u4. cke8 |
-       mich!2. |
-       \times 2/3 {  Komm4 be-8 } gl\"u4. cke8 |
-       mich,2. __ |
-       _2 be-4 |
-       gl\"u-2. |
-       cke2. |
-       mich!2 _4 |
+lyricThrough = \lyrics{
+       La\ss auch dir die Brust be- we- gen 
+       Lieb- chen, h\"o- re mich! 
+       Be- bend harr' ich dir ent- ge- gen! 
+       
+       Komm, be- gl\"uk- ke mich!
+       Komm, be- gl\"uk- ke mich, __ 
+       Be- gl\"uk- ke mich!
 }
 
-$treble_intro = \notes\relative c{
-       \clef violin;
-       % ugh: id like to type this!
-       %r8\pp [<g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.>] |
-       r8^"\bf m\\\"assig"\pp [<g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.>] |
-       r8 [<as-. c-.> <c-. es-.> <as-. c-.> <c-. es-.> <as-. c-.>] |
-       r8 [<as-. c-.> <c-. d-.> <as-. c-.> <c-. d-.> <as-. c-.>] |
-       r8 [<g-. b-.> <b-. d-.> <g-. b-.> <b-. d-.> <g-. b-.>] |
+trebleIntro = \notes\relative c{
+       r8^"\bf M\\\"a\\ss ig"\pp <g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.> |
+       r8 <as-. c-.> <c-. es-.> <as-. c-.> <c-. es-.> <as-. c-.> |
+       r8 <as-. c-.> <c-. d-.> <as-. c-.> <c-. d-.> <as-. c-.> |
+       r8 <g-. b-.> <b-. d-.> <g-. b-.> <b-. d-.> <g-. b-.> |
        \break
 }
 
-$treble_verse1 = \notes\relative c{
-%      \clef violin;
+trebleVerseOne = \notes\relative c{
        %5
-       r8 [<g' c> <c es> <g c> <c es> <g c>] |
-       r8 [<f c'> <c' d> <f, c'> <c' d> <f, c'>] |
-       r8 [<f g b> <g b d> <f g b> <g b d> <f g b>] |
-       r8 [<es g c> <g c es> <es g c> <g c es> <es g c>] |
+       r8 <g' c> <c es> <g c> <c es> <g c> |
+       r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
+       r8 <f g b> <g b d> <f g b> <g b d> <f g b> |
+       r8 <es g c> <g c es> <es g c> <g c es> <es g c> |
        <g''4.( b,> <)f8 d>
-         \times 2/3 { < [ f( d> <es c> <)d b] > } |
+       \times 2/3 { < [ f( d> <es c> <)d b] > } |
        %10
        <c2. es> |
-       r8 [<g, c> <c es> <g c> <c es> <g c>] |
-       r8 [<f c'> <c' d> <f, c'> <c' d> <f, c'>] |
-       r8 [<f as bes> <as bes d> <f g bes> <as bes d> <f g bes>] |
-       r8 [<es g bes> <g bes es> <es g bes> <g bes es>] 
-       <{ es'~ | d4. ~ f8}{ c'~ | bes4. ~ as8 } > 
-        \times 2/3 { < [f( as> <es g> <)d f] > } |
+       r8 <g, c> <c es> <g c> <c es> <g c> |
+       r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
+       r8 <f as bes> <as bes d> <f g bes> <as bes d> <f g bes> |
+       r8 <es g bes> <g bes es> <es g bes> <g bes es> 
+       <{ es'( )  d4.() f8}{ c' | bes4.  as8 } > 
+       \times 2/3 { < [f( as> <es g> <)d f] > } |
        %16
        <es2. g> |
-       r8 [<f, g> <g b> <f g> <g b> <f g>] |
-       r8 [<es g> <g c> <es g> <g c> <es g>] |
-       r8\pp [<es as c> <as c es> <es as c> <as c es> <es as c>] |
+       r8 <f, g> <g b> <f g> <g b> <f g> |
+       r8 <es g> <g c> <es g> <g c> <es g> |
+       r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
        %20
-       r8 [<es g bes> <g bes es> <es g bes> <g bes es> <es g bes>] |
-       % \times 2/3 { [ as\grace( bes )
-       \times 2/3 { [ as'8( g as] } c4.-> ) as8 |
+       r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
+       \grace { as'16( bes } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
        g2. |
-       r8 [<f, g> <g b> <f g> <g b> <f g>] |
-       r8 [<e g> <g c> <e g> <g c> <e g>] |
-       r8 [<f a c> <a c f> <f a c> <a c f> <f a c>] |
-       r8 [<e g c> <g c e> <e g c> <g c e> <e g c>] |
+       r8 <f, g> <g b> <f g> <g b> <f g> |
+       r8 <e g> <g c> <e g> <g c> <e g> |
+       r8 <f a c> <a c f> <f a c> <a c f> <f a c> |
+       r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
        \times 2/3 <
          { [ f'8\f( e f]  }
          {  f' e f } >
-       < {a4.- > )f8}  { a4. f8 }  > |
+       < {a4.- > )f8}  { a'4. f8 }  > |
 }
 
-$treble_eentje = \notes \relative c'{
+trebleEentje = \notes \relative c'{
+       \context Voice=one \property Voice.verticalDirection = 0
        <e2 e'> <e4 g>|
-       <f2\mf as!(> [<as8.->( c> <)f16 )as>] |
-       <e4. g> [<e8-. g-.(> <e-. g-.> <e-. )g-.>] |
-       <f4. g> [<b,8-. g'-.(> <d-. g-.> <f-. )g-.>] |
+       <f2\mf as!(> <as8.->( c> <)f16 )as> |
+       <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+       <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        <e2 g> <e4\pp g> |
-       <f2 a(> [<a8. c> <f16 )a>] |
-       <e4. g> [<e8-. g-.(> <e-. g-.> <e-. )g-.>] |
-       <f4. g> [<b,8-. g'-.(> <d-. g-.> <f-. )g-.>] |
+       <f2 a(> <a8. c> <f16 )a> |
+       <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+       <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        %60
        <e2. g> |
 }
 
-$treble_through = \notes \relative c'{
+trebleThrough = \notes \relative c'{
+       \context Voice=one \property Voice.verticalDirection = 0
        <e2. e'> |
        %61
        R2. |
        [<g,8.\< g'> <g16 g'> <b8. b'> <\! b16\> b'16> <d8. d'> <d16 d'>] |
        < { c4( )b } { c'4( )b } > \!r |
-% ugh
-%      <g4. g> <b8 b> [<d8.-> d->> c16] |
+
        <g4. g'> <b8 b'> [<d'8.-> d,-> > c16] |
-% ugh ugh: connecting chords
        %65
        < { d,2.\f a'2} { e2. ~ e2 } { b'2. c,2 }> r4 |
-       \type Staff < 
+       \context Staff < 
                {
-                       \voiceone 
-                       [a8. b16] c4-> ~ a8 r |
-                       [a8. b16] c4-> ~ a8 r |
+                       \context Voice=one \property Voice.verticalDirection = 1 
+                       a8. b16 c4-> () a8 r |
+                       a8. b16 c4-> () a8 r |
                }
                { 
-                       \voicetwo 
+                       \context Voice=two \property Voice.verticalDirection = -1 
                        <d,4 f> <d2 f> |
                        <c!4 es> <c2 es> |
                }
        >
+       \context Voice=one \property Voice.verticalDirection = 0
        % 4 bars copied from end verse1
-       r8 [<f, a c> <a c f> <f a c> <a c f> <f a c>] |
+       r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
        %70
-       r8 [<e g c> <g c e> <e g c> <g c e> <e g c>] |
+       r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
        \times 2/3 < { [ f'8\f( e f] }
           {  f' e f }>
-       < { a4.-> )f8 } { a4. f8 } > |
+       < { a4.-> )f8 } { a'4. f8 } > |
        <e2 e'> r4 |
        <es!2 es'! > r4 |
-       \property Voice . textstyle =  "italic"
+       \property Voice . textStyle =  "italic"
        <d2_"decresc." d'> r4 |
        %75
        <b2 b'> r4 |
        <c2 c'> <e4\pp g> |
 
        % four copied from begin eentje
-       <f2 as!(> [<as8.-> c> <f16 )as>] |
-       <e4. g> [<e8-. g-.(> <e-. g-.> <e-. )g-.>] |
-       <f4. g> [<b,8-. g'-.(> <d-. g-.> <f-. )g-.>] |
+       <f2 as!(> <as8.-> c> <f16 )as> |
+       <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+       <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        %80
-       \property Voice . textstyle =  "italic"
+       \property Voice . textStyle =  "italic"
        <e2._"dim." g> |
        <g,2. e' g> |
        <g2.-\fermata e' g> |
 }
 
-$bass_intro = \notes\relative c{
-       \clef bass;
-       \property Voice.dynamicdir=1
+bassIntro = \notes\relative c{
+       \property Voice.dynamicDirection=1
 %1
        <c,2 c'> r4 |
        <as2 as'> r4 |
@@ -287,9 +223,9 @@ $bass_intro = \notes\relative c{
        <g2 g'> r4 |
 }
 
-$bass_verse1 = \notes\relative c{
+bassVerseOne = \notes\relative c{
 %      \clef bass;
-       \property Voice.dynamicdir=1
+       \property Voice.dynamicDirection=1
 %5
        <c,2 c'> r4 |
        <as2 as'> r4 |
@@ -319,8 +255,8 @@ $bass_verse1 = \notes\relative c{
        c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
 }
 
-$bass_eentje = \notes\relative c{
-       \property Voice.dynamicdir=1
+bassEentje = \notes\relative c{
+       \property Voice.dynamicDirection=1
        <c,8 c'> [<c' f as!> <f as c> <c f as> <f as c> <c f as>] |
        c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
        <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
@@ -331,8 +267,8 @@ $bass_eentje = \notes\relative c{
        c,8 [<e' g> <g c> <e g> <g c> <e g>] |
 }
 
-$bass_through = \notes\relative c{
-       \property Voice.dynamicdir=1
+bassThrough = \notes\relative c{
+       \property Voice.dynamicDirection=1
        %61
        <g,8^"cresc." g'> [<g' b d> <b d f> <g b d> <as!-> b-> d->> <b d f>] |
        <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
@@ -374,93 +310,93 @@ global = \notes{
        \bar "|.";
 }
 
-
-$lyric_four = \lyrics{ 
-       _4 _ _
-       _ _ _
-       _ _ _
-       _ _ _
-}
-allLyrics = {
-       \time 3/4; 
-%      \skip 4 * 12; 
-       \$lyric_four
-       \$lyric_verse1
-%      \skip 4 * 24; 
-       \$lyric_four
-       \$lyric_four
-       \$lyric_verse2
-       \$lyric_through
+allLyrics = \lyrics {
+       \lyricVerseOne
+       \lyricVerseTwo
+       \lyricThrough
 }
 
-$lyric_staff = \type Lyrics = lyric<
+lyricStaff = \context Lyrics = lyric<
        \allLyrics
 >
                
 vocals = \notes{
-       \property Voice.dynamicdir=UP
+       \clef treble;
+       % certainly no auto-beaming for vocals
+       \property Voice.noAutoBeaming = "1"
+       \property Staff.automaticMelismata=1
+
+       \property Voice.dynamicDirection = \up
        \skip 4 * 12; 
-       \$vocal_verse1 
+       \vocalVerse 
        \skip 4 * 24; 
-       \$vocal_verse1
-       \$vocal_through
+       \vocalVerse
+       \vocalThrough
 }
 
-$vocal_staff = \type Staff = vocal<
-       \property Staff.instrument = "alto sax"
-       \global
-       \$vocals
+vocalStaff = \context Staff = vocal<
+         \property Staff.instrument = "synth voice"
+         \global
+         \vocals
 >
 
 treble = {
-       \$treble_intro 
-       \$treble_verse1 
-       \$treble_eentje
-       \$treble_verse1 
-       \$treble_through
+       \clef treble;
+       \property Voice.beamAutoBegin=0
+       \trebleIntro 
+       \trebleVerseOne 
+       \trebleEentje
+       \trebleVerseOne 
+       \trebleThrough
 }
 
-$treble_staff = \type Staff = treble< 
+trebleStaff = \context Staff = treble< 
        \global
        \treble
 >
 
 bass = {
-       \$bass_intro 
-       \$bass_verse1 
-       \$bass_eentje
-       \$bass_verse1 
-       \$bass_through
+       \clef bass;
+       \bassIntro 
+       \bassVerseOne 
+       \bassEentje
+       \bassVerseOne 
+       \bassThrough
 }
 
-$bass_staff = \type Staff = bass<
+bassStaff = \context Staff = bass<
        \global
        \bass
 >
 
-$grand_staff = \type GrandStaff<
-       \$treble_staff
-       \$bass_staff
+grandStaff = \context PianoStaff <
+       \trebleStaff
+       \bassStaff
 >
 
+
 \score{
-       % Transpose as you like for your voice
-       % Range untransposed is c' to f'' (for tenors and sopranos)
-       % To get original, \transpose d'
-       % \transpose a gives a' to d'' (for basses, who sing an octave down)
        <
-% kjoet, but i like the original better -- jcn
-%              { \notes \transpose a { \$vocal_staff } }
-%              \$lyric_staff
-%              { \notes \transpose a { \$grand_staff } }
-               { \notes { \$vocal_staff } }
-               \$lyric_staff
-               { \notes { \$grand_staff } }
+
+%{
+       Transpose as you like for your voice
+       Range untransposed is c' to f'' (for tenors and sopranos)
+       \transpose a gives a' to d'' (for basses, who sing an octave down)
+
+               \addlyrics 
+                       \notes \transpose a \vocalStaff
+                       \lyricStaff
+               \notes \transpose a \grandStaff
+%}
+
+               \addlyrics
+                       %\context Staff=vocal \vocalStaff
+                       %\context Lyrics=lyric \lyricStaff 
+                       \vocalStaff
+                       \lyricStaff 
+               \grandStaff
        >
        \paper { 
-%              \translator { \OrchestralScoreContext }
-%              \translator { \OrchestralPartStaffContext }
                \translator { \HaraKiriStaffContext }
        }
        \midi{