From: Mark Polesky <markpolesky@yahoo.com>
Date: Sun, 14 Jun 2009 00:14:24 +0000 (-0700)
Subject: NR 6.5.2: Correct and clarify \applyOutput example.
X-Git-Tag: release/2.13.2-0~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=39347c7337de18e823a3c55eafb5392e4bf2be89;p=lilypond.git

NR 6.5.2: Correct and clarify \applyOutput example.
---

diff --git a/Documentation/user/programming-interface.itely b/Documentation/user/programming-interface.itely
index 69397cfb78..2d28412eab 100644
--- a/Documentation/user/programming-interface.itely
+++ b/Documentation/user/programming-interface.itely
@@ -1291,13 +1291,16 @@ this is a @rinternals{NoteHead} object.
 Here is a function to use for @code{\applyOutput}; it blanks
 note-heads on the center-line:
 
-@example
-(define (blanker grob grob-origin context)
- (if (and (memq (ly:grob-property grob 'interfaces)
-                note-head-interface)
-          (eq? (ly:grob-property grob 'staff-position) 0))
-     (set! (ly:grob-property grob 'transparent) #t)))
-@end example
+@lilypond[quote,verbatim,ragged-right]
+#(define (blanker grob grob-origin context)
+   (if (and (memq 'note-head-interface (ly:grob-interfaces grob))
+            (eq? (ly:grob-property grob 'staff-position) 0))
+       (set! (ly:grob-property grob 'transparent) #t)))
+
+\relative {
+  e4 g8 \applyOutput #'Voice #blanker b d2
+}
+@end lilypond
 
 
 @node Scheme procedures as properties