]> git.donarmstrong.com Git - lilypond.git/blob - input/test/markup.ly
patch::: 1.3.96.jcn7
[lilypond.git] / input / test / markup.ly
1 %
2 % Test new font selection and scm text markup
3 %
4
5 \score{
6         \notes\relative c''{
7                 \stemUp
8                 a-"text"
9                 b-\textscript #"texta"
10                 c-\textscript #'(bold "textb")
11
12                 d-\textscript #'(lines "one" "two" "three")
13                 e-\textscript #'(lines (bold "one") 
14                   (rows "and" "there" "is" ((family . "number") "2"))
15                   (italic "three"))
16                 f-\textscript #'(finger "3")
17                 g-\textscript #'(music (named "noteheads-2"))
18         }
19         \paper{
20                 linewidth = -1.\mm;
21                 \translator{
22                         \ScoreContext
23                         TextScript \push #'font-family = #'roman
24                         TextScript \pop #'no-spacing-rods
25                         TextScript \push #'direction = #1
26                 }
27         }
28 }