Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / input / test / add-text-script.ly

diff --git a/input/test/add-text-script.ly b/input/test/add-text-script.ly
index 6d66b21fe73d9f19d9e9e83725f1b0c400138810..12a0604cb3fabbbd9a1fd3bcb8ea52a843018605 100644 (file)
--- a/input/test/add-text-script.ly
+++ b/input/test/add-text-script.ly
@@ -1,10 +1,12 @@
-\version "2.9.7"
-\sourcefilename "add-text-script.ly"
+\version "2.7.39"
 
 \header {
 texidoc= "@cindex make-music Fingering
 You can add various stuff to notes using @code{make-music}.
 In this example, an extra fingering is attached to a note. 
+
+In general, first do a @code{display} of the music you want to
+create, then write a function that will structure the music for you.
 "
 } 
 
@@ -12,7 +14,7 @@ In this example, an extra fingering is attached to a note.
    (make-music 'TextScriptEvent
                'direction DOWN
                'text (make-simple-markup x)))
-
+     
 #(define (add-text-script m x)
    (if (equal? (ly:music-property m 'name) 'EventChord)
        (set! (ly:music-property m 'elements)
@@ -25,14 +27,9 @@ In this example, an extra fingering is attached to a note.
             (add-text-script e x))))
    m)
 
-addScript =
-#(define-music-function (parser location script music )
-                                       ( string? ly:music? )
-               (add-text-script music script))
-
 \score {
-  {
-    \addScript "6" { c'4-3 }
-  }
+  \applyMusic #(lambda (x)  (add-text-script x "6") (display-music x) x )  { c'4-3 }
+       \layout{ ragged-right = ##t }
 }
 
+