]> git.donarmstrong.com Git - lilypond.git/blob - input/test/trill.ly
(note-name->markup): don't superscript root
[lilypond.git] / input / test / trill.ly
1 \version "1.7.22"
2
3 \header { texidoc="@cindex Trill
4 Show trill line type. "
5 }
6
7
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))
16
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))
23   }
24         \paper { raggedright = ##t} 
25 }
26
27 %% new-chords-done %%