X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Ftext-spanner.ly;h=2a9c6a418c884d637f1debdb81514510fe179be1;hb=169a91c8514e3dcea29d1aa01653a684fb60457d;hp=53784a734a20b95652ace6076b95a114f952ee16;hpb=c0270765c0df9cceda34a6584f7da324eed5fc2a;p=lilypond.git

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 53784a734a..2a9c6a418c 100644
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -1,34 +1,41 @@
 
-\version "1.3.110";
-
-\score{
-    \notes\relative c''{
-        \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
-        a \spanrequest \start "text"
-	b c 
-        a \spanrequest \stop "text"
-
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dotted-line
-        a \spanrequest \start "text"
-	b c 
-        a \spanrequest \stop "text"
-
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dashed-line
-        \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
-        a \spanrequest \start "text"
-	b c 
-        a \spanrequest \stop "text"
-
-
-        \property Staff."c0-position" = #-13
-
-        \property Voice.TextSpanner \override #'dash-length = #5
-        \property Voice.TextSpanner \override #'line-thickness = #10
-        a \spanrequest \start "text"
-	b c 
-        a \spanrequest \stop "text"
-        \property Staff."c0-position" = #-6
-    }
+\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	
 }
+