X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fapply-output.ly;h=fd1268dee871e9c9a1d4725ed87760587914e403;hb=8cf69a467ad7650f5ca9da6fe2dfd4c7c088b239;hp=56d515557055194ed0a04b31a56b9400d71cf9e9;hpb=8b500afb9431f5471e385fa2eeb8fde868e4fc49;p=lilypond.git

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index 56d5155570..fd1268dee8 100644
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,47 +1,31 @@
+\version "2.19.24"
 
-\version "2.9.6" 
 \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
 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 (and (memq 'note-head-interface ifs)
-	(memq sp '(-2 -3 -5)))
-    (begin
-     (ly:grob-set-property! gr 'stencil ly:text-interface::print)
-     (ly:grob-set-property! gr 'font-family 'roman)
+#(define (mc-squared gr org cur)
+   (let ((sp (ly:grob-property gr 'staff-position)))
      (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
-    \applyOutput #'Voice #mc-squared
-
-    <d f g b>
-  }
-  
+      gr 'stencil
+      (grob-interpret-markup gr
+			     #{ \markup \raise #-0.5
+				#(case sp
+				   ((-5) "m")
+				   ((-3) "c ")
+				   ((-2) #{ \markup \teeny \bold 2 #})
+				   (else "bla")) #}))))
+
+\new Voice \relative {
+  \set autoBeaming = ##f
+
+  <d' f g b>8
+
+  \applyOutput Voice.NoteHead #mc-squared
+  <d f g b>8
 }
-