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 . "number") "2"))
  13                   (italic "drie"))
  14                 f-\textscript #'(finger "3")
  15                 g-\textscript #'(music (named "noteheads-2"))
  16         }
  17         \paper{
  18                 linewidth = -1.\mm;
  19                 \translator{
  20                         \ScoreContext
  21                         TextScript \push #'style-sheet = #'paper16
  22                         TextScript \push #'font-family = #'roman
  23                         TextScript \pop #'no-spacing-rods
  24                         TextScript \push #'direction = #1
  25                 }
  26         }
  27 }