* scm/music-functions.scm (determine-split-list): bugfixes.

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

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 7746b7c3ba107edad4e963fd4d9576fd6f16b336..419707368fbd24e0b86469e511dcde02d974501d 100644 (file)
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -1,27 +1,41 @@
+
+\version "2.1.7"
+
+\header { texidoc = "@cindex text spanner
+You can make LilyPond print text spanners. "
+}
+
 \score{
     \notes\relative c''{
-        \property Voice.TextSpanner \push #'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 \pop #'type
-        \property Voice.TextSpanner \push #'type = #"dotted-line"
-        a \spanrequest \start "text"
+        \property Voice.TextSpanner \override #'dash-period = #2
+        \property Voice.TextSpanner \override #'dash-fraction = #0.0
+        a \startTextSpan
        b c 
-        a \spanrequest \stop "text"
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \pop #'type
-        \property Voice.TextSpanner \push #'type = #"dashed-line"
-        \property Voice.TextSpanner \push #'edge-height = #'(1 . -2)
-        a \spanrequest \start "text"
+        \property Voice.TextSpanner \revert #'style
+        \property Voice.TextSpanner \override #'style = #'dashed-line
+        \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
+        a \startTextSpan
        b c 
-        a \spanrequest \stop "text"
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \push #'dash-length = #5
-        \property Voice.TextSpanner \push #'line-thickness = #10
-        a \spanrequest \start "text"
+
+        \property Staff.centralCPosition = #-13
+
+        \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"
+        a \stopTextSpan
+        \property Staff.centralCPosition = #-6 
     }
+       \paper{ raggedright = ##t}
 }
+