On Mon, Sep 19, 2011 at 7:23 PM, David Nalesnik <[email protected]>wrote:
> > > On Mon, Sep 19, 2011 at 7:15 PM, David Nalesnik > <[email protected]>wrote: > >> >> \version "2.14.2" >> >> #(define (my-callback grob) >> (let* ((orig (ly:grob-original grob)) >> (siblings (if (ly:grob? orig) >> (ly:spanner-broken-into orig) >> '()))) >> (if (eq? (car siblings) grob) >> red))) >> > Hi, again -- Attached is a extension of this which allows you to apply a list of colors to the starting brackets. If there are more lines than colors, we revert to black. Just for fun :) -David
SystemStartBracket.ly
Description: Binary data
_______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
