From 373de9732ae6fa712b8d459d91183771d48f8194 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Thu, 16 Jul 2015 15:55:01 +0200
Subject: [PATCH] Issue 4507/3: Simplify regtest for \applyOutput

---
 input/regression/apply-output.ly | 29 +++++++++++------------------
 1 file changed, 11 insertions(+), 18 deletions(-)

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index 33f5040dac..fd1268dee8 100644
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -10,29 +10,22 @@ position.
 }
 
 #(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
-          (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"))
-                ))))
-        ))))
+   (let ((sp (ly:grob-property gr 'staff-position)))
+     (ly:grob-set-property!
+      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 #mc-squared
+  \applyOutput Voice.NoteHead #mc-squared
   <d f g b>8
 }
-- 
2.39.5