(note-name->markup): don't superscript root
[lilypond.git] / input / test / trill.ly
blob4378350dcaf845b09f501128d90fa0a55dfa0385
1 \version "1.7.22"
3 \header { texidoc="@cindex Trill
4 Show trill line type. "
8 \score {
9 \context RhythmicStaff \notes {
10 \stemDown
11 \property Voice.Stem \override #'transparent = ##t
12 \property Voice.TextSpanner \set #'style = #'dotted-line
13 \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
14 \property Voice.TextSpanner \set #'edge-text = #'("bla " . "")
15 a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
17 %\property Voice.TextSpanner \set #'font-family = #'music
18 \property Voice.TextSpanner \set #'style = #'trill
19 \property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
20 \property Voice.TextSpanner \set #'edge-text
21 = #(cons (make-musicglyph-markup "scripts-trill") "")
22 a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
24 \paper { raggedright = ##t}
27 %% new-chords-done %%