X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fapply-output.ly;h=79d2d75b5a2570dc874d853e581ff4c38eddc714;hb=7770772b6101f60b28173fd68ceb701048016b21;hp=4077e2519c49d1c6747f48e0e43b7019b43a3cd0;hpb=e9bd265943d37689b1a6892217cb6f67bbe69f73;p=lilypond.git

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index 4077e2519c..79d2d75b5a 100644
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,51 +1,38 @@
-#(ly:set-option 'old-relative)
-\version "1.9.1" 
-\header {
+\version "2.14.0"
 
-texidoc = "The @code{\applyoutput} expression is the most flexible way to
+\header {
+  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
 position.
 "
-
 }
 
-#(define  (mc-squared gr org cur)
+#(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)))
+    (
+      (ifs (ly:grob-interfaces gr))
+      (sp (ly:grob-property gr 'staff-position))
+      )
+    (if (memq 'note-head-interface ifs)
       (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"))
-			      ))))
-      )))
+        (ly:grob-set-property! gr 'stencil
+          (grob-interpret-markup gr
+            (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 {
+\new Voice \relative c' {
+  \set autoBeaming = ##f
 
-\notes \context Voice \relative  c' {
-				      \stemUp
-				      \property Voice.autoBeaming = ##f
-   { <<d f g b>>8
-     \context Voice \applyoutput #mc-squared
+  <d f g b>8
 
-	 <<d f g b>>
-   }
-	      
-   }
-\paper { raggedright = ##t
-%		     outputscale = 5
-		     } 
+  \applyOutput #'Voice #mc-squared
+  <d f g b>8
 }