-\version "1.7.2"
+\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 { linewidth = -1. }
\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}
}
+
+