Valentin Villenave skrev:
Thanks for the snippet Rune.
You're welcome
Approved (a few typos fixed, and HTML tags added).
Thanks.
Unfortunately I cannot modify the snippet after you approved it.
There was a bug in it so accidentals worked correctly but printed bar
numbers did not.
Will you please substitute code with:
%%% BEGIN %%%
increaseBarNumber = \applyContext
#(lambda (x)
(if (ly:moment<?
(ly:make-moment 0 1 0 1)
(ly:context-property x 'measurePosition))
(begin
(ly:context-set-property!
(ly:context-property-where-defined x 'internalBarNumber)
'internalBarNumber
(1+ (ly:context-property x 'internalBarNumber)))
(ly:context-set-property!
(ly:context-property-where-defined x 'currentBarNumber)
'currentBarNumber
(1+ (ly:context-property x 'currentBarNumber)))
(ly:context-set-property!
(ly:context-property-where-defined x 'measurePosition)
'measurePosition
(ly:make-moment 0 1 0 1)))))
hardbar = {
\bar "|"
\increaseBarNumber
}
{
\new Staff \with { \remove Time_signature_engraver } \cadenzaOn {
#(set-accidental-style 'modern-cautionary)
\key a \major
\repeat unfold 2 {
c'8 dis' eis' eis' \hardbar
c'4 dis' e' eis' \hardbar
c' dis' eis'8 dis' eis' \hardbar
c'1 dis' eis' eis'2 \hardbar
}
}
}
%%% END %%%
-Rune
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
