4 % Test scm markup text and kerning
8 % This is not a feature, it is a hack. If you change anything,
9 % it will probably break (that's because scm markup text is a
10 % bit broken and needs fixing). Chances are, it's already
11 % broken by the time you read this. Don't complain.
13 % FIXME: put in an item, and typeset by an engraver.
15 #(define note '(rows (music "noteheads-2" ((kern . -0.1) "flags-stem"))))
16 #(define eight-note `(rows ,note ((kern . -0.1) (music ((raise . 3.5) "flags-u3")))))
17 #(define dotted-eight-note `(rows ,eight-note (music "dots-dot")))
21 a1^#`((rows (font-relative-size . -1)) ,dotted-eight-note " = 64")
27 TextScript \override #'font-shape = #'upright