lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: lilypond-user Digest, Vol 113, Issue 99


From: Gilles
Subject: Re: lilypond-user Digest, Vol 113, Issue 99
Date: Tue, 01 May 2012 00:21:21 +0200
User-agent: Opera Mail/11.62 (Win32)

Can I just print the multiple of fifth's (or 10's) only - the in between nar number should be blank?


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\version "2.15.37"
%%% solution 1
\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-suicide! grob))
        stil))

  \repeat unfold 41 { c1 }
}
%%% solution 2 % easier
\relative c'' {
  \override Score.BarNumber #'break-visibility = #'#(#f #t #t)
  \set Score.barNumberVisibility = #(every-nth-bar-number-visible 5)
  \override Score.BarNumber #'color = #red

  \repeat unfold 41 { c1 }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Gilles



reply via email to

[Prev in Thread] Current Thread [Next in Thread]