This is from Stephane Jeu2 pour piano example , i am looking to add computation on this omn2-1
i would like it to do as well :
(< (omn-encode (car x)) 1/16)
(chord-interval-add '(-12 5 6 ) x)
Plus as well
(= (omn-encode (car x)) 1/16)
(chord-interval-add '(36 ) x)
for example , but i do not know how to group all operation within the same loop for i or even if it is possible ,
;; omn post processing (adding interval if length > 1/16)
(setf omn2-1 (ambitus
'(c2 c5)
(loop for i in (single-events omn2)
collect (mapcar (lambda(x)
(if (> (omn-encode (car x)) 1/16)
(chord-interval-add '(-4) x)
x))
i))))
Thank you for your answer
Patrick
Jeu2aPourPiano.opmo