From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 3 May 2003 00:12:17 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.20~69
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=72bcdb41c44751f33e72307c0029cae4e0128d19;p=lilypond.git

*** empty log message ***
---

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
new file mode 100644
index 0000000000..7b4f314537
--- /dev/null
+++ b/input/regression/apply-output.ly
@@ -0,0 +1,50 @@
+\version "1.7.17" 
+\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.
+"
+
+}
+
+#(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
+		     } 
+}