]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/mutopia/F.Schubert/standchen.ly
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / input / mutopia / F.Schubert / standchen.ly
index 38d990c90a3bfa62da01025d089d22db7301738f..05a483da48276ff149d90b28c94197ab454fceb8 100644 (file)
@@ -1,10 +1,9 @@
-
-% #(ly:set-point-and-click 'line-column)
+#(ly:set-option 'old-relative)
 
 instrument = "Piano"
 
 \header {
-  title = "Ständchen"
+  title = "Ständchen"
   subtitle = "(Serenade)"
   subsubtitle = "Leise flehen meine Lieder"
   opus = "D. 957 No. 4"
@@ -31,7 +30,7 @@ instrument = "Piano"
   maintainer = "Jan Nieuwenhuizen"
   maintainerEmail = "janneke@gnu.org"
   lastupdated =         "2001/Apr/27"
-  mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\thefooter\\quad\\small
+  mutopiapublicdomain = "\\parbox[b]{\\paper-width}{\\thefooter\\quad\\small
     \\\\This music is part of the Mutopia project,
     \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset
     and placed in the public domain by " + \maintainer +
@@ -41,55 +40,68 @@ instrument = "Piano"
  footer = "Mutopia-2001/04/27-xx"
 } 
 
-\version "1.7.3"
-
-dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1
-dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction
+\version "2.7.39"
 
-\include "paper16.ly"
+#(set-global-staff-size 16)
 
-vocalVerse =  \notes\relative c''{
+vocalVerse = \relative c''{
        \dynamicUp
-       \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 } |
+       \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 |
        R2. |
        R2. |
-       \times 2/3 { [ g8( )as] g } es'4. g,8 |
-       \times 2/3 { [ f8( )g] f } d'4. c8 |
-       bes4. as8 \times 2/3 { [ as( )g] f } |
+       \times 2/3 {  g8[(  as)] g } es'4. g,8 |
+       \times 2/3 {  f8[(  g)] f } d'4. c8 |
+       bes4. as8 \times 2/3 {  as[(  g)] f } |
        g2 r4 |
        R2. |
        R2. |
        g8. b16 es4. d8 |
        c8. g16 es4. c8 |
-       \grace { [ as'32( bes ] } \times 2/3 { [ )as8( )g] as } c4. as8 |
+       \grace {
+  \override Stem   #'stroke-style = #"grace"
+    as'32[( bes ] 
+  \revert Stem #'stroke-style }
+ \times 2/3 {  as8[)(  g)] as } c4. as8 |
        g2. |
-       \grace { [ f32( g ] } \times 2/3 { [ )f8( )e] f } as4. f8 |
+       \grace {
+  \override Stem   #'stroke-style = #"grace"
+    f32[( g ] 
+  \revert Stem #'stroke-style }
+ \times 2/3 {  f8[)(  e)] f } as4. f8 |
   
        es!2. |
        g8. b16 es4. d8 |
        c8. g16 e4. c8 |
-       \grace { [ a'32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
+       \grace {
+  \override Stem   #'stroke-style = #"grace"
+    a'32[( b ] 
+  \revert Stem #'stroke-style }
+ \times 2/3 {  a!8[)(  gis)] a } c4. a8 |
        g!2. |
-       \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
+       \times 2/3 {  d'8[\f(  cis)] d } f4. b,8 |
        c!2. |
 }
 
-vocalThrough =  \notes\relative c{
+vocalThrough = \relative c{
        \dynamicUp
        g''8. g16 b8. b16 d8. d16 |
        c4 b r |
        g4. b8 d8. c16 |
        b2 r4 |
-       e4. d8 \times 2/3 { [ d( )c] b } |
+       e4. d8 \times 2/3 {  d[(  c)] b } |
        a8. b16 c4-> a8 r |
        R2. |
        R2. |
-       \grace { [ a32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
+       \grace {
+  \override Stem   #'stroke-style = #"grace"
+    a32[( b ] 
+  \revert Stem #'stroke-style }
+ \times 2/3 {  a!8[)(  gis)] a } c4. a8 |
        g!2. |
-       \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
+       \times 2/3 {  d'8[\f(  cis)] d } f4. b,8 |
        c!2. ~ |
        % bug: slur on other staff fools lily into extending melisma
        c4 r c |
@@ -98,256 +110,255 @@ vocalThrough =  \notes\relative c{
        e2 r4 |
 }
 
-lyricVerseOne =  \lyrics{
+lyricVerseOne = \lyricmode {
        Lei -- se fle -- hen 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
+       Flüs -- 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.
+       des Ver -- rä -- ters feind -- lich Lau -- schen
+       fürch -- te, Hol -- de, nicht,
+       fürch -- te, Hol -- de, nicht.
 }
        
-lyricVerseTwo =  \lyrics{
-       H\"orst die Nach -- ti -- gal -- len schla -- gen?
+lyricVerseTwo = \lyricmode{
+       Hörst die Nach -- ti -- gal -- len schla -- gen?
        ach! sie fle -- hen dich, 
-       mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen
-       fle -- hen sie f\"ur mich. 
+       mit der Tö -- ne sü -- "\ss en" Kla -- gen
+       fle -- hen sie für mich. 
        
        Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen,
        ken -- nen Lieb -- es -- schmerz,
        ken -- nen Lieb -- es -- schmerz,
 
-       r\"uh -- ren mit den Sil -- ber -- t\"o -- nen
+       rüh -- ren mit den Sil -- ber -- tö -- nen
        jed -- es wei -- che Herz,
        jed -- es wei -- che Herz.
 }
 
-lyricThrough =  \lyrics{
+lyricThrough = \lyricmode{
        La\ss auch dir die Brust be -- we -- gen 
-       Lieb -- chen, h\"o -- re mich! 
+       Lieb -- chen, hö -- 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!
+       komm, be -- glük -- ke mich!
+       komm, be -- glük -- ke mich, __ 
+       be -- glük -- ke mich!
 }
 
-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-.> |
+trebleIntro = \relative c{
+       r8^"\bf Mäß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>-. |
 }
 
-trebleVerseOne =  \notes\relative c{
+trebleVerseOne = \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> |
-       <g''4.( b,> <)f8 d>
-       % manual beam override bug
-       %\times 2/3 { < [f( d> <es c> <)d b] > } |
-       \times 2/3 < { [ f( es )d ] } { d c b } > |
+       <g'' b,>4.( <f d>8)
+       \times 2/3 { <f d>([ <es c> <d b>)] }
+
        %10
-       <c2. es> |
+       <c es>2. |
        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 as bes> <as bes d> <f as bes> |
-       % manual beam override bug
-       % r8 < [ es g bes> <g bes es> <es g bes> <g bes es ] > 
-       r8 < { [ es g es g ] } { g bes g bes } { bes es bes es } >
-       <{ es'( )  d4.() f8}{ c' | bes4.  as8 } >
-       % manual beam override bug
-       % \times 2/3 { < [f( as> <es g> <)d f] > } |
-       \times 2/3 < { [ f( es )d ] } { as' g f } > |
+       r8
+       <es g bes>[
+       <g bes es>
+       <es g bes>
+       <g bes es>]
+       <es' c'>(
+       <d bes'>4.()
+       <f as>8)
+       
+       \times 2/3 { <f as>([ <es g> <d f>)] }
        %16
-       <es2. g> |
+       <es g>2. |
        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> |
-       \property Voice.Slur \override #'attachment = #'(stem . stem)
-       \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
-       \property Voice.Slur \revert #'attachment
+       \grace {
+  \override Stem   #'stroke-style = #"grace"
+    as'32[( bes ] 
+  \revert Stem #'stroke-style }
+
+       \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> |
-       \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
-       < {a4.- > )f8}  { a'4. f8 }  > |
+       \times 2/3  { <f' f'>\f( <e e'> <f f'> }
+       <a a'>4.-> <f f'>8)  |
 }
 
-trebleEentje =  \notes \relative c' \context Voice {
-       \stemBoth
-       <e2 e'> r4 |
-       <f2\mf as!\(> <as8.->( c> <f16 \))as> |
+trebleEentje =  \relative c' \context Voice {
+       \stemNeutral
+       <e e'>2 r4 |
+       <f as!>2\(\mf <as c>8.(-> <f as>16)\) |
        % urg: slurs with staccati are ugly
-       <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-.> |
+       <e g>4. <e g>8-.( <e g>-. <e g>)-. |
+       <f g>4. <b, g'>8-.( <d g>-. <f g>)-. |
+       <e g>2 <e g>4\pp |
+       <f a>2\( <a c>8.( <f a>16)\) |
+       <e g>4.\( <e g>8(-. <e g>-. <e g>)\)-. |
+       <f g>4. <b, g'>8(-. <d g>-. <f g>)-. |
        %60
-       <e2 g> r4 |
+       <e g>2 r4 |
 }
 
-trebleThrough =  \notes \relative c'{
-       \stemBoth
-       <e2. e'> |
+trebleThrough =  \relative c'{
+       \stemNeutral
+       <e e'>2. |
        %61
        R2. |
-       [<g,8.\< g'> <g16 g'> <b8. b'> <\! b16\> b'16> <d8. d'> <d16 d'>] |
+       <g, g'>8.[\< <g g'>16 <b b'>8. <b b'>16\>\! <d d'>8. <d d'>16] |
 
        %% score has double slur on chord.
-       < { c4( )b } { c'4 b } > \!r |
+       <c c'>4( <b c'>) r\!
 
-       <g4. g'> <b8 b'> [<d'8.-> d,-> > c16] |
+       <g g'>4. <b b'>8 <d' d, >8.->[ c16] |
        %65
-       < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 |
-       \context Staff < 
-               \context Voice=one {
-                       \voiceOne
-                       %urg
-                       %a8. b16 c4-> () a8 r |
-                       a8. b16 c4^> () a8 r |
-                       %a8. b16 c4-> () a8 r |
-                       a8. b16 c4^> () a8 r |
-               }
-               \context Voice=two {
-                       \voiceTwo
-                       <d,4 f> <d2 f> |
-                       <c!4 es> <c2 es> |
-               }
-       >
+        <d, e b'>2.~(\f
+       <c e a>2)  r4
+       << 
+       {       a'8. b16 c4^> ( a8) r |
+               a8. b16 c4^> ( a8) r |
+       }\\{ 
+               <d, f>4 <d f>2 |
+               <c! es>4 <c es>2 |
+       } >>
 
        % 4 bars copied from end verse1
        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> |
-       \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
-       < { a4.-> )f8 } { a'4. f8 } > |
-       <e2. e'> |
-       <es!2. es'! > |
-       \property Voice . TextScript \override #'font-shape = #'italic
-       <d2._"decresc." d'> |
-       \property Voice . TextScript \revert #'font-shape
+       \times 2/3 {  <f' f'>8( <e e'> <f f'> }
+
+       <a a'>4.-> <f f'>8)
+       <e e'>2. |
+       <es! es'! >2. |
+       \override TextScript   #'font-shape = #'italic
+       <d d'>2._"decresc."
+       \revert TextScript #'font-shape
 
        %75
-       <b2. b'> |
-       <c2 c'> <e4\pp g> |
+       <b b'>2. |
+       <c c'>2 <e g>4\pp |
 
        % 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-.> |
+       <f as!>2( <as c>8.-> <f as>16) |
+       <e g>4. <e g>8(-. <e g>-. <e g>)-. |
+       <f g>4. <b, g'>8(-. <d g>-. <f g>)-. |
        %80
 
-       \property Voice . TextScript \override #'font-shape = #'italic
-       <e2._"dim." g> |
-       \property Voice . TextScript \revert #'font-shape
+       \override TextScript   #'font-shape = #'italic
+       <e g>2._"dim."
+       \revert TextScript #'font-shape
 
-       <g,2. e' g> |
-       <g2.-\fermata e' g> |
+       <g, e' g>2. |
+       <g e' g>2.\fermata |
 }
 
-bassIntro =  \notes\relative c{
+bassIntro = \relative c{
        \dynamicUp
 %1
-       <c,2 c'> r4 |
-       <as2 as'> r4 |
-       <f2 f'> r4 |
-       <g2 g'> r4 |
+       <c, c'>2 r4 |
+       <as as'>2 r4 |
+       <f f'>2 r4 |
+       <g g'>2 r4 |
 }
 
-bassVerseOne =  \notes\relative c{
+bassVerseOne = \relative c{
 %      \clef bass
        \dynamicUp
 %5
-       <c,2 c'> r4 |
-       <as2 as'> r4 |
-       <g2 g'> r4 |
-       <c2 c'> r4 |
-       <g8 g'> [<g'' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+       <c, c'>2 r4 |
+       <as as'>2 r4 |
+       <g g'>2 r4 |
+       <c c'>2 r4 |
+       <g g'>8 <g'' d'>[ <d' f> <g, d'> <d' f> <g, d'>] |
 %10
-       <c,,8 c'> [<g'' c> <c es> <g c> <c es> <g c>] |
-       <c,,2 c'> r4 |
-       <as2 as'> r4 |
-       <bes2 bes'> r4 |
-       <es,2 es'> r4 |
+       <c,, c'>8 <g'' c>[ <c es> <g c> <c es> <g c>] |
+       <c,, c'>2 r4 |
+       <as as'>2 r4 |
+       <bes bes'>2 r4 |
+       <es, es'>2 r4 |
 %15
-       bes'8 [<bes' f'> <f' as> <bes, f'> <f' as> <bes, f'>] |
-       es,8 [<bes' es> <es g> <bes es> <es g> <bes es>] |
-       <g,2 g'> r4 |
-       <c2 c'> r4 |
-       <as2 as'> r4 |
-       <es2 es'> r4 |
-       <bes'8 bes'> [<f'' bes> <bes d> <f bes> <bes d> <f bes>] |
-       <es,,8 es'> [<es'' g bes> <g bes es> <es g bes> <g bes es> <es g bes>] |
-       <g,,2 g'> r4 |
-       <c2 c'> r4 |
-       <f,2 f'> r4 |
-       <c'2 c'> r4 |
-       <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
-       c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
+       bes'8 <bes' f'>[ <f' as> <bes, f'> <f' as> <bes, f'>] |
+       es,8 <bes' es>[ <es g> <bes es> <es g> <bes es>] |
+       <g, g'>2 r4 |
+       <c c'>2 r4 |
+       <as as'>2 r4 |
+       <es es'>2 r4 |
+       <bes' bes'>8 <f'' bes>[ <bes d> <f bes> <bes d> <f bes>] |
+       <es,, es'>8 <es'' g bes>[ <g bes es> <es g bes> <g bes es> <es g bes>] |
+       <g,, g'>2 r4 |
+       <c c'>2 r4 |
+       <f, f'>2 r4 |
+       <c' c'>2 r4 |
+       <g g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
+       c,8 <c' e g>[ <e g c> <c e g> <e g c> <c e g>] |
 }
 
-bassEentje =  \notes\relative c{
+bassEentje = \relative c{
        \dynamicUp
-       <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>] |
-       c,8 [<e' g> <g c> <e g> <g c> <e g>] |
-       <c,8 c'> [<c' f a> <f a c> <c f a> <f a c> <c f a>] |
-       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>] |
-       c,8 [<e' g> <g c> <e g> <g c> <e g>] |
+       <c, c'>8 <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, g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
+       c,8 <e' g>[ <g c> <e g> <g c> <e g>] |
+       <c, c'>8 <c' f a>[ <f a c> <c f a> <f a c> <c f a>] |
+       c,8 <c' e g>[ <e g c> <c e g> <e g c> <c e g>] |
+       <g, g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
+       c,8 <e' g>[ <g c> <e g> <g c> <e g>] |
 }
 
-bassThrough =  \notes\relative c{
+bassThrough = \relative c{
        \dynamicUp
        %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>] |
+       <g, g'>8^"cresc." <g' b d>[ <b d f> <g b d> <as! b d >-> <b d f>] |
+       <g, g'>8 <g' d'>[ <d' f> <g, d'> <as b d >-> <b d f>] |
        % copied
-       <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d-> > <b d f>] |
-       <g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d-> > <b d f>] |
+       <g, g'>8 <g' d'>[ <d' f> <g, d'> <as b d >-> <b d f>] |
+       <g, g'>8 <g' d'>[ <d' f> <g, d'> <gis b d >-> <b d f>] |
        %65
-       <gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
-       <a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
-       <a,8 a'> [<a' d f> <d f a> <a d f> <d f a> <a d f>] |
-       <a,8 a'> [<a' c e> <c e a> <a c e> <c e a> <a c e>] |
+       <gis, gis'>8 <d'' e>[\> <e b'> <d e> <e b'> <d e> \!] |
+       <a, a'>8 <c' e>[ <e a> <c e> <e a> <c e>] |
+       <a, a'>8 <a' d f>[ <d f a> <a d f> <d f a> <a d f>] |
+       <a, a'>8 <a' c e>[ <c e a> <a c e> <c e a> <a c e>] |
        % 4 bars copied from end verse1
-       <f,2\p f'> r4 |
+       <f, f'>2\p r4 |
        %70
-       <c'2 c'> r4 |
-       <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
-       c,8\> [<c' e g> < \! e g c> <c e g> <e g c> <c e g>] |
+       <c' c'>2 r4 |
+       <g g'>8 <d'' g>[ <g b> <d g> <g b> <d g>] |
+       c,8\> <c' e g>[ < e g c> \! <c e g> <e g c> <c e g>] |
 
-       <c,8 c'> [<c' es! g> <es g c> <c es g> <es g c> <c es g>] |
-       <f,,8 f'> [<d'' f> <f as!> <d f> <f as> <d f>] |
+       <c, c'>8 <c' es! g>[ <es g c> <c es g> <es g c> <c es g>] |
+       <f,, f'>8 <d'' f>[ <f as!> <d f> <f as> <d f>] |
        %75
-       <g,,8 g'> [<d'' f> <f g> <d f> <f g> <d f>] |
-       c,8 [<c' e> <e g> <c e> <e g> <c e>] |
-       c,8 [<c' f> <f as> <c f> <f as> <c f>] |
-       c,8 [<c' e> <e g> <c e> <e g> <c e>] |
-       g,8 [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+       <g,, g'>8 <d'' f>[ <f g> <d f> <f g> <d f>] |
+       c,8 <c' e>[ <e g> <c e> <e g> <c e>] |
+       c,8 <c' f>[ <f as> <c f> <f as> <c f>] |
+       c,8 <c' e>[ <e g> <c e> <e g> <c e>] |
+       g,8 <g' d'>[ <d' f> <g, d'> <d' f> <g, d'>] |
        %80
-       c,8 [<c' e> <e g> <c e> <e g> <c e>] |
-       c,8 [<c' g> <e c> <c g> <e c> <c g>] |
-       <c,2._\fermata g' c> |
+       c,8 <c' e>[ <e g> <c e> <e g> <c e>] |
+       c,8 <c' g>[ <e c> <c g> <e c> <c g>] |
+       <c, g' c>2._\fermata |
 }
                
-global =  \notes{
+global = {
        \time 3/4 
        \key es \major
        \skip 1 * 3/4 * 4
@@ -362,24 +373,18 @@ global =  \notes{
        \bar "|."
 }
 
-allLyrics = \lyrics {
+allLyrics = {
        % maybe should be bigger by default, in grob-description.scm ?
-       \property Lyrics . LyricText \override #'font-relative-size = #1
-       \property Lyrics . LyricHyphen \override #'maximum-length = #1.5
-       \lyricVerseOne
-       \lyricVerseTwo
-       \lyricThrough
-}
+       \lyricsto "leise" \new Lyrics {
+           \lyricVerseOne
+           \lyricVerseTwo
+           \lyricThrough 
+} }
 
-lyricStaff = \context Lyrics {
-       \allLyrics
-}
-               
-vocals = \context Voice \notes {
+vocals = \new Voice =  "leise"  {
        \clef treble
        % certainly no auto-beaming for vocals
-       \property Voice.autoBeaming = ##f
-       \property Staff.automaticMelismata= ##t
+       \autoBeamOff
 
        \dynamicUp
        % duh 1 != 3/4
@@ -391,81 +396,60 @@ vocals = \context Voice \notes {
        R1 * 3/4 * 6
 }
 
-vocalStaff =  \context Staff = vocal<
-         \property Staff.midiInstrument = "synth voice"
-         \global
-         \vocals
->
-
-treble =  {
-       \clef treble
-       \property Voice.autoBeamSettings \override #'(begin * * * *) = #(ly:make-moment 0 1)
-       \trebleIntro 
-       \trebleVerseOne 
-       \trebleEentje
-       \trebleVerseOne 
-       \trebleThrough
-}
+trebleStaff = \new Staff =  "treble"<< 
+        \set Staff.midiInstrument = "acoustic grand"
+       \global
+       {
+         \clef treble
+
+         \trebleIntro 
+         \trebleVerseOne 
+         \trebleEentje
+         \trebleVerseOne 
+         \trebleThrough
+       }
+>>
 
-trebleStaff =  \context Staff = treble< 
-        \property Staff.midiInstrument = "acoustic grand"
+bassStaff = \new Staff =  "bass"<<
+        \set Staff.midiInstrument = "acoustic grand"
        \global
-       \treble
->
-bass =  {
        \clef bass
-       \bassIntro 
+       {\bassIntro 
        \bassVerseOne 
        \bassEentje
        \bassVerseOne 
-       \bassThrough
-}
-
-bassStaff =  \context Staff = bass<
-        \property Staff.midiInstrument = "acoustic grand"
-       \global
-       \bass
->
-
-grandStaff =  \context PianoStaff <
-
-       \trebleStaff
-       \bassStaff
->
+       \bassThrough}
+>>
 
 
 \score{
-       <
-
-%{
-       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
-                       \vocalStaff
-                       \lyricStaff 
-               \grandStaff
-       >
-       \paper {
-               % Use
-               %   textheight = 280.\mm
-               %   linewidth = 190.\mm
-               % to get this on 3 pages of a4.
-               
-               % Mandatory Mutopia settings yield 4 pages :-(
-               textheight = 270.0\mm
-               linewidth = 180.0\mm
-
-               \translator { \HaraKiriStaffContext }
-       }
-       \midi{
-               \tempo 4 = 54
-       }
+    <<
+       \new Staff <<
+           \set Staff.midiInstrument = "synth voice"
+           %% insert \transpose if necessary, depending on voice range.
+           \global
+           \vocals
+       >>
+       \allLyrics
+       \context PianoStaff <<
+           \trebleStaff
+           \bassStaff
+       >>
+    >>
+    \layout {
+                               % Use
+                               %   textheight = 280.\mm
+                               %   line-width = 190.\mm
+                               % to get this on 3 pages of a4.
+       
+                               % Mandatory Mutopia settings yield 4 pages :(
+       textheight = 270.0\mm
+       line-width = 180.0\mm
+
+       \context { \RemoveEmptyStaffContext }
+    }
+    \midi{
+       \tempo 4 = 54
+    }
 }
+