lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Add \mark entries with edition-engraver?


From: Thomas Morley
Subject: Re: Add \mark entries with edition-engraver?
Date: Sat, 10 Jan 2015 19:21:16 +0100

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]