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

[lilypond.git] / input / test / trill.ly

diff --git a/input/test/trill.ly b/input/test/trill.ly
index 8cd763f3fc688dded87fb8c01b8a44bf27596a1c..9b635e9e3e5d97e26276e9176b9e57c234c98f69 100644 (file)
--- a/input/test/trill.ly
+++ b/input/test/trill.ly
@@ -1,7 +1,10 @@
 \version "2.1.7"
 
 \header { texidoc="@cindex Trill
-Show trill line type. "
+Show trill line type.
+
+The extended trill is a TextSpanner in @code{trill} style.
+"
 }
 
 
@@ -9,17 +12,19 @@ Show trill line type. "
   \context RhythmicStaff \notes {
     \stemDown
     \property Voice.Stem \override #'transparent = ##t
-    \property Voice.TextSpanner \set #'style = #'dotted-line
+    \property Voice.TextSpanner \set #'dash-fraction = #0.0
+    \property Voice.TextSpanner \set #'dash-period = #1.0
     \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
     \property Voice.TextSpanner \set #'edge-text = #'("bla " . "")
-    a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
+    a\startTextSpan b c a\stopTextSpan
+
 
-    %\property Voice.TextSpanner \set #'font-family = #'music
+    %% TODO: should have trill spanner.
     \property Voice.TextSpanner \set #'style = #'trill
     \property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
     \property Voice.TextSpanner \set #'edge-text
      = #(cons (make-musicglyph-markup "scripts-trill")  "")
-    a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
+    a\startTextSpan b c a\stopTextSpan
   }
        \paper { raggedright = ##t} 
 }