]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/mutopia/F.Schubert/morgenlied.ly
* lily/rest.cc (polyphonic_offset_callback): new function. Do
[lilypond.git] / input / mutopia / F.Schubert / morgenlied.ly
index 0c4b3f8a4307848e45e77df2ef83a2d4929180e0..416e7c3c65ee332426a3cba141ab3c2617706053 100644 (file)
@@ -1,11 +1,11 @@
 \header {
     title = "Sängers Morgenlied"
-    composer  = "Franz Schubert"
+    composer = "Franz Schubert"
     date = "27. Februar 1815"
     source = "Edition Peters"
     editor = "Paul Losse"
-    enteredby="Rune Zedeler"
-    maintainer="rune@zedeler.dk"
+    enteredby="Han-Wen Nienhuys"
+    maintainer="hanwen@xs4all.nl"
 
     texidoc = "The source is a rather tightly set Peters in Edition is
     a heavy font. The Peters edition (4622c) was `herausgegeben' by
     not be in the PD - but I am assuming there are no notable ones in
     this small piece.
 
-    The original compresses the entire music onto a single page, in 4 systems."
+    The original compresses the entire music onto a single page, in 4
+    systems.  Lily does so too if you tune down spacing-increment, but
+    chooses line breaks differently.
+
+    Further manual tweaks: the slur in measure 12 has been flattened
+    manually. The beam in measure 3, left-hand, technically is wrong,
+    but has been added following the original.
+
+"
 
 }
 
-\version "2.1.3"
+\version "2.1.22"
+manuscriptBreak = { \break }
+
+
 
 \paper  {
-    staffheight = 6.0 \mm
-    
-    #(define fonts (scale-font-list (/ (* 6 mm) (* 20 pt)) ))
-    
-    \include "params-init.ly"
-    linewidth = #(* mm 159)
+    #(paper-set-staff-size (* 5.8 mm))
+    linewidth = #(* mm 160)
     indent = 8\mm
+    interscoreline = 2.\mm
     }
 
+modernAccidentals = {
+  \set Staff.extraNatural =  ##f
+  \set Staff.autoAccidentals =  #'(Staff (same-octave . 1) (any-octave . 0))
+  \set Staff.autoCautionaries =  #'()  
+}
+
 
-melody = \notes  \relative c'' \repeat volta 2 \context Voice = singer {
+melody = \notes   \relative c'' \repeat volta 2 \context Voice = singer {
     \time 6/8
     \autoBeamOff
-    s1*0^\markup { \bold \bigger\bigger { \hspace #-3.0 Lieblich, etwas geschwind } }
+    s1*0^\markup { \bold \large\bigger\bigger { \hspace #-3.0 Lieblich, etwas geschwind } }
   R2.
   r4 r8 c4 g8 |
-  e4 c8 << { f8. g16 } \\ { f8.[ g16] } >> a8 |
+  e4 c8
+    <<
+       \new Voice { \stemUp f8. g16 }
+       { \stemDown f8.[ g16] } >> \stemBoth a8 |
   fis4  g8 c16[ b a g] f[ e] |
   d4 f8 a16[ g fis g] f[ d] |
   g4. r8 gis gis |
@@ -45,41 +62,55 @@ melody = \notes  \relative c'' \repeat volta 2 \context Voice = singer {
   g4.~ g8-\fermata g8 g |
   as4 as8 g4 g8 |
   fis4 fis8 r8 g g  |
-  a4 a8 g4 g8 |
+  a!4 a8 g4 g8 |
   fis4 fis8 d'16[ c b a] g[ f] |
   e4 g8 d4 g8 e4 r8 b'16[ c d b] g[ f] |
   e4 g8 d4 a'16[ g] |
   c,4 r8 r4 r8 |
-  R2.\fermata 
+
+    % TODO : make \fermata work. 
+  R2.^\fermataMarkup 
 }
 
 
+ignoreMelisma =        \set ignoreMelismata = ##t
+ignoreMelismaOff = \unset ignoreMelismata 
+
+
 firstVerse = \lyrics {
-    \property LyricsVoice . stanza = "1."
+    \set stanza = "1."
     
-    Sü -- ßes Licht! Aus gol -- de -- nen  Pfor -- ten brichst du __ \break
-    sie -- gend durch __ die Nacht. Schö -- ner Tag, du __ bist er -- wacht. __ Mit \break
-    ge -- heim -- nis -- vol -- len Wor -- ten, in me -- lo -- di -- schen Ak -- kor -- den, grüß __ ich __ \break
+    Sü -- ßes Licht! Aus
+    \ignoreMelisma
+    gol --
+    \ignoreMelismaOff
+
+    de -- nen  Pfor -- ten brichst du __ \manuscriptBreak | 
+    sie -- gend durch __ die Nacht. Schö -- ner Tag, du __ bist er -- wacht. __ Mit ge -- |
+    \manuscriptBreak
+    heim -- nis -- vol -- len Wor -- ten, in me -- lo -- di -- schen Ak -- kor -- den, grüß __ ich __ \manuscriptBreak |
     dei -- ne Ro -- sen -- pracht, grüß ich __ dei -- ne Ro -- sen -- pracht. 
     }
 
 secondVerse = \lyrics {
-    \property LyricsVoice . stanza = "2."
-
-    Ach, der Lie -- be sanf "" -- tes We -- hen schwellt mir
-    das be -- weg -- te __ Herz, sanft, wie ein ge -- lieb -- ter Schmerz. __ Dürft ich
-    nur auf gold -- nen Hö -- hen mich im Mor -- gen -- duft er -- ge -- hen! Sehn -- sucht
-    zieht mich him -- mel -- wärts, Sehn -- sucht zieht mich him -- mel -- wärts
+    \set stanza = "2."
+    Ach, der Lie -- be sanf
+    -- tes We -- hen schwellt mir |
+    das be -- weg -- te __ Herz, sanft, wie ein ge -- lieb -- ter Schmerz. __ Dürft ich | 
+    nur auf gold -- nen Hö -- hen mich im Mor -- gen -- duft er -- ge -- hen! Sehn -- sucht |
+    zieht mich him -- mel -- wärts, Sehn -- sucht zieht mich him -- mel -- wärts.
     }
 
 pianoRH = \notes \relative c''' \repeat volta 2 {
+    \modernAccidentals
     g16(_\p fis a g fis g f e d c b a ) | 
     <g e>8( <es fis a> <d f b> <c e c'>) r8 r | 
     r8 c'( e,) f r a |
-    \property Voice.DynamicLineSpanner \set #'padding =#3
-    r8_\> << { s8 s8-\! }  << { fis( g)\!} \\ { c,4 } >> >> r8 <e c g> <e c g> |
+    \once \override DynamicLineSpanner   #'padding =#3
+    r8_\> << { s8 s8-\! }  << { fis( g)
+                           } \\ { c,4 } >> >> r8 <e c g> <e c g> |
     <d c a>4. r8 \clef bass  <d b f> <d b f> |
-    e,16_" "_\markup { \italic cresc } g c g e g d gis b gis d g |
+    e,16_" "_\markup { \bold\italic cresc. } g c g e g d gis b gis d gis |
     c, e a e c e a,-\f d fis d a d |
     b d g  d b g r4\fermata \clef treble g''8 |
     as4.( g 4.) | fis4. r4 <d g>8 ( |
@@ -87,14 +118,15 @@ pianoRH = \notes \relative c''' \repeat volta 2 {
     r8 <e c g> <e c g> r <d b g > <d b g> |
     r <e c g> <e c g> r <f d b g> <f d b g> |
     r <e c g> <e c g> r <d b f> <d b f> |
-    c16( b c e g b c b c e g <e b'>) |
+    c16(_\f b c e g b c b c e g <e b'>) |
     <c c'>8 r r <c, g e>8 r r\fermata |  
 }
 
 pianoLH = \notes \relative c'' \repeat volta 2 {
+    \modernAccidentals
     g16( fis a g fis g f e d c b a) | 
     \clef bass g4.( c,8) r r
-    \clef treble r4 <bes' c>8( <a c>) r <f c'> |
+    \clef treble r4 <bes' c>8([ <a c>)] r <f c'> |
     \clef bass r8 dis( e) r c c |
     f,4. r8 g g |
     <c, c,>4. <e e,>4. |
@@ -102,7 +134,11 @@ pianoLH = \notes \relative c'' \repeat volta 2 {
     g,8 r r g16 r16\fermata r8 g''8 |
     as4.( g ) |
     fis r4 <g b>8( |
-    <f c'>4.) <g c>4.( | <a c>4.) <g b,> |
+    <f c'>4.)
+
+    \once \override Slur  #'height-limit = #1.0
+
+    <g c>4.( | <a c>4.) <g b,> |
     c,4 r8 g4 r8 |
     c4 r8 g4 r8 |
     c4 r8 g4 r8 |
@@ -113,16 +149,15 @@ pianoLH = \notes \relative c'' \repeat volta 2 {
 \score {
 
     << \time 6/8
-       \addlyrics
-     \new Staff {  \melody }
-     \new Lyrics <<
-        \context  LyricsVoice = "singer-1" \firstVerse
-        \context LyricsVoice = "singer-2" \secondVerse
-        >>
-     \new PianoStaff <<
-        \property PianoStaff.instrument = \markup {
+     \new Staff <<
+        \context Staff \modernAccidentals
+        \melody >>
+        \lyricsto "singer" \new Lyrics \firstVerse
+        \lyricsto "singer" \new Lyrics \secondVerse
+     \new PianoStaff << 
+        \set PianoStaff.instrument = \markup {
             \bold
-            \huge "2.  " }
+            \bigger\bigger\bigger\bigger \huge "2.  " }
         \new Staff \pianoRH
         \new Staff \pianoLH
        >> 
@@ -131,21 +166,24 @@ pianoLH = \notes \relative c'' \repeat volta 2 {
     \paper {
        \translator {
            \LyricsContext
-           minimumVerticalExtent = ##f
-           LyricText \set #'font-size = #1.5
+           minimumVerticalExtent = #'(-1.0 . 0)
        }
        \translator {
            \ScoreContext
-           SpacingSpanner \set #'common-shortest-duration = #(ly:make-moment 1 8)
+           Beam \override #'thickness = #0.55
+           SpacingSpanner \set #'spacing-increment = #1.0
+           Slur \set #'height-limit = #1.5
        }
-       \translator {  \PianoStaffContext
-               VerticalAlignment \override #'forced-distance = #10
-               }
        \translator {
-            \ScoreContext
-            \remove "Lyric_phrasing_engraver"
-            \consists "New_phrasing_engraver"
-        }
-
-}
+           \PianoStaffContext
+           VerticalAlignment \override #'forced-distance = #10
+       }
+       \translator {
+           \StaffContext
+           minimumVerticalExtent = #'(-3. . 6)
+       }
+    }
+    \midi {
+       \tempo 4 = 70
+       }
 }