]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/text-spanner.ly
* scripts/convert-ly.py (conv): remove \notes.
[lilypond.git] / input / test / text-spanner.ly
index 097a68d2bc7af299004b2bae846186c702514b6c..e74a68974edd86541253f83cfb82b598433c219c 100644 (file)
@@ -1,39 +1,42 @@
-\version "1.7.22"
-% TODO: check about other ottava functions.
 
-\header { texidoc = "@cindex Ottava Spanner
-You can make LilyPond print ottava spanners. "
+\version "2.3.4"
+
+\header { texidoc = "@cindex text spanner
+Text spanners can be used in the similar manner than markings for pedals
+or octavation.
+"
 }
 
 \score{
-    \notes\relative c''{
-        \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+    \relative c''{
+        \override TextSpanner  #'edge-text = #'("bla" . "blu")
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \revert #'style
-        \property Voice.TextSpanner \override #'style = #'dotted-line
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        \override TextSpanner  #'dash-period = #2
+        \override TextSpanner  #'dash-fraction = #0.0
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
-        \property Voice.TextSpanner \revert #'style
-        \property Voice.TextSpanner \override #'style = #'dashed-line
-        \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        \revert TextSpanner #'style
+        \override TextSpanner  #'style = #'dashed-line
+        \override TextSpanner  #'edge-height = #'(1 . -2)
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        a \stopTextSpan
 
 
-        \property Staff.centralCPosition = #-13
+        \set Staff.middleCPosition = #-13
 
-        \property Voice.TextSpanner \override #'dash-length = #5
-        \property Voice.TextSpanner \override #'thickness = #10
-        a #(ly:export (make-span-event 'TextSpanEvent START))
+        \override TextSpanner  #'dash-period = #10
+        \override TextSpanner  #'dash-fraction = #.5
+        \override TextSpanner  #'thickness = #10
+        a \startTextSpan
        b c 
-        a #(ly:export (make-span-event 'TextSpanEvent STOP))
-        \property Staff.centralCPosition = #-6 
+        a \stopTextSpan
+        \set Staff.middleCPosition = #-6       
     }
        \paper{ raggedright = ##t}
 }