On Mon, Sep 19, 2011 at 7:15 PM, David Nalesnik <david.nales...@gmail.com>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)))
>
> one = \relative c' {
> \once\override StaffGroup.SystemStartBracket #'color = #my-callback
> a1 \break
> a \break
> a
> }
>
> two = \relative c' {
> c c c
> }
>
>
> \new StaffGroup <<
> \new Staff \one
> \new Staff \two
> >>
>
A little better, I suppose...
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
