Hi David and all,

I stuck with successfully sending override-events from an engraver. I created an example where I broadcast 3 events, one of them being an override, but the override is not applied while the other 2 events are processed as expected. All events are sent using the same procedure. What might be the error in this procedure. Is there something missing?


TIA
Jan-Peter


Am 05.03.2018 um 13:01 schrieb Jan-Peter Voigt:
* I will refactor the EE to also broadcast overrides.

\version "2.19.80"

% this is a broadcast-function for single events like \p or c''4
#(define (broadcast-music context music)
   ; get attributes for this music expression
   (let ((evcls (ly:assoc-get (ly:music-property music 'name) music-descriptions '())))
     ; log time and music
     (ly:message "~A ~A ~A"
       (ly:context-property context 'currentBarNumber)
       (ly:context-property context 'measurePosition)
       (with-output-to-string (lambda() (displayLilyMusic music))))
     ; broadcast event
     (ly:broadcast (ly:context-event-source context) ; broadcast to this context
       (ly:make-stream-event
        (ly:assoc-get 'types evcls '()) ; get event class from attributes
        (ly:music-mutable-properties music)) ; get properties for this music-event
       )
     ))

% 3 tests
evA = \p
evB = \once \override NoteHead.color = #red
evC = g'4

% a demo engraver
eng = #(make-engraver
        ((start-translation-timestep trans)
         (let ((context (ly:translator-context trans)))
           (cond
            ((equal? (ly:context-property context 'measurePosition) (ly:make-moment 1/4))
               (broadcast-music context evA)) ; on moment 1/4 broadcast \p
            ((equal? (ly:context-property context 'measurePosition) (ly:make-moment 2/4))
               (broadcast-music context evB)) ; on moment 2/4 broadcast \override ...
            ((equal? (ly:context-property context 'measurePosition) (ly:make-moment 3/4))
               (broadcast-music context evC)) ; on moment 3/4 broadcast g'4
           )))
        )

\layout {
  ragged-right = ##f
  \context {
    \Voice
    \consists #eng
  }
}

% demo music
% Why are the overrides not applied?
\relative {
  \repeat unfold 3 { c''4 c^"p" c^"red?" c^"+g" }
}
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel

Reply via email to