Hi,
On Sun, Apr 29, 2012 at 8:37 PM, MING TSANG <[email protected]> wrote:
>
>
> \version "2.15.37"
> \relative c'' {
> \override Score.BarNumber #'break-visibility = #'#(#f #t #t)
> \override Score.BarNumber #'stencil =
> #(lambda (grob)
> (let* ((stil (ly:text-interface::print grob))
> (text (ly:grob-property grob 'text))
> ((markup->string text) (string->number text)))
> (if (= (remainder (markup->string text) 5) 0)
> (ly:grob-set-property! grob 'color red)
> (ly:grob-set-property! grob 'color black))
> stil))
> \repeat unfold 41 { c1 }
> }
>
> I try replacing nmbr with (markup->string text) as suggest by David
> Nalesnik and I get the following error. Appreciate help.
>
This is how to do it:
\relative c'' {
\override Score.BarNumber #'break-visibility = #'#(#f #t #t)
\override Score.BarNumber #'stencil =
#(lambda (grob)
(let* ((stil (ly:text-interface::print grob))
(text (ly:grob-property grob 'text))
(nmbr (string->number (markup->string text))))
(if (= (remainder nmbr 5) 0)
(ly:grob-set-property! grob 'color red)
(ly:grob-set-property! grob 'color black))
stil))
\repeat unfold 41 { c1 }
}
Best,
David
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
