]> 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 74a7dd5889f773852078583eb81a864ebf1941af..2a9c6a418c884d637f1debdb81514510fe179be1 100644 (file)
@@ -1,38 +1,41 @@
-\version "1.7.18"
 
-\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   
 }
-%% new-chords-done %%
+