Re: Sending around contexts

[Aaron Hill]

On 2021-10-28 12:25 pm, Aaron Hill wrote:
> Not an engraver, but a dispatcher trick could be a first step:

Wait... there's no need to share a source dispatcher... also, that code 
duplicates the listener...

%%%%
\version "2.22.0"

#(define event-transfer-sink (ly:make-dispatcher))
eventTransferSink = \applyContext
#(lambda (ctxt)
 (ly:connect-dispatchers
  (ly:context-event-source ctxt)
  event-transfer-sink))

eventTransferSource =
#(define-music-function (event-type) (symbol?)
  (define (event-proc ev)
   (ly:broadcast event-transfer-sink (ly:event-deep-copy ev)))
  (define (context-proc ctxt)
   (ly:add-listener event-proc (ly:context-events-below ctxt) 
event-type))
  #{ \applyContext #context-proc #})

piano_upper = {
  c'4\p d' e' f'
  g'1\mp
  g'4\f f' e' d'
  c'1
}

piano_lower = {
  \clef bass
  c1
  g,1
  g,1
  c1\ff
}

\score {
  <<
    \new PianoStaff <<
      \new Staff \with {
        \eventTransferSource dynamic-event
        \omit DynamicText
      } \piano_upper
      \new Dynamics \with { \eventTransferSink } { #(skip-of-length 
piano_upper) }
      \new Staff \with {
        \eventTransferSource dynamic-event
        \omit DynamicText
      } \piano_lower
    >>
  >>
}
%%%%


-- Aaron Hill