X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Ftext-spanner.ly;h=2a9c6a418c884d637f1debdb81514510fe179be1;hb=2976557ee7f774f7c7bb670caebef0c51af0b91f;hp=22b30373d95b4e376893f14f3a87094134a03dd5;hpb=368c6346e0d46aed9931f43f662ff5207dd943d8;p=lilypond.git

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 22b30373d9..2a9c6a418c 100644
--- 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.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
 
-\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 #'type
-        \property Voice.TextSpanner \override #'type = #'dotted-line
-        a #(ly-export (make-span-event 'TextSpanEvent START))
-	b c 
-        a #(ly-export (make-span-event 'TextSpanEvent STOP))
-
-        \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))
-	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
-    }
+    \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	
 }
+