]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/markup.ly
release: 1.4.3
[lilypond.git] / input / test / markup.ly
index f64a558d4e4407c3dc9f4e446e164dc9ca8b82cc..621567dbad6e0c9f25033a80cde19cb00d0c8375 100644 (file)
@@ -1,3 +1,7 @@
+\version "1.3.146"
+
+
+
 %
 % Test new font selection and scm text markup
 %
@@ -5,25 +9,32 @@
 \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
                }
        }
 }