X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fapply-output.ly;h=78c2cfef258df1d1fdd2ea1c3a39f49af2352f96;hb=85d1c7a7d1f4763352cfd70577bb6ab39862cdad;hp=88e9b7045f3e37cd6b4032dcad9935c467350762;hpb=d6ea2dbcdb39dd65c7fd423782fa31ccbdaf34a9;p=lilypond.git

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index 88e9b7045f..78c2cfef25 100644
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,8 +1,8 @@
 
-\version "1.9.1" 
+\version "2.6.0" 
 \header {
 
-texidoc = "The @code{\applyoutput} expression is the most flexible way to
+  texidoc = "The @code{\applyoutput} expression is the most flexible way to
 tune properties for individual grobs.
 
 Here, the layout of a note head is changed depending on its vertical
@@ -13,39 +13,35 @@ position.
 
 #(define  (mc-squared gr org cur)
   (let*
-      (
-       (ifs (ly:get-grob-property gr 'interfaces))
-       (sp (ly:get-grob-property gr 'staff-position))
-       )
-  (if (and (memq 'note-head-interface ifs)
-	   (memq sp '(-2 -3 -5)))
-      (begin
-	(ly:set-grob-property! gr 'molecule-callback brew-new-markup-molecule)
-	(ly:set-grob-property! gr 'font-family 'roman)
-	(ly:set-grob-property!
-	 gr 'text
-	 (make-raise-markup -0.5
-			    (case sp
-			      ((-5) (make-simple-markup "m"))
-			      ((-3) (make-simple-markup "c "))
-			      ((-2) (make-smaller-markup (make-bold-markup "2")))
-			      (else (make-simple-markup "bla"))
-			      ))))
-      )))
-
-\score {
-
-\notes \context Voice \relative  c' {
-				      \stemUp
-				      \property Voice.autoBeaming = ##f
-   { <<d f g b>>8
-     \context Voice \applyoutput #mc-squared
-
-	 <<d f g b>>
-   }
-	      
-   }
-\paper { raggedright = ##t
-%		     outputscale = 5
-		     } 
+   (
+     (ifs (ly:grob-property gr 'interfaces))
+     (sp (ly:grob-property gr 'staff-position))
+   )
+   (if (and (memq 'note-head-interface ifs)
+	(memq sp '(-2 -3 -5)))
+    (begin
+     (ly:grob-set-property! gr 'print-function Text_interface::print)
+     (ly:grob-set-property! gr 'font-family 'roman)
+     (ly:grob-set-property!
+      gr 'text
+      (make-raise-markup -0.5
+       (case sp
+	((-5) (make-simple-markup "m"))
+	((-3) (make-simple-markup "c "))
+	((-2) (make-smaller-markup (make-bold-markup "2")))
+	(else (make-simple-markup "bla"))
+      ))))
+  )))
+
+\context Voice \relative  c' {
+  \stemUp
+  \set autoBeaming =  ##f
+  { <d f g b>8
+    \context Voice \applyoutput #mc-squared
+
+    <d f g b>
+  }
+  
 }
+
+\layout { raggedright = ##t }