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 af8efd382b493fbe4fae78b7dc92dcc56ab59169..4d11043f62cd9bb4d4b0309c9f25a8133e20f3c4 100644 (file)
--- a/input/test/music-box.ly
+++ b/input/test/music-box.ly
@@ -1,6 +1,4 @@
-\version "2.9.16"
-\sourcefilename "music-box.ly"
-
+\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
@@ -23,7 +21,7 @@ using Scheme functions to avoid typing work. " }
           (recurse (cdr elts))
         )))))
    music
-  ))
+  )) 
 
 #(define ((trans pitches) music)
   (let* ((es (ly:music-property music 'elements))
@@ -52,6 +50,11 @@ using Scheme functions to avoid typing work. " }
     music))
 
 
+
+
+
+\version "2.7.39"
+
 pat =  \transpose c c' \repeat unfold 2 {
   << { \context Staff = "up" {r8 e16 f g e f g } }
     { \context Staff = "down" <<
@@ -68,21 +71,15 @@ enda =  { r8 f,16 a, c f c a, \stemUp c \change Staff = down
 endb =  {\stemUp \tieUp r16 c,8.~c,4~c,2 r16 h,,8.~h,,4~h,,2 c,1 \bar "|."}
 endc =  {\stemDown \tieDown c,,2~c,, c,,~c,, c,,1_\fermata }
 
-
-prelude =
-#(define-music-function (parser location patterns) (ly:music?)
-                       (transform patterns))
-
-
 \score {
    \transpose c c' \context PianoStaff <<
        \new Staff = "up"   { \clef "G"  }
        \new Staff = "down" { \clef "F" }
-       { \prelude {
+       { \applyMusic #transform {
           \pat {c e g c' e' }
           \pat {c d a d' f' }
        }
-       
+        
 %{
                                %Etc.
 
@@ -124,7 +121,7 @@ prelude =
 %}
      }
    >>
-
+   
    \layout {
        \context {
           \PianoStaff
@@ -132,15 +129,9 @@ prelude =
        }
        line-width = 18.0 \cm
    }
-
    
-  \midi {
-    \context {
-      \Score
-      tempoWholesPerMinute = #(ly:make-moment 80 4)
-      }
-    }
-
-
+   \midi {
+       \tempo 4 = 80
+   }
 }