typo

[lilypond.git] / input / regression / apply-output.ly

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index ef3c9947044ee2704c166bdf996be73a72b6a9a4..b10c0f56237417248b013bbc61e995ec3e833133 100644 (file)
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,51 +1,47 @@
+\version "2.9.28"
 
-\version "1.9.4" 
 \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)
+#(define (mc-squared gr org cur)
   (let*
-      (
-       (ifs (ly:get-grob-property gr 'interfaces))
-       (sp (ly:get-grob-property gr 'staff-position))
-       )
-  (if (and (memq 'note-head-interface ifs)
-          (memq sp '(-2 -3 -5)))
-      (begin
-       (ly:set-grob-property! gr 'molecule-callback brew-new-markup-molecule)
-       (ly:set-grob-property! gr 'font-family 'roman)
-       (ly:set-grob-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"))
-                             ))))
-      )))
-
-\score {
-
-\notes \context Voice \relative  c' {
-                                     \stemUp
-                                     \property Voice.autoBeaming = ##f
-   { <d f g b>8
-     \context Voice \applyoutput #mc-squared
-
-        <d f g b>
-   }
-             
-   }
-\paper { raggedright = ##t
-%                   outputscale = 5
-                    } 
+   (
+     (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
+  \set autoBeaming = ##f
+
+  { <d f g b>8
+
+    \applyOutput #'Voice #mc-squared
+    <d f g b>
+  }
 }
+
+% EOF