#(define-public (define-music-event-filter names)
(define-music-function (parser location music) (ly:music?)
(music-filter
(lambda (event) (not (member (ly:music-property event 'name) names)))
music)))
filterdynamics = #(define-music-event-filter
'(AbsoluteDynamicEvent CrescendoEvent DecrescendoEvent TextScriptEvent))
music = \relative c' {
c\p\< d e f g1\f
}
\new PianoStaff <<
\new Staff \filterdynamics \music
\new Dynamics \music
\new Staff \filterdynamics \music
>>