]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/text-spanner.ly
bump .ly \version to 2.10.0
[lilypond.git] / input / test / text-spanner.ly
index 7746b7c3ba107edad4e963fd4d9576fd6f16b336..2a9c6a418c884d637f1debdb81514510fe179be1 100644 (file)
@@ -1,27 +1,41 @@
-\score{
-    \notes\relative c''{
-        \property Voice.TextSpanner \push #'edge-text = #'("8 " . "")
-        a \spanrequest \start "text"
-       b c 
-        a \spanrequest \stop "text"
-
-        \property Voice.TextSpanner \pop #'type
-        \property Voice.TextSpanner \push #'type = #"dotted-line"
-        a \spanrequest \start "text"
-       b c 
-        a \spanrequest \stop "text"
-
-        \property Voice.TextSpanner \pop #'type
-        \property Voice.TextSpanner \push #'type = #"dashed-line"
-        \property Voice.TextSpanner \push #'edge-height = #'(1 . -2)
-        a \spanrequest \start "text"
-       b c 
-        a \spanrequest \stop "text"
-
-        \property Voice.TextSpanner \push #'dash-length = #5
-        \property Voice.TextSpanner \push #'line-thickness = #10
-        a \spanrequest \start "text"
-       b c 
-        a \spanrequest \stop "text"
-    }
+
+\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   
 }
+