* scripts/lilypond-book.py (do_file): do not overwrite input file.

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

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 22b30373d95b4e376893f14f3a87094134a03dd5..0ac414db1f720dba8af9853a5990f2bee80d7b2a 100644 (file)
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -1,37 +1,41 @@
-\version "1.7.2"
 
-\header {
-texidoc = "ottava spanners."
+\version "2.1.26"
+
+\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))
+        \override TextSpanner  #'edge-text = #'("bla" . "blu")
+        a \startTextSpan
        b c 
-        a #(ly-export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dotted-line
-        a #(ly-export (make-span-event 'TextSpanEvent START))
+        \override TextSpanner  #'dash-period = #2
+        \override TextSpanner  #'dash-fraction = #0.0
+        a \startTextSpan
        b c 
-        a #(ly-export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dashed-line
-        \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
-        a #(ly-export (make-span-event 'TextSpanEvent START))
+        \revert TextSpanner #'style
+        \override TextSpanner  #'style = #'dashed-line
+        \override TextSpanner  #'edge-height = #'(1 . -2)
+        a \startTextSpan
        b c 
-        a #(ly-export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
 
-        \property Staff.centralCPosition = #-13
+        \set Staff.centralCPosition = #-13
 
-        \property Voice.TextSpanner \override #'dash-length = #5
-        \property Voice.TextSpanner \override #'thickness = #10
-        a #(ly-export (make-span-event 'TextSpanEvent START))
+        \override TextSpanner  #'dash-period = #10
+        \override TextSpanner  #'dash-fraction = #.5
+        \override TextSpanner  #'thickness = #10
+        a \startTextSpan
        b c 
-        a #(ly-export (make-span-event 'TextSpanEvent STOP))
-        \property Staff.centralCPosition = #-6
+        a \stopTextSpan
+        \set Staff.centralCPosition = #-6      
     }
+       \paper{ raggedright = ##t}
 }
+