X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fapply-output.ly;h=1ace6dc24f0f167b16808778213fcb586f387ca9;hb=fe21914f3e6a80b9c47a39b09a7f878d14f9940a;hp=1b2791c8193dfa52ad54e74ed9bcce97d5d4ef14;hpb=4403ffec24286b9d3d59ca555cdd37598d2c4505;p=lilypond.git

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index 1b2791c819..1ace6dc24f 100644
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,30 +1,29 @@
+\version "2.11.51"
 
-\version "2.7.13" 
 \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.
 "
+}
 
+\layout {
+  ragged-right = ##t
 }
-\layout { raggedright = ##t }
 
-#(define  (mc-squared gr org cur)
+#(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)))
+   (if (memq 'note-head-interface ifs)
     (begin
-     (ly:grob-set-property! gr 'stencil Text_interface::print)
+     (ly:grob-set-property! gr 'stencil ly:text-interface::print)
      (ly:grob-set-property! gr 'font-family 'roman)
-     (ly:grob-set-property!
-      gr 'text
+     (ly:grob-set-property! gr 'text
       (make-raise-markup -0.5
        (case sp
 	((-5) (make-simple-markup "m"))
@@ -34,14 +33,15 @@ position.
       ))))
   )))
 
-\context Voice \relative  c' {
+\context Voice \relative c' {
   \stemUp
-  \set autoBeaming =  ##f
+  \set autoBeaming = ##f
+
   { <d f g b>8
-    \context Voice \applyOutput #mc-squared
 
+    \applyOutput #'Voice #mc-squared
     <d f g b>
   }
-  
 }
 
+% EOF