Marked file for deletion, or just modified comments.

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

diff --git a/input/test/text-spanner.ly b/input/test/text-spanner.ly
index 499b3e9a1b888df09fd7a3cf6ee3c13c032d8611..4cb88635517a2d8530940d26e9e1aac611883e5d 100644 (file)
--- a/input/test/text-spanner.ly
+++ b/input/test/text-spanner.ly
@@ -1,34 +1,40 @@
+\version "1.7.18"
+% TODO: check about other ottava functions.
 
-\version "1.3.117";
+\header { texidoc = "@cindex Ottava Spanner
+You can make Lilypond print ottava spanners. "
+}
 
 \score{
     \notes\relative c''{
         \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
-        a \spanrequest \start "text"
+        a #(ly:export (make-span-event 'TextSpanEvent START))
        b c 
-        a \spanrequest \stop "text"
+        a #(ly:export (make-span-event 'TextSpanEvent STOP))
 
         \property Voice.TextSpanner \revert #'type
         \property Voice.TextSpanner \override #'type = #'dotted-line
-        a \spanrequest \start "text"
+        a #(ly:export (make-span-event 'TextSpanEvent START))
        b c 
-        a \spanrequest \stop "text"
+        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 \spanrequest \start "text"
+        a #(ly:export (make-span-event 'TextSpanEvent START))
        b c 
-        a \spanrequest \stop "text"
+        a #(ly:export (make-span-event 'TextSpanEvent STOP))
 
 
-        \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 #'thickness = #10
+        a #(ly:export (make-span-event 'TextSpanEvent START))
        b c 
-        a \spanrequest \stop "text"
-        \property Staff."c0-position" = #-6
+        a #(ly:export (make-span-event 'TextSpanEvent STOP))
+        \property Staff.centralCPosition = #-6 
     }
+       \paper{ raggedright = ##t}
 }
+%% new-chords-done %%