X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fapply-output.ly;h=79d2d75b5a2570dc874d853e581ff4c38eddc714;hb=5564a8ee55ff88bcad109ef80e204373d04c8375;hp=b10c0f56237417248b013bbc61e995ec3e833133;hpb=6ce47bfad4e8a94c773cb3c7f61b5e3043d28601;p=lilypond.git

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index b10c0f5623..79d2d75b5a 100644
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,7 +1,7 @@
-\version "2.9.28"
+\version "2.14.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
@@ -9,39 +9,30 @@ position.
 "
 }
 
-\layout {
-  ragged-right = ##t
-}
-
 #(define (mc-squared gr org cur)
   (let*
-   (
-     (ifs (ly:grob-interfaces gr))
-     (sp (ly:grob-property gr 'staff-position))
-   )
-   (if (memq 'note-head-interface ifs)
-    (begin
-     (ly:grob-set-property! gr 'stencil ly: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
+    (
+      (ifs (ly:grob-interfaces gr))
+      (sp (ly:grob-property gr 'staff-position))
+      )
+    (if (memq 'note-head-interface ifs)
+      (begin
+        (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"))
+                ))))
+        ))))
+
+\new Voice \relative c' {
   \set autoBeaming = ##f
 
-  { <d f g b>8
+  <d f g b>8
 
-    \applyOutput #'Voice #mc-squared
-    <d f g b>
-  }
+  \applyOutput #'Voice #mc-squared
+  <d f g b>8
 }
-
-% EOF