X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Ftext-spanner.ly;h=b1863808a60de88c59de1ce58e2988cba7c19fe3;hb=4ef4476a60ebdb17cd963ed95ee2460f5278e85f;hp=499b3e9a1b888df09fd7a3cf6ee3c13c032d8611;hpb=3b3e161088f1a4be942e67729d0f89f0e8d31c51;p=lilypond.git

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 499b3e9a1b..b1863808a6 100644
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -1,34 +1,42 @@
 
-\version "1.3.117";
+\version "1.9.7"
+% TODO: check about other ottava functions.
+
+\header { texidoc = "@cindex text spanner
+You can make LilyPond print text spanners. "
+}
 
 \score{
     \notes\relative c''{
-        \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
-        a \spanrequest \start "text"
+        \property Voice.TextSpanner \override #'edge-text = #'("bla" . "blu")
+        a \startTextSpan
 	b c 
-        a \spanrequest \stop "text"
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dotted-line
-        a \spanrequest \start "text"
+        \property Voice.TextSpanner \revert #'style
+        \property Voice.TextSpanner \override #'style = #'dotted-line
+        a \startTextSpan
 	b c 
-        a \spanrequest \stop "text"
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dashed-line
+        \property Voice.TextSpanner \revert #'style
+        \property Voice.TextSpanner \override #'style = #'dashed-line
         \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
-        a \spanrequest \start "text"
+        a \startTextSpan
 	b c 
-        a \spanrequest \stop "text"
+        a \stopTextSpan
 
 
-        \property Staff."c0-position" = #-13
+        \property Staff.centralCPosition = #-13
 
-        \property Voice.TextSpanner \override #'dash-length = #5
-        \property Voice.TextSpanner \override #'line-thickness = #10
-        a \spanrequest \start "text"
+        \property Voice.TextSpanner \override #'dash-period = #10
+        \property Voice.TextSpanner \override #'dash-fraction = #.5
+        \property Voice.TextSpanner \override #'thickness = #10
+        a \startTextSpan
 	b c 
-        a \spanrequest \stop "text"
-        \property Staff."c0-position" = #-6
+        a \stopTextSpan
+        \property Staff.centralCPosition = #-6	
     }
+	\paper{ raggedright = ##t}
 }
+