cleanup. Separate into internal

[lilypond.git] / input / mutopia / R.Schumann / romanze-op28-2.ly

diff --git a/input/mutopia/R.Schumann/romanze-op28-2.ly b/input/mutopia/R.Schumann/romanze-op28-2.ly
index aeadb1f0d1a8d61fe07b408c385749c14f3078d5..2d32473ee1cd217757c266c8235bc29ed2ed6fee 100644 (file)
--- a/input/mutopia/R.Schumann/romanze-op28-2.ly
+++ b/input/mutopia/R.Schumann/romanze-op28-2.ly
@@ -3,10 +3,8 @@
 
 \include "deutsch.ly"
 
-%% 19 is broken --hwn.
-%\include "paper19.ly"
-\include "paper16.ly"
-\version "1.9.8"
+#(set-global-staff-size 16)
+\version "2.1.21"
 
 \header {
   title = "Romanzen"
@@ -21,9 +19,9 @@
   copyright = "Public Domain"
 }
 
-u = { \translator Staff = up  \stemDown }
-m = { \translator Staff = mid  \stemUp  }
-d = { \translator Staff = down  \stemUp }
+u = { \change Staff = up  \stemDown }
+m = { \change Staff = mid  \stemUp  }
+d = { \change Staff = down  \stemUp }
 
 forcedBreak = \break
 
@@ -40,7 +38,7 @@ righta = \notes \transpose c cis' {
   \property Voice.TextScript \override #'extra-offset = #'(-8.0 . 2.5)
   \m  a,16[^\p( \u c^\markup {
       \large "Einfach ("
-      \note #3 #0 #1
+      \note #"8" #1
       \large " = 100)" }
   a c ] \m  g,[ \u c^3 ] \m  b,[ \u c^2 b c] \m  a,[ \u c^3]) | 
   \property Voice.TextScript \revert #'extra-offset
@@ -117,13 +115,13 @@ rightb = \notes \transpose c cis' {
  \property Voice.PhrasingSlur \revert #'extra-offset
  \property Voice.PhrasingSlur \revert #'beautiful
 
- \translator Staff=mid
+ \change Staff=mid
  \relative c { \stemDown \slurDown
   a4^1( g8^1 b4^1 a8^1 |
   f8..^1 f32^1 g8^2  a4.)^1 |
   c4^1( b8 d4 c8 |
   f,8.. f32^1 g8^2  a4.) |
-  a4^1( c8^1_\accent~[c b)] [g16^1( b^2] |
+  a4^1( c8^1_\accent~[c b)] g16^1([ b^2] |
    c4)^1 es8^1~es d^1 f^1~ |
   \property PianoStaff.Arpeggio \override #'direction = #1
   f f8.. f32^1( as4.)^\fermata\arpeggio ~ |
@@ -138,7 +136,7 @@ rightb = \notes \transpose c cis' {
   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> \!] |
- \translator Staff=mid
+ \change Staff=mid
  \transpose c' c {
   a4^1( g8^1 b4 a8^2 |
   f8..^1 f32^1 g8^2  a8..)   \slurUp <f f'^3>32( <g g'^4>8 |
@@ -177,7 +175,7 @@ lefta = \notes \transpose c cis {
   \property Voice.NoteColumn \override #'horizontal-shift = #-1 des' s
  }
  >>
- \translator Staff=down \stemUp \slurUp \tieUp \phrasingSlurUp
+ \change Staff=down \stemUp \slurUp \tieUp \phrasingSlurUp
  f4^1( e8^1 g4^1 f8^1 |
  d8..^1 d32^2 e8^1  f4.) |
  a4^1( g8 b4 a8 |
@@ -231,7 +229,7 @@ leftb = \notes \transpose c cis {
   d) e( f16_4 d_5  c4.)_ \markup { \finger "4-3" }~ |
  \oneVoice
  c16( h,_4 c_3 cis_1 d_2 b,_3 a,_4 as,_1 g,8  c,8) |
- \translator Staff = down \stemDown \tieDown
+ \change Staff = down \stemDown \tieDown
  f16^\pp c f, c e c-3 g c-2 f, c f c |
  d c f, c-3 e c f c-2 f, c-3 e c |
  f c-2 f, c-3 e c ~ c c8 c c16 ~ |
@@ -243,9 +241,9 @@ leftb = \notes \transpose c cis {
     \pianoCautionaries
     \property PianoStaff.NoteCollision \override #'merge-differently-dotted = ##t
     \property PianoStaff.connectArpeggios = ##t
-    \property PianoStaff.Arpeggio \override #'molecule-callback = \arpeggioBracket
+    \property PianoStaff.Arpeggio \override #'print-function = \arpeggioBracket
 
-    \property PianoStaff.InstrumentName \set #'font-relative-size   = #3
+    \property PianoStaff.InstrumentName \set #'font-size = #6
     \property PianoStaff.InstrumentName \set #'font-shape   = #'italic
     \property PianoStaff.InstrumentName \set #'font-magnification   = #3
     
@@ -255,7 +253,7 @@ leftb = \notes \transpose c cis {
       \clef G <<\global \context Voice=upv \righta >>
     }
     \context Staff = mid {
-    \property Staff.InstrumentName \set #'font-relative-size   = #0
+    \property Staff.InstrumentName \set #'font-size = #0
     \property Staff.InstrumentName \set #'font-shape   = #'upright
     \property Staff.InstrumentName \set #'font-magnification   = #1
     \property Staff.InstrumentName \set #'extra-offset = #'(0 . 6)