+\version "1.3.146"
+
+
+
%
% Test new font selection and scm text markup
%
\score{
\notes\relative c''{
\stemUp
+% {
a-"text"
- b-\textscript #"texta"
- c-\textscript #'(bold "textb")
+ b-#"texta"
+ c-#'(bold "textb")
- d-\textscript #'(lines "one" "two" "three")
- e-\textscript #'(lines (bold "one")
- (rows "and" "there" "is" ((font-family . number) "2"))
+ d-#'(lines "one" "two" "three")
+ e-#'(lines (bold "one")
+ (columns "and" "there" "is" ((font-family . number) "2"))
(italic "three"))
- f-\textscript #'(finger "3")
- g-\textscript #'(music (named "noteheads-2" "flags-u3"))
- }
+ f-#'(finger "3")
+ g-#'(music (named "noteheads-2" "flags-u3"))
+ b-#'(columns "a" (((kern . 3) (raise . 2)) "b") "c")
+ c-#'(columns "1" (((raise . -2) (kern . -1)) "2") "3")
+% }
+ d-#'(lines "Violoncello" " e" "Contrabasso")
+ e-#'((lines (baselineskip . 0) (kern . 1.5)) "Violoncello" " e" "Contrabasso")
+ e-#'(((baselineskip . 0) (kern . 1.5) lines) "Violoncello" " e" "Contrabasso")
+ }
\paper{
- linewidth = -1.\mm;
+ linewidth = -1.\mm
\translator{
\ScoreContext
- TextScript \push #'font-family = #'roman
- TextScript \push #'font-shape = #'upright
- TextScript \pop #'no-spacing-rods
- TextScript \push #'direction = #1
+ TextScript \override #'font-family = #'roman
+ TextScript \override #'font-shape = #'upright
+ TextScript \revert #'no-spacing-rods
+ TextScript \override #'direction = #1
}
}
}