Jump to content

Featured Replies

Posted

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)

 

  • Author

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)

 

  • 4 weeks later...

Create an account or sign in to comment


Copyright © 2014-2025 Opusmodus™ Ltd. All rights reserved.
Product features, specifications, system requirements and availability are subject to change without notice.
Opusmodus, the Opusmodus logo, and other Opusmodus trademarks are either registered trademarks or trademarks of Opusmodus Ltd.
All other trademarks contained herein are the property of their respective owners.

Powered by Invision Community

Important Information

Terms of Use Privacy Policy