> On Friday 15 April 2005 10.56, Karl Hammar wrote:
> > [EMAIL PROTECTED]:
> > > It also changes the numbering of all subsequent bars. I don't know the
> > > author's intent in this case (I didn't write that snippet), but I guess
> > > it could be something like an attaca movement.
> >
> > Yes. The bigger picture is H. Purcells opera "Dido & Æneas":
> >
> > http://aspodata.se/motett/noter/act*
>
> nice! (will this end up on mutopia?)
Anyone is welcome to use it (it is still being worked on).
The code is gpl (cc-sa if you insist) and Purcells music is public
domain.
>
> > I did not like idea of big bar number, like 543.
> > I think it is better with aria/movement 23, bar 25.
>
> You could use something like this (based on print-circled-text-callback in
> scm/output-lib.scm) to achieve what you want more cleanly. It works with
> 2.5.19, but not with 2.4 for some reason.
>
> \version "2.4.0"
>
> #(define-public (print-+100-text-callback grob)
> (let* ( ;(text (ly:grob-property grob 'text))
> (text (number->string (+ 100 (string->number (ly:grob-property grob
> 'text)))))
> (layout (ly:grob-layout grob))
> (defs (ly:output-def-lookup layout 'text-font-defaults))
> (props (ly:grob-alist-chain grob defs))
> (text-stencil (Text_interface::interpret_markup layout props text)))
> (ly:stencil-add (centered-stencil text-stencil))))
>
>
> \new Staff {
> \set Score.barNumberVisibility = #(every-nth-bar-number-visible 1)
> \override Score.BarNumber #'print-function =
> #print-+100-text-callback
>
> \repeat unfold 9 { c1 \break } \bar "|."
> }
>
> HTH,
> Erik
I think you misunderstand me, I wanted smallish bar numbers since that
is easier
to say at a rehersal, not something that is +100.
Regards
/Karl
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel
