6 % Test new font selection and scm text markup
17 d-#'(lines "one" "two" "three")
18 e-#'(lines (bold "one")
19 (columns "and" "there" "is" ((font-family . number) "2"))
22 g-#'(music (named "noteheads-2" "flags-u3"))
23 b-#'(columns "a" (((kern . 3) (raise . 2)) "b") "c")
24 c-#'(columns "1" (((raise . -2) (kern . -1)) "2") "3")
26 d-#'(lines "Violoncello" " e" "Contrabasso")
27 e-#'((lines (baselineskip . 0) (kern . 1.5)) "Violoncello" " e" "Contrabasso")
28 e-#'(((baselineskip . 0) (kern . 1.5) lines) "Violoncello" " e" "Contrabasso")
34 TextScript \override #'font-family = #'roman
35 TextScript \override #'font-shape = #'upright
36 TextScript \revert #'no-spacing-rods
37 TextScript \override #'direction = #1