bump .ly \version to 2.10.0

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

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 1c8a2339ae68a3cb5ecc2aa7858c4fd8bf30c9db..2a9c6a418c884d637f1debdb81514510fe179be1 100644 (file)
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -1,40 +1,41 @@
-\version "1.7.22"
-% TODO: check about other ottava functions.
 
-\header { texidoc = "@cindex Ottava Spanner
-You can make Lilypond print ottava spanners. "
-}
-
-\score{
-    \notes\relative c''{
-        \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
-        a #(ly:export (make-span-event 'TextSpanEvent START))
-       b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
-
-        \property Voice.TextSpanner \revert #'style
-        \property Voice.TextSpanner \override #'style = #'dotted-line
-        a #(ly:export (make-span-event 'TextSpanEvent START))
-       b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
-
-        \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))
-       b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
-
-
-        \property Staff.centralCPosition = #-13
-
-        \property Voice.TextSpanner \override #'dash-length = #5
-        \property Voice.TextSpanner \override #'thickness = #10
-        a #(ly:export (make-span-event 'TextSpanEvent START))
-       b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
-        \property Staff.centralCPosition = #-6 
-    }
-       \paper{ raggedright = ##t}
+\version "2.10.0"
+
+\header { texidoc = "@cindex text spanner
+Text spanners can be used in the similar manner than markings for pedals
+or octavation.
+"
+      }
+\layout{ ragged-right = ##t}
+
+\relative c''{
+    \override TextSpanner  #'edge-text = #'("bla" . "blu")
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+    \override TextSpanner  #'dash-period = #2
+    \override TextSpanner  #'dash-fraction = #0.0
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+    \revert TextSpanner #'style
+    \override TextSpanner  #'style = #'dashed-line
+    \override TextSpanner  #'edge-height = #'(1 . -2)
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+
+    \set Staff.middleCPosition = #-13
+
+    \override TextSpanner  #'dash-period = #10
+    \override TextSpanner  #'dash-fraction = #.5
+    \override TextSpanner  #'thickness = #10
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+    \set Staff.middleCPosition = #-6   
 }