Rune Zedeler skrev:
%%% BEGIN
\version "2.11.32"
#(define (start-of-measure-acc-rule context pitch barnum measurepos)
(cons #f (equal? measurepos (ly:make-moment 0 1))))
mus = {
\key des \major
\transpose c c' {
g16 g g g' g' d' d' d' g' g' f f gis gis g g' ges1
}
}
<<
\new Staff {
\set Staff.autoCautionaries = #(list 'Staff start-of-measure-acc-rule)
\relative c' { c4 d e f g gis a ais b2 c }
}
>>
%%% END
Hmm, eh, make that
%%% BEGIN
\version "2.11.32"
#(define (start-of-measure-acc-rule context pitch barnum measurepos)
(cons #f (equal? measurepos (ly:make-moment 0 1))))
<<
\new Staff {
\set Staff.autoCautionaries = #(list 'Staff start-of-measure-acc-rule)
\relative c' { c4 d e f g gis a ais b2 c }
}
>>
%%% END
TODO:
...
* Implement the old c++-function in scheme instead of using a callback.
(Unless it gives too much overhead)
-Rune
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
