patch::: 1.3.112.jcn3

[lilypond.git] / input / test / markup.ly

diff --git a/input/test/markup.ly b/input/test/markup.ly
index 5d8f0a0566e2518ff1dfdd07f1ef6ccab90b4ef6..4b35fea469a4fd907b02d7a8ba4005a8a7f52ed3 100644 (file)
--- a/input/test/markup.ly
+++ b/input/test/markup.ly
@@ -1,27 +1,36 @@
+
+\version "1.3.110";
+
 %
 % Test new font selection and scm text markup
 %
 
 \score{
        \notes\relative c''{
+               \stemUp
                a-"text"
                b-\textscript #"texta"
                c-\textscript #'(bold "textb")
-               d-\textscript #'(lines "een" "twee" "drie")
-               e-\textscript #'(lines (bold "een") 
-                 (rows "en" "dat" "is" ((family . "number") "2"))
-                 (italic "drie"))
+
+               d-\textscript #'(lines "one" "two" "three")
+               e-\textscript #'(lines (bold "one") 
+                 (rows "and" "there" "is" ((font-family . number) "2"))
+                 (italic "three"))
                f-\textscript #'(finger "3")
-               g-\textscript #'(music (named "noteheads-2"))
-       }
+               g-\textscript #'(music (named "noteheads-2" "flags-u3"))
+               
+               b-#'(rows "a" ((kern . 3) ((raise . 2) "b")) "c")
+               c-#'(rows "1" ((kern . -3) ((raise . -2) "2")) "3")
+               
+               }
        \paper{
                linewidth = -1.\mm;
                \translator{
                        \ScoreContext
-                       TextScript \push #'style-sheet = #'paper16
-                       TextScript \push #'font-family = #'roman
-                       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
                }
        }
 }