Re: Add \mark entries with edition-engraver?

[Jan-Peter Voigt]

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 <address@hidden>:
> 
>> 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
>