X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fmarkup.ly;h=4b35fea469a4fd907b02d7a8ba4005a8a7f52ed3;hb=17d66c0ec6d2f99624e902dbbe71497a4424c445;hp=5d8f0a0566e2518ff1dfdd07f1ef6ccab90b4ef6;hpb=5a9cd72634e721d75ea49f8985a3b34adf8fe8ff;p=lilypond.git

diff --git a/input/test/markup.ly b/input/test/markup.ly
index 5d8f0a0566..4b35fea469 100644
--- 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
 		}
 	}
 }