]> git.donarmstrong.com Git - lilypond.git/blob - input/test/markup.ly
patch::: 1.3.96.jcn5
[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                 a-"text"
8                 b-\textscript #"texta"
9                 c-\textscript #'(bold "textb")
10                 d-\textscript #'(lines "een" "twee" "drie")
11                 e-\textscript #'(lines (bold "een") 
12                   (rows "en" "dat" "is" ((family . "orator") "2"))
13                   (italic "drie"))
14                 f-\textscript #'(finger "3")
15         }
16         \paper{
17                 linewidth = -1.\mm;
18                 \translator{
19                         \ScoreContext
20                         TextScript \push #'style-sheet = #'paper16
21                         TextScript \push #'font-family = #'roman
22                         TextScript \pop #'no-spacing-rods
23                 }
24         }
25 }