AM Posted October 3, 2018 Posted October 3, 2018 if you like to change dynamics/velocity of specific lengths (defun replace-velocity-of-a-length (omnseq length/velocity-map) (loop for i in (single-events (flatten omnseq)) when (length-restp (car i)) collect i else append (omn-replace :velocity (cadr (assoc (car (omn :length i)) length/velocity-map)) i))) (setf omn-seq '(s c4 ffff e e s e. s q q q q q)) (replace-velocity-of-a-length omn-seq '((1/16 mp) (2/16 pp) (3/16 ppp))) => (s c4 mp e c4 pp e c4 pp s c4 mp e. c4 ppp s c4 mp q c4 ffff q c4 ffff q c4 ffff q c4 ffff q c4 ffff) loopyc and JulioHerrlein 2 Quote
AM Posted October 4, 2018 Author Posted October 4, 2018 i did not realize that there is an OPMO-function for that in OPMO: (setf omn-seq '(s c4 ffff e e s e. s q q q q q)) (length-map '((1/16 mp) (2/16 pp) (3/16 ppp)) omn-seq) => (s c4 mp e pp c4 s mp e. ppp s mp q ffff c4 c4 c4 c4) JulioHerrlein 1 Quote
JulioHerrlein Posted October 30, 2018 Posted October 30, 2018 Great!! Always good to see your loop functions! Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.