Hi Harm,
thank you for this snippet! I will work on it next week :)
Cheers, Jan-Peter
Am 10.01.2015 um 19:21 schrieb Thomas Morley:
> 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
