Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / input / test / music-box.ly

diff --git a/input/test/music-box.ly b/input/test/music-box.ly
index 908fc02a1316c20aaf442673cfc3ae38a5842f32..4d11043f62cd9bb4d4b0309c9f25a8133e20f3c4 100644 (file)
--- a/input/test/music-box.ly
+++ b/input/test/music-box.ly
@@ -1,4 +1,4 @@
-\version "2.3.8"
+\version "2.7.39"
 \include "deutsch.ly"
 % possible rename to scheme- something.  -gp
 % TODO: ask if it needs to have so many empty bars in the middle.  -gp
@@ -9,9 +9,9 @@ using Scheme functions to avoid typing work. " }
 
 #(define (transform music)
   (let* ((es (ly:music-property music 'elements))
-         (n  (ly:music-name music)))
-   (if (not (equal? n "Sequential_music"))
-     (ly:warn "transform needs sequential music!")
+         (n  (ly:music-property music 'name)))
+   (if (not (equal? n 'SequentialMusic))
+     (ly:warning "transform needs SequentialMusic, got ~a" n)
      (begin
       (let recurse ((elts es))
        (if (not (equal? elts '()))
@@ -53,19 +53,19 @@ using Scheme functions to avoid typing work. " }
 
 
 
-\version "2.3.8"
+\version "2.7.39"
 
 pat =  \transpose c c' \repeat unfold 2 {
-  << { \context Staff=up {r8 e16 f g e f g } }
-    { \context Staff=down <<
-      \context Voice=vup  { \stemUp \tieUp r16 d8.~d4 }
-      \context Voice=vdwn { \stemDown  c2 }
+  << { \context Staff = "up" {r8 e16 f g e f g } }
+    { \context Staff = "down" <<
+      \context Voice = "vup"  { \stemUp \tieUp r16 d8.~d4 }
+      \context Voice = "vdwn" { \stemDown  c2 }
     >> }
   >>
 }
 
 enda =  { r8 f,16 a, c f c a, \stemUp c \change Staff = down
-      a, f, a, f, d, f, d, \change Staff = up \stemBoth
+      a, f, a, f, d, f, d, \change Staff = up \stemNeutral
       r8 g16 h d' f' d' h d' h g h d f e\prall d <e g c'>1^\fermata \bar "|."
 }
 endb =  {\stemUp \tieUp r16 c,8.~c,4~c,2 r16 h,,8.~h,,4~h,,2 c,1 \bar "|."}
@@ -73,9 +73,9 @@ endc =  {\stemDown \tieDown c,,2~c,, c,,~c,, c,,1_\fermata }
 
 \score {
    \transpose c c' \context PianoStaff <<
-       \context Staff=up   { \clef "G"  }
-       \context Staff=down { \clef "F" }
-       { \applymusic #transform {
+       \new Staff = "up"   { \clef "G"  }
+       \new Staff = "down" { \clef "F" }
+       { \applyMusic #transform {
           \pat {c e g c' e' }
           \pat {c d a d' f' }
        }
@@ -122,12 +122,12 @@ endc =  {\stemDown \tieDown c,,2~c,, c,,~c,, c,,1_\fermata }
      }
    >>
    
-   \paper {
+   \layout {
        \context {
           \PianoStaff
           \override VerticalAlignment #'forced-distance = #10
        }
-       linewidth = 18.0 \cm
+       line-width = 18.0 \cm
    }
    
    \midi {