David Kastrup <[email protected]> writes:
> colorizeDir =
> #(define-music-function (parser location item)
> (symbol-list-or-music?)
> (define (grob-colorize-dir grob)
> (let ((ev (event-cause grob)))
> (and ev (ly:event-property ev 'direction #f)
> red)))
> #{ \tweak color #grob-colorize-dir #item #})
Not everything might be prepared to deal with a color #f, so it may be
safer to write the slightly more complex
(if (and ev (ly:event-property ev 'direction #f))
red '())
expression inside.
--
David Kastrup
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
