5 % Test new font selection and scm text markup
15 d-#'(lines "one" "two" "three")
16 e-#'(lines (bold "one")
17 (rows "and" "there" "is" ((font-family . number) "2"))
20 g-#'(music (named "noteheads-2" "flags-u3"))
22 b-#'(rows "a" ((kern . 3) ((raise . 2) "b")) "c")
23 c-#'(rows "1" ((kern . -3) ((raise . -2) "2")) "3")
30 TextScript \override #'font-family = #'roman
31 TextScript \override #'font-shape = #'upright
32 TextScript \revert #'no-spacing-rods
33 TextScript \override #'direction = #1