]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/mutopia/R.Schumann/romanze-op28-2.ly
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / input / mutopia / R.Schumann / romanze-op28-2.ly
index 69d79029ec3cd42f091c109ef5d01f21e55891bd..9244f3a7ac8ae3507341d3188b6b9ee08beace24 100644 (file)
@@ -1,15 +1,15 @@
-#(ly:set-option 'old-relative)
 % NOT FINISHED!!!!
 
 \include "deutsch.ly"
 
 #(set-global-staff-size 16)
-\version "2.1.29"
+
+\version "2.7.39"
 
 \header {
   title = "Romanzen"
   opus = "op. 28/2"
-  composer = "R. Schumann (1810-1856)"
+  composer = "Robert Schumann (1810-1856)"
   enteredby="Rune Zedeler"
   maintainer="rune@zedeler.dk"
   mutopiatitle = "Romanzen - op. 28/2"
 
 u = { \change Staff = up  \stemDown }
 m = { \change Staff = mid  \stemUp  }
-d = { \change Staff = down  \stemUp }
+
+%
+% d = .. complains about note names.
+% 
+#(define d  #{ \change Staff = down  \stemUp #})
 
 forcedBreak = \break
 
-global = \notes { \key fis \major \time 6/8
+global =  { \key fis \major \time 6/8
   \set Score.beatLength =  #(ly:make-moment 3 8)
   \repeat volta 2 { s2.*8 } s2.*26 \bar "|."
 }
 
-righta = \notes \transpose c cis' {
+righta =  \transpose c cis' {
  % \stemUp \slurUp \tieUp
  \stemUp
- \override Slur   #'attachment = #'(stem . stem)
  \repeat volta 2 {
   \override TextScript   #'extra-offset = #'(-8.0 . 2.5)
   \m  a,16[^\p( \u c^\markup {
@@ -70,7 +73,7 @@ righta = \notes \transpose c cis' {
  \m  f,[( \u c^3 f c] \m  g,[ \u c^4] \m  a,[ \u c^2 a c8  cis16)] |
  \m  a,[( \u d^2 a d] \m  c[ \u d c' d] \m  b,[ \u  d)^3] r8 |
  \m  c16[( \u f c' f] \m  es[ \u f es' f] \m  d[ \u  f)^3] \m  f[( \u as^2] |
-  f'[  as)] \m  f[( \u as f'  as)] r8^\fermata r16 e'^2( f' g' | \stemBoth \tieBoth
+  f'[  as)] \m  f[( \u as f'  as)] r8^\fermata r16 e'^2( f' g' | \stemNeutral \tieNeutral
  as' des'^1 c'8^\markup { \finger "2-3" } h~h  c'16) \clef F  e,16[(^2 f, g,] |
  \forcedBreak
 
@@ -80,14 +83,14 @@ righta = \notes \transpose c cis' {
   f) f'-5( e'-5 d'-4 c'-3  f')-5 <f^4 a^5>4( <e^3 g^5>8 |
  <a, f^4>4 <g, e^3>8 f16^4 d'^5~ d'8.[ c'16^4] |
  \forcedBreak 
- << f8)^3_\pp \context Voice = another { \m  a,16[ \u c8 c16] } >> \m  g,[ \u c_3] \m  b,[^\markup { \finger "2-1" } \u c8 c16] \m  a,[ \u c]~ | \stemBoth
+ << f8)^3_\pp \new Voice =  "another" { \m  a,16[ \u c8 c16] } >> \m  g,[ \u c_3] \m  b,[^\markup { \finger "2-1" } \u c8 c16] \m  a,[ \u c]~ | \stemNeutral
  c16 c8_4 c c16~c c8_2 c c16~ |
  c16 c8 c c16~c c8 c c16~ |
  c16 c8 c c16 r4^\fermata r8 | \bar "|."
 
 }
 
-rightb = \notes \transpose c cis' {
+rightb =  \transpose c cis' {
  \relative c { \stemDown \slurDown
   \repeat volta 2 {
    a4^1( g8^1 b4^1 a8^1 |
@@ -107,13 +110,10 @@ rightb = \notes \transpose c cis' {
  c_3 g,_2 es, g, h,_4 g, d, g, c g,8 f,16 |
  c g, es, g, es c_3 as, c^2 d^3 c h, c |
  e des b,\< des g e_3 ces_4 d_2 f^3 d cis d |
- \override PhrasingSlur   #'extra-offset = #'(0 . 3)
- \override PhrasingSlur   #'beautiful = #42
+ \once \override PhrasingSlur   #'extra-offset = #'(0 . 3)
  g\( fes des fes b g_3 es_1\! ges_2 a^3 ges f_1 ges_2 |
  r ges_2 b des_1 ges b,_2 des ges,^1 b, \d des,^1 \stemDown \transpose c' c { b,[_1 as,] |
  g,8  b,16[ g, e, cis,]  d,\)_4 \< f, h, d_3 f_2  r16\! }
- \revert PhrasingSlur #'extra-offset
- \revert PhrasingSlur #'beautiful
 
  \change Staff=mid
  \relative c { \stemDown \slurDown
@@ -123,7 +123,7 @@ rightb = \notes \transpose c cis' {
   f,8.. f32^1 g8^2  a4.) |
   a4^1( c8^1_\accent~[c b)] g16^1([ b^2] |
    c4)^1 es8^1~es d^1 f^1~ |
-  \override PianoStaff.Arpeggio  #'direction = #1
+  \override PianoStaff.Arpeggio  #'direction = #UP
   f f8.. f32^1( as4.)^\fermata\arpeggio ~ |
   \revert PianoStaff.Arpeggio #'direction
   \stemUp \tieUp as r4 r8 |
@@ -135,7 +135,7 @@ rightb = \notes \transpose c cis' {
   \revert Stem #'stroke-style }
   f4) e8 |
  f g16_2 b_1 a_2 gis_1 c_2 h, c cis_1 d_2 b,_1 |
- \tieDown c4.~<f, c  >16\< \tieBoth <f h>~ < f^3 h >8[\>\! < e b^2> \!] |
+ \tieDown c4.~<f, c  >16\< \tieNeutral <f h>~ < f^3 h >8[\>\! < e b^2> \!] |
  \change Staff=mid
  \transpose c' c {
   a4^1( g8^1 b4 a8^2 |
@@ -145,7 +145,7 @@ rightb = \notes \transpose c cis' {
  }
 }
 
-lefta = \notes \transpose c cis {
+lefta =  \transpose c cis {
  \stemUp \slurUp \tieUp
  \repeat volta 2 {
   f4^1( e8^1 g4^1 f8^1 |
@@ -157,13 +157,13 @@ lefta = \notes \transpose c cis {
    d4)^1 f8^1^\accent(~f e^. dis^1^. |
   e4^1 d8^1~d  c4)^1 |
  }
- \d \tieBoth \slurDown
+ \d \tieNeutral \slurDown
  <<
  \transpose c' c {
   g4 a8~a f g | a4 g8~g f e |
   d4 g8~g es f | g4 f8~f es d |
   c4 r8 f4 as8~ | as g b as4 ces'8~ |
-  ces' b des' c'4 \context Voice=another { \stemUp \tieUp <es' es>8~ |
+  ces' b des' c'4 \new Voice =  "another" { \stemUp \tieUp <es' es>8~ |
   es' des'4^1~ \stemDown  des'8.[ c'16] }
  }
  \transpose c' c, {
@@ -198,7 +198,7 @@ lefta = \notes \transpose c cis {
  f~ f\fermata |
 }
 
-leftb = \notes \transpose c cis {
+leftb =  \transpose c cis {
  \stemDown \slurDown \tieDown
  \repeat volta 2 {
   f16^\p c f, c e c-3 g c-2 f, c f c |
@@ -220,7 +220,7 @@ leftb = \notes \transpose c cis {
  fis^1 d d, d  a[ d_2] g, d g d_3  b,[_5( g_2] |
   a) c_3 f, c  c'[ f_2] b, f b f_3 d' as |
  h, as d' as h, as( f'4.)^\fermata\arpeggio_2 ~
- \d \stemDown f'8. \clef G \stemBoth \tieBoth \phrasingSlurDown
+ \d \stemDown f'8. \clef G \stemNeutral \tieNeutral \phrasingSlurDown
    \transpose c c' { e16[_4( f g]  as[ des_3]  c8[_4 <h, d f d'>)]~ |
  <h, d f d'>} \clef F <c_3 f_1>[( <b,_4 e^2>] <a,_5 eis^1>8.) h,16_4\( c d |
  \voiceTwo
@@ -236,53 +236,55 @@ leftb = \notes \transpose c cis {
  c c8 c c16 r4_\fermata r8 \bar "|." |
 }
 
-\score { \notes
+
+\paper {
+    indent = 0.5 \in
+    % textheight = 29.8 \cm
+    pagenumber = no
+    line-width = 17.0 \cm
+}  
+                      
+\score { 
   \context PianoStaff <<
     #(set-accidental-style 'piano-cautionary)
     \override PianoStaff.NoteCollision   #'merge-differently-dotted = ##t
     \set PianoStaff.connectArpeggios = ##t
-    \arpeggioBracket
+    \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
 
-    \override PianoStaff.InstrumentName   #'font-size = #6
-    \override PianoStaff.InstrumentName   #'font-shape = #'italic
-    \override PianoStaff.InstrumentName   #'font-magnification = #3
+    \override PianoStaff.InstrumentName #'font-size = #6
+    \override PianoStaff.InstrumentName #'font-shape = #'italic
+    \override PianoStaff.InstrumentName #'font-magnification = #3
     
     \set PianoStaff.instrument = "  2."
-    \context Staff = up {
-      \override Staff.DynamicLineSpanner   #'direction = #-1
-      \clef G <<\global \context Voice=upv \righta >>
+    \new Staff =  "up" {
+      \override Staff.DynamicLineSpanner   #'direction = #DOWN
+      \clef G <<\global \new Voice =  "upv" \righta >>
     }
-    \context Staff = mid {
+    \new Staff =  "mid" {
     \override Staff.InstrumentName #'font-size = #0
     \override Staff.InstrumentName #'font-shape = #'upright
     \override Staff.InstrumentName #'font-magnification = #1
     \override Staff.InstrumentName #'extra-offset = #'(0 . 6)
    % \set Staff.instrument = "\\begin{turn}{-90}{Rechte Hand}\\end{turn}"
-    \set Staff.instrument = \markup { \column < Rechte Hand >  \hspace #2 }
-      \clef F <<\global \context Voice=midv \rightb>>
+    \set Staff.instrument = \markup { \column { Rechte Hand }  \hspace #2 }
+      \clef F <<\global \new Voice =  "midv" \rightb>>
     }
-      \context Staff = down {
-        \override Staff.DynamicLineSpanner   #'direction = #1
+      \new Staff =  "down" {
+        \override Staff.DynamicLineSpanner   #'direction = #UP
         \clef F
-       << \global \context Voice=lva \lefta \context Voice=lvb \leftb >>
+       << \global \new Voice \lefta \new Voice \leftb >>
     }
   >>
-  \paper {
-    interscoreline = 0.0
-    interscorelinefill = 1
-    indent = 0.5 \in
-    % textheight = 29.8 \cm
-    pagenumber = no
-    linewidth = 17.0 \cm
+  \layout { 
     \context {
       \RemoveEmptyStaffContext
     }
     \context {
-      \ScoreContext
+      \Score
       \override SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 8)
     }
     \context {
-      \PianoStaffContext
+      \PianoStaff
       \override VerticalAlignment #'forced-distance = #13.0
     }
   }