2015-01-10 15:44 GMT+01:00 Jan-Peter Voigt <jp.vo...@gmx.de>:
> So, if one can show a scheme-engraver, that produces marks (or time-sigs)
> programmaticly, I can easily add it to the edition-engraver.
Hi Jan-Peter,
I did not look into your edition-engraver, below you'll find an
engraver printing RehearsalMarks, though. (It's a boiled down version
of some unfinshed own coding)
Obviously you'll need to add an argument (a list, I think) what should
be printed and some conditions when to print.
Nevertheless, maybe it might be helpful.
\version "2.19.15"
#(define (RM-engraver context)
`((process-music
.
,(lambda (engraver)
(if (= 0
(ly:moment-main-numerator
(ly:context-property context 'measurePosition)))
(let* ((event '())
(newgrob
(ly:engraver-make-grob engraver 'RehearsalMark event)))
(set! (ly:grob-property newgrob 'text) "XY"))
#f)))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% EXAMPLE
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\score {
\new Staff { \repeat unfold 60 c''4 }
\layout {
\context {
\Score
\consists #RM-engraver
}
}
}
HTH,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
