small fixes.

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

diff --git a/input/test/trill.ly b/input/test/trill.ly
index 4ae3d5c55761d2165609798161fd455fe38bf189..0fdb12a8b68b5b369ae37afc337d62ab31a5637a 100644 (file)
--- a/input/test/trill.ly
+++ b/input/test/trill.ly
@@ -1,26 +1,31 @@
-\version "1.7.16"
+\version "2.2.0"
 
-\header {
-texidoc="show trill line type"
+\header { texidoc="@cindex Trill
+The extended trill may be produced using @code{TextSpanner} with @code{trill} 
+spanner style.
+"
 }
 
-\paper { raggedright = ##t} 
 
 \score {
   \context RhythmicStaff \notes {
     \stemDown
-    \property Voice.Stem \override #'transparent = ##t
-    \property Voice.TextSpanner \set #'type = #'dotted-line
-    \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
-    \property Voice.TextSpanner \set #'edge-text = #'("8va " . "")
-    a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
+    \override Stem  #'transparent = ##t
+    \override TextSpanner  #'dash-fraction = #0.0
+    \override TextSpanner  #'dash-period = #1.0
+    \override TextSpanner  #'edge-height = #'(0 . 1.5)
+    \override TextSpanner  #'edge-text = #'("bla " . "")
+    a\startTextSpan b c a\stopTextSpan
 
-    %\property Voice.TextSpanner \set #'font-family = #'music
-    \property Voice.TextSpanner \set #'type = #'trill
-    \property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
-    \property Voice.TextSpanner \set #'edge-text = #'((line (music "scripts-trill") " ") . "")
-    a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
+
+    %% TODO: should have trill spanner.
+    \override TextSpanner  #'style = #'trill
+    \override TextSpanner  #'edge-height = #'(0 . 0)
+    \override TextSpanner  #'edge-text
+  = #(cons (make-musicglyph-markup "scripts-trill")  "")
+    a\startTextSpan b c a\stopTextSpan
   }
-  \paper { }  
+       \paper { raggedright = ##t} 
 }
-%% new-chords-done %%
+
+