]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/smart-transpose.ly
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / input / test / smart-transpose.ly
index d97359157cac75d25b1f0f2aecd4fa331d072fb4..b1296b394849412215ab3a0875bff7320bfd2c82 100644 (file)
@@ -1,5 +1,5 @@
-\version "2.9.7"
-\sourcefilename "smart-transpose.ly"
+
+\version "2.7.39"
 
 \header {
 texidoc="@cindex Smart Transpose
@@ -9,6 +9,7 @@ to have the minimum number of accidentals. In that case, ``Double
 accidentals should be removed, as well as E-sharp (-> F), bC (-> B),
 bF (-> E), B-sharp (-> C).'', as proposed by a request for a new feature.
 In this manner, the most natural enharmonic notes are chosen in this example.
+
 "
 }
 %
@@ -65,18 +66,14 @@ In this manner, the most natural enharmonic notes are chosen in this example.
 
 music =  \relative c' { c4 d  e f g a b  c }
 
-naturaliseMusic =
-#(define-music-function (parser location m)
-                                       (ly:music?)
-                       (naturalise m))
-
 \score {
    \context Staff {
     \transpose c ais \music
-    \naturaliseMusic \transpose c ais \music
+    \applyMusic #naturalise \transpose c ais \music
     \transpose c deses \music
-    \naturaliseMusic \transpose c deses \music
+    \applyMusic #naturalise \transpose c deses \music
   }
   \layout { ragged-right = ##t}
 }
 
+