]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/F.Schubert/standchen.ly
release: 1.5.7
[lilypond.git] / mutopia / F.Schubert / standchen.ly
index a726f6b9ba442dcd0d7c50547095fce38e908272..b18bcd53887c96c6899582ce9b8f1ce12b3079ff 100644 (file)
@@ -1,5 +1,5 @@
 
-#(set! point-and-click line-column-location)
+#(set! point-and-click line-column-location)
 
 instrument = "Piano"
 
@@ -13,7 +13,7 @@ instrument = "Piano"
   poet = "Text by Ludwig Rellstab (1799-1860)"
   enteredby = "JCN"
   copyright = "public domain"
-  instrument = \instrument
+  instrument = \instrument
 
   % mutopia headers.
   mutopiatitle = "Standchen"
@@ -29,16 +29,16 @@ instrument = "Piano"
 
   copyright = "Public Domain"
   maintainer = "Jan Nieuwenhuizen"
-  maintainer_email = "janneke@gnu.org"
-  lastupdated =         "2001/Mar/26"
-  mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small
+  maintainerEmail = "janneke@gnu.org"
+  lastupdated =         "2001/Apr/27"
+  mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\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 +
     ".\\\\Unrestricted modification and redistribution is permitted
     and encouraged---copy this music and share it.}"
  tagline = \mutopiapublicdomain
- footer = "Mutopia-2001/03/26-xx"
+ footer = "Mutopia-2001/04/27-xx"
 } 
 
 \version "1.3.146"
@@ -64,16 +64,14 @@ vocalVerse =  \notes\relative c''{
        R2. |
        g8. b16 es4. d8 |
        c8. g16 es4. c8 |
-       % CHECK
-       % \grace { as'16 bes } \times 2/3 { [ )as8( )g] as } c4. as8 |
-       \grace { as'16( bes } \times 2/3 { [ )as8( )g] as } c4. as8 |
+       \grace { [ as'32( bes ] } \times 2/3 { [ )as8( )g] as } c4. as8 |
        g2. |
-       \grace { f16( g } \times 2/3 { [ )f8( )e] f } as4. f8 |
+       \grace { [ f32( g ] } \times 2/3 { [ )f8( )e] f } as4. f8 |
   
        es!2. |
        g8. b16 es4. d8 |
        c8. g16 e4. c8 |
-       \grace { a'16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
+       \grace { [ a'32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
        g!2. |
        \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
        c!2. |
@@ -89,10 +87,11 @@ vocalThrough =  \notes\relative c{
        a8. b16 c4-> a8 r |
        R2. |
        R2. |
-       \grace { a16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
+       \grace { [ a32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
        g!2. |
        \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 |
        as2. |
        g |
@@ -100,43 +99,43 @@ vocalThrough =  \notes\relative c{
 }
 
 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! 
+       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
-       In des Mon- des Licht,
-       In des Mon- des Licht
+       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.
+       des Ver -- r\"a -- ters feind -- lich Lau -- schen
+       f\"urch -- te, Hol -- de, nicht,
+       f\"urch -- te, Hol -- de, nicht.
 }
        
 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. 
+       H\"orst 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. 
        
-       Sie- ver- "steh'n" des Bus- ens Seh- nen
-       Ken- nen Lieb- es- schmerz,
-       Ken- nen Lieb- es- schmerz.
+       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
-       Jed- es wei- che Herz,
-       Jed- es wei- che Herz.
+       r\"uh -- ren mit den Sil -- ber -- t\"o -- nen
+       jed -- es wei -- che Herz,
+       jed -- es wei -- che Herz.
 }
 
 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! 
+       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!
+       komm, be -- gl\"uk -- ke mich!
+       komm, be -- gl\"uk -- ke mich, __ 
+       be -- gl\"uk -- ke mich!
 }
 
 trebleIntro =  \notes\relative c{
@@ -144,7 +143,6 @@ trebleIntro =  \notes\relative 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
 }
 
 trebleVerseOne =  \notes\relative c{
@@ -154,15 +152,21 @@ trebleVerseOne =  \notes\relative 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] > } |
+       % manual beam override bug
+       %\times 2/3 { < [f( d> <es c> <)d b] > } |
+       \times 2/3 < { [ f( es )d ] } { d c 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 <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 } > |
        %16
        <es2. g> |
        r8 <f, g> <g b> <f g> <g b> <f g> |
@@ -170,30 +174,31 @@ trebleVerseOne =  \notes\relative c{
        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> |
-       \grace { as'16( bes } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
+       \property Voice.Slur \override #'attachment = #'(stem . stem)
+       \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
+       \property Voice.Slur \revert #'attachment
        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 } >
+       \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
        < {a4.- > )f8}  { a'4. f8 }  > |
 }
 
 trebleEentje =  \notes \relative c'{
        \stemBoth
-       <e2 e'> <e4 g>|
-       <f2\mf as!(> <as8.->( c> <)f16 )as> |
+       <e2 e'> r4 |
+       <f2\mf as!\(> <as8.->( c> <f16 \))as> |
+       % 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-.> |
+       <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> |
+       <e2 g> r4 |
 }
 
 trebleThrough =  \notes \relative c'{
@@ -206,12 +211,15 @@ trebleThrough =  \notes \relative c'{
 
        <g4. g'> <b8 b'> [<d'8.-> d,-> > c16] |
        %65
-       < { d,2.\f a'2} { e2. ~ e2 } { b'2. c,2 }> r4 |
+       < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 |
        \context Staff < 
                \context Voice=one {
                        \voiceOne
-                       a8. b16 c4-> () a8 r |
-                       a8. b16 c4-> () a8 r |
+                       %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
@@ -224,17 +232,16 @@ trebleThrough =  \notes \relative 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> |
-       \times 2/3 < { [ f'8\f( e f] }
-          {  f' e f }>
+       \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
        < { a4.-> )f8 } { a'4. f8 } > |
-       <e2 e'> r4 |
-       <es!2 es'! > r4 |
-       \property Voice . TextItem \override #'font-style = #'italic
-       <d2_"decresc." d'> r4 |
-       \property Voice . TextItem \revert #'font-style
+       <e2. e'> |
+       <es!2. es'! > |
+       \property Voice . TextScript \override #'font-shape = #'italic
+       <d2._"decresc." d'> |
+       \property Voice . TextScript \revert #'font-shape
 
        %75
-       <b2 b'> r4 |
+       <b2. b'> |
        <c2 c'> <e4\pp g> |
 
        % four copied from begin eentje
@@ -243,9 +250,9 @@ trebleThrough =  \notes \relative c'{
        <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        %80
 
-       \property Voice . TextItem \override #'font-style = #'italic
+       \property Voice . TextScript \override #'font-shape = #'italic
        <e2._"dim." g> |
-       \property Voice . TextItem \revert #'font-style
+       \property Voice . TextScript \revert #'font-shape
 
        <g,2. e' g> |
        <g2.-\fermata e' g> |
@@ -311,7 +318,7 @@ bassThrough =  \notes\relative c{
        <g,8 g'> [<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' e> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
+       <g,8 g'> [<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>] |
@@ -331,7 +338,7 @@ bassThrough =  \notes\relative c{
        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'> [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+       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>] |
@@ -341,13 +348,22 @@ bassThrough =  \notes\relative c{
 global =  \notes{
        \time 3/4 
        \key es \major
-       \skip 4 * 12
+       \skip 1 * 3/4 * 4
+       \break
+       \skip 1 * 3/4 * 25
        \break
-       \skip 4 * 234
+       \skip 1 * 3/4 * 6
+       \break
+       \skip 1 * 3/4 * 41
+       \break
+       \skip 1 * 3/4 * 6
        \bar "|."
 }
 
 allLyrics = \lyrics {
+       % 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
@@ -357,22 +373,24 @@ lyricStaff = \context Lyrics {
        \allLyrics
 }
                
-vocals = \context Voice {
+vocals = \context Voice \notes {
        \clef treble
        % certainly no auto-beaming for vocals
        \property Voice.noAutoBeaming = ##t
        \property Staff.automaticMelismata= ##t
 
        \dynamicUp
-       \skip 4 * 12 
+       % duh 1 != 3/4
+       R1 * 3/4 * 4
        \vocalVerse 
-       \skip 4 * 24 
+       R1 * 3/4 * 8
        \vocalVerse
        \vocalThrough
+       R1 * 3/4 * 6
 }
 
 vocalStaff =  \context Staff = vocal<
-         \property Staff.instrument = "synth voice"
+         \property Staff.midiInstrument = "synth voice"
          \global
          \vocals
 >
@@ -388,6 +406,7 @@ treble =  {
 }
 
 trebleStaff =  \context Staff = treble< 
+        \property Staff.midiInstrument = "acoustic grand"
        \global
        \treble
 >
@@ -401,11 +420,13 @@ bass =  {
 }
 
 bassStaff =  \context Staff = bass<
+        \property Staff.midiInstrument = "acoustic grand"
        \global
        \bass
 >
 
 grandStaff =  \context PianoStaff <
+
        \trebleStaff
        \bassStaff
 >
@@ -430,7 +451,16 @@ grandStaff =  \context PianoStaff <
                        \lyricStaff 
                \grandStaff
        >
-       \paper { 
+       \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{