* Documentation/user/lilypond-book.itely

[lilypond.git] / input / test / text-spanner.ly

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index e9e804d0a1a2376ce7619c7c482eadc6d733b9be..b1863808a60de88c59de1ce58e2988cba7c19fe3 100644 (file)
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -2,38 +2,39 @@
 \version "1.9.7"
 % TODO: check about other ottava functions.
 
-\header { texidoc = "@cindex Ottava Spanner
-You can make LilyPond print ottava spanners. "
+\header { texidoc = "@cindex text spanner
+You can make LilyPond print text spanners. "
 }
 
 \score{
     \notes\relative c''{
-        \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        \property Voice.TextSpanner \override #'edge-text = #'("bla" . "blu")
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
         \property Voice.TextSpanner \revert #'style
         \property Voice.TextSpanner \override #'style = #'dotted-line
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
         \property Voice.TextSpanner \revert #'style
         \property Voice.TextSpanner \override #'style = #'dashed-line
         \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
 
         \property Staff.centralCPosition = #-13
 
-        \property Voice.TextSpanner \override #'dash-length = #5
+        \property Voice.TextSpanner \override #'dash-period = #10
+        \property Voice.TextSpanner \override #'dash-fraction = #.5
         \property Voice.TextSpanner \override #'thickness = #10
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
         \property Staff.centralCPosition = #-6 
     }
        \paper{ raggedright = ##t}