Jump to content

Featured Replies

Posted

Does anybody know how to merge lengths with same pitches?

 

(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4) => (h. c4 wq eb4)

 

Thanks for help,

Achim

(filter-tie '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4))
=> (h. c4 mf wq eb4)

 

 

also this could be useful as well but Janusz probably can program it much better:

 

(defun filter-change (omn-lst)
  (make-omn
   :pitch (omn :pitch omn-lst)
   :length (binary-map (gen-binary-change (omn :pitch omn-lst)) (omn :length omn-lst))
   :velocity (omn :velocity omn-lst)
   :articulation (omn :articulation omn-lst)
   :swallow t
   ))

(filter-change '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4))
=> (e c4 - -e. -q -s e eb4 -e. -h -e. -q)

 

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