]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/apply-output.ly
more conversion for dash-change.
[lilypond.git] / input / regression / apply-output.ly
index cf99e3dba589d393bbb8db4d03dc474be972c341..186842a32ddf56d3186fbd3fe71ee1cac8dac3b5 100644 (file)
@@ -1,8 +1,8 @@
 
-\version "2.6.0
+\version "2.7.32
 \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
@@ -10,18 +10,18 @@ position.
 "
 
 }
-\layout { raggedright = ##t }
+\layout { ragged-right = ##t }
 
 #(define  (mc-squared gr org cur)
   (let*
    (
-     (ifs (ly:grob-property gr 'interfaces))
+     (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 'print-function 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
@@ -38,7 +38,7 @@ position.
   \stemUp
   \set autoBeaming =  ##f
   { <d f g b>8
-    \context Voice \applyoutput #mc-squared
+    \context Voice \applyOutput #mc-squared
 
     <d f g b>
   }