DICTUM to filter the use of omn-to-time-signature ?? Help, please

[JulioHerrlein]

Dear All, 

 

Please, help !

 

;;; Question How to use DICTUM to filter the use of omn-to-time-signature ?

;;; MAterial

(setf vl1 '((-s) (e. gs4 s as4 h. e4 tie) (h e4 d4 tie) (q d4 e ds4 s fs4 hs b4 tie) (h b4 s gs4 g4 a4 qs c5 tie) (q c5 s as4 e a4 cs4 e. d4 d4 s) (w g4 tie) (q g4 h. d5) (e b4 s g4 h.s f4 tie) (q f4 s ds4 e4 f4 hs fs4) (s c5 e as4 ds5 e. cs5 fs4 s g4 q fs4 tie) (w fs4) (h. g4 e gs4 s a4 d5 tie) (w d5) (s b4 g4 a4 hs s gs4 e as4 s e4 tie) (s e4 e. d4 ds4 s fs4 h b4 tie) (h. b4 q gs4 tie) (h gs4 e g4 s a4 qs c5 tie) (h. c5 s as4 a4 cs4 d4 tie) (h d4 s e e g4 e. d5))) 

;;; Filter works rigth in this example: pitch transposing only long notes

(dictum '((:range (h w.) :apply (pitch-transpose -24 x))
)
vl1)

;;; I´d like to aply this merge-ties nil only to the longer notes, not in the entire example. Can I use DICTUM as a filter to apply only in longer notes ?


(omn-to-time-signature
vl1 
 '((2 4 2) (4 4 1) (2 4 8) (1 4 1)) :merge-ties nil)

;;; HOW ???
;;; This won´t work... What I missed ?

(dictum '(:range (h w.) :apply (omn-to-time-signature
vl1 
 '((2 4 2) (4 4 1) (2 4 8) (1 4 1)) :merge-ties nil)))