Thanks Mark. Much better. Applied and pushed to
remotes/origin/master.
Trevor
----- Original Message -----
From: "Mark Polesky" <[email protected]>
To: "lilypond-devel" <[email protected]>
Sent: Sunday, June 14, 2009 1:18 AM
Subject: [PATCH] memq mistake in NR 6.5.2?
From NR 6.5.2 Running a function on all layout objects:
#(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)))
But to get it to work, I had to change lines 2-3 to:
(if (and (memq 'note-head-interface (ly:grob-interfaces grob))
Also, the syntax is given as: \applyOutput context proc
but it would be nice to know that CONTEXT needs a hash-quote
(#'). Perhaps a tiny example work be enough:
@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
If it's a simple as that, the patch I've included should work.
- Mark
--------------------------------------------------------------------------------
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
