From 39347c7337de18e823a3c55eafb5392e4bf2be89 Mon Sep 17 00:00:00 2001 From: Mark Polesky Date: Sat, 13 Jun 2009 17:14:24 -0700 Subject: [PATCH] NR 6.5.2: Correct and clarify \applyOutput example. --- Documentation/user/programming-interface.itely | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) 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 -- 2.39.5