Basically it works, but in the example below I would like to quote the
upper part without dynamics, articulation, slurs, etc..
How could that work?
Hello.
Well, i don't used \Quote anymore with "arranger.ly," because you not
really need it with the function adef.
You can trim the event you don't want during quoting by the following
way:
#(define my-del (set-del-events '(AbsoluteDynamicEvent ArticulationEvent
CrescendoEvent DecrescendoEvent SlurEvent)))
#(begin
(add-voice1 'insttwo 1 (adef (my-del (em instone 1 2)) "(one)" UP))
)
Il you want apply my-del to all your quotes, you can define a personal
adef function
#(define my-del (set-del-events '(AbsoluteDynamicEvent ArticulationEvent
CrescendoEvent DecrescendoEvent SlurEvent)))
#(define (my-adef music . others)
(apply adef (my-del music) others))
#(begin
(add-voice1 'insttwo 1 (my-adef (em instone 1 2) "(one)" UP))
)
--
Gilles
