input/mutopia/F.Schubert/morgenlied.ly

   1 \header {
   2     title = "Sängers Morgenlied"
   3     composer = "Franz Schubert (1797-1828)"
   4     date = "27. Februar 1815"
   5     source = "Edition Peters"
   6     editor = "Paul Losse"
   7     enteredby="Han-Wen Nienhuys"
   8     maintainer="hanwen@xs4all.nl"
   9
  10     texidoc = "The source is a rather tightly set Peters in Edition is
  11     a heavy font. The Peters edition (4622c) was `herausgegeben' by
  12     Paul Losse, whose name also appears on a 1956 edition of some
  13     other music. Strictly speaking, his edititorial enhancements will
  14     not be in the PD - but I am assuming there are no notable ones in
  15     this small piece.
  16
  17     The original compresses the entire music onto a single page, in 4
  18     systems.  Lily does so too if you tune down spacing-increment, but
  19     chooses line breaks differently.
  20
  21     Further manual tweaks: the slur in measure 12 has been flattened
  22 manually. The beam in measure 3, left-hand, technically is wrong, but
  23 has been added following the original. The crescendo in measure 4 has
  24 been lowered
  25
  26 "
  27
  28 }
  29
  30 \version "2.11.61"
  31 manuscriptBreak = { \break }
  32
  33
  34
  35 #(set-global-staff-size (/ (* 5.8 72.27) 25.4))
  36
  37 \paper  {
  38 %#(set-global-staff-size (* 5.8 mm))
  39     line-width = #(* mm 160)
  40     indent = 8\mm
  41     interscoreline = 2.\mm
  42     between-system-space = 15\mm
  43     ragged-bottom = ##t
  44     }
  45
  46 modernAccidentals = {
  47   \set Staff.extraNatural =  ##f
  48   \set Staff.autoAccidentals =  #'(Staff (same-octave . 1) (any-octave . 0))
  49   \set Staff.autoCautionaries =  #'()
  50 }
  51
  52
  53 melody =    \relative c'' \repeat volta 2 \new Voice = "singer" {
  54     \time 6/8
  55     \autoBeamOff
  56     s1*0^\markup { \bold \large\larger\larger { \hspace #-3.0 Lieblich, etwas geschwind } }
  57   R2.
  58   r4 r8 c4 g8 |
  59   e4 c8
  60     <<
  61         \new Voice { \stemUp f8. g16 }
  62         { \stemDown f8.[ g16] } >> \stemNeutral a8 |
  63   fis4  g8 c16[ b a g] f[ e] |
  64   d4 f8 a16[ g fis g] f[ d] |
  65   g4. r8 gis gis |
  66   a4 a16.[ b32] c4 fis,8 |
  67   g4.~ g8-\fermata g8 g |
  68   as4 as8 g4 g8 |
  69   fis4 fis8 r8 g g  |
  70   a!4 a8 g4 g8 |
  71   fis4 fis8 d'16[ c b a] g[ f] |
  72   e4 g8 d4 g8 e4 r8 b'16[ c d b] g[ f] |
  73   e4 g8 d4 a'16[ g] |
  74   c,4 r8 r4 r8 |
  75
  76     % TODO : make \fermata work.
  77   R2.^\fermataMarkup
  78 }
  79
  80
  81 ignoreMelisma = \set ignoreMelismata = ##t
  82 ignoreMelismaOff = \unset ignoreMelismata
  83
  84
  85 firstVerse = \lyricmode {
  86     \set stanza = "1."
  87
  88     Sü -- ßes Licht! Aus
  89     \ignoreMelisma
  90     gol --
  91     \ignoreMelismaOff
  92
  93     de -- nen  Pfor -- ten brichst du __ \manuscriptBreak |
  94     sie -- gend durch __ die Nacht. Schö -- ner Tag, du __ bist er -- wacht. __ Mit ge -- |
  95     \manuscriptBreak
  96     heim -- nis -- vol -- len Wor -- ten, in me -- lo -- di -- schen Ak -- kor -- den, grüß __ ich __ \manuscriptBreak |
  97     dei -- ne Ro -- sen -- pracht, grüß __ ich __ dei -- ne Ro -- sen -- pracht.
  98     }
  99
 100 secondVerse = \lyricmode {
 101     \set stanza = "2."
 102     Ach, der Lie -- be sanf
 103     -- tes We -- hen schwellt mir |
 104     das be -- weg -- te __ Herz, sanft, wie ein ge -- lieb -- ter Schmerz. __ Dürft ich |
 105     nur auf gold -- nen Hö -- hen mich im Mor -- gen -- duft er -- ge -- hen! Sehn -- sucht |
 106     zieht mich him -- mel -- wärts, Sehn -- sucht zieht mich him -- mel -- wärts.
 107     }
 108
 109 pianoRH =  \relative c''' \repeat volta 2 {
 110     #(set-accidental-style 'modern)
 111     g16(_\p fis a g fis g f e d c b a ) |
 112     <g e>8( <es fis a> <d f b> <c e c'>) r8 r |
 113     r8 c'( e,) f r a |
 114     \once \override DynamicLineSpanner   #'padding =#3
 115     r8 << { s8 s8 }  << { fis(\> g)\!
 116                             } \\ { c,4 } >> >> r8 <e c g> <e c g> |
 117     <d c a>4. r8 \clef bass  <d b f> <d b f> |
 118     e,16_" "_\markup { \bold\italic cresc. } g c g e g d gis b gis d gis |
 119     c, e a e c e a,-\f d fis d a d |
 120     b d g  d b g r4\fermata \clef treble g''8 |
 121     as4.( g 4.) | fis4. r4 <d g>8 ( |
 122     <f a>4.) <e g>4.( <es fis> ) <d f>\sf |
 123     r8 <e c g> <e c g> r <d b g > <d b g> |
 124     r <e c g> <e c g> r <f d b g> <f d b g> |
 125     r <e c g> <e c g> r <d b f> <d b f> |
 126     c16(_\f b c e g b c b c e g <e b'>) |
 127     <c c'>8 r r <c, g e>8 r r\fermata |
 128 }
 129
 130 pianoLH =  \relative c'' \repeat volta 2 {
 131     #(set-accidental-style 'modern)
 132     g16( fis a g fis g f e d c b a) |
 133     \clef bass g4.( c,8) r r
 134     \clef treble r4 <bes' c>8([ <a c>)] r <f c'> |
 135     \clef bass r8 dis( e) r c c |
 136     f,4. r8 g g |
 137     <c, c,>4. <e e,>4. |
 138     a,4. <d d,>4. |
 139     g,8 r r g16 r16\fermata r8 g''8 |
 140     as4.( g ) |
 141     fis r4 <g b>8( |
 142     <f c'>4.)
 143
 144     \once \override Slur  #'height-limit = #1.0
 145
 146     <g c>4.( | <a c>4.) <g b,> |
 147     c,4 r8 g4 r8 |
 148     c4 r8 g4 r8 |
 149     c4 r8 g4 r8 |
 150     <c g e c>8 <c e g> <c e g>     <c e g> <c e g> <c e g> |
 151     <c e g> r r <c, c,>8 r r\fermata \clef treble
 152     }
 153
 154 \book {
 155     \score {
 156         << \time 6/8
 157            \new Staff <<
 158                \context Staff #(set-accidental-style 'modern)
 159                \melody >>
 160            \lyricsto "singer" \new Lyrics \firstVerse
 161            \lyricsto "singer" \new Lyrics \secondVerse
 162            \new PianoStaff <<
 163                \set PianoStaff.instrumentName = \markup {
 164                    \bold
 165                    \larger\larger\larger\larger \huge "2.  " }
 166                \new Staff \pianoRH
 167                \new Staff \pianoLH
 168            >>
 169        >>
 170
 171         \layout {
 172             \context {
 173                 \Lyrics
 174                 \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.5 . 2.5)
 175                 \override LyricText #'font-size = #-1
 176             }
 177             \context {
 178                 \Score
 179                 \override Beam #'thickness = #0.55
 180                 \override SpacingSpanner #'spacing-increment = #1.0
 181                 \override Slur #'height-limit = #1.5
 182             }
 183         }
 184         \midi {
 185           \context {
 186             \Score
 187             tempoWholesPerMinute = #(ly:make-moment 70 4)
 188           }
 189         }
 190     }
 191 }
 192