Citerar Karl Hammar <[EMAIL PROTECTED]>: > > > 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.
Yes, of course you can substitute -100 for 100 then, or alternatively do (- (...) 100) iso. (+ 100 (...)) Erik _______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-devel
