bump .ly \version to 2.10.0

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

diff --git a/input/test/music-box.ly b/input/test/music-box.ly
index d1924e9fb3a04f045602a8b030ff9634fc5d4aad..9e5b09cdb8e3b23c64309e87c2c42cee75169937 100644 (file)
--- a/input/test/music-box.ly
+++ b/input/test/music-box.ly
@@ -1,4 +1,6 @@
-\version "2.6.0"
+\version "2.10.0"
+\sourcefilename "music-box.ly"
+
 \include "deutsch.ly"
 % possible rename to scheme- something.  -gp
 % TODO: ask if it needs to have so many empty bars in the middle.  -gp
@@ -21,7 +23,7 @@ using Scheme functions to avoid typing work. " }
           (recurse (cdr elts))
         )))))
    music
-  )) 
+  ))
 
 #(define ((trans pitches) music)
   (let* ((es (ly:music-property music 'elements))
@@ -50,11 +52,6 @@ using Scheme functions to avoid typing work. " }
     music))
 
 
-
-
-
-\version "2.6.0"
-
 pat =  \transpose c c' \repeat unfold 2 {
   << { \context Staff = "up" {r8 e16 f g e f g } }
     { \context Staff = "down" <<
@@ -71,15 +68,21 @@ 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 <<
-       \context Staff = "up"   { \clef "G"  }
-       \context Staff = "down" { \clef "F" }
-       { \applymusic #transform {
+       \new Staff = "up"   { \clef "G"  }
+       \new Staff = "down" { \clef "F" }
+       { \prelude {
           \pat {c e g c' e' }
           \pat {c d a d' f' }
        }
-        
+       
 %{
                                %Etc.
 
@@ -121,17 +124,23 @@ endc =  {\stemDown \tieDown c,,2~c,, c,,~c,, c,,1_\fermata }
 %}
      }
    >>
-   
+
    \layout {
        \context {
           \PianoStaff
           \override VerticalAlignment #'forced-distance = #10
        }
-       linewidth = 18.0 \cm
+       line-width = 18.0 \cm
    }
+
    
-   \midi {
-       \tempo 4 = 80
-   }
+  \midi {
+    \context {
+      \Score
+      tempoWholesPerMinute = #(ly:make-moment 80 4)
+      }
+    }
+
+
 }