Jump to content

Featured Replies

Posted

a short - and perhaps stupid - question... what's the idea for this function, useful for ...? practical purpose?

thanx for a short hint!

;;; Example, you generate binary

(setf bin (gen-binary-euclidean 2 12 1 9))
=>((1 0 0 0 0 0 1 0 0 0 0 0) (1 0 1 1 1 0 1 1 1 0 1 1))
;;; You map the binary to length

(setf bmap (binary-map bin 's))
=>((1/16 -1/16 -1/16 -1/16 -1/16 -1/16 1/16 -1/16 -1/16 -1/16 -1/16 -1/16) (1/16 -1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 -1/16 1/16 1/16))
;;; lot of rest
;;; with length reduce you will apply a kind
;;; of "legato effect" , no rest, only length to length:

(setf final (length-reduce bmap))
=>((3/8 3/8) (1/8 1/16 1/16 1/8 1/16 1/16 1/8 1/16 1/16))

It is a quick example just for give you the general idea...

 

SB.

  • Author

thanx!!! a.

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