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.

thanx!!! a.

This is the similar function to get-timing in Symbolic Composer . . . It would be good to put Stephane's excellent example in the documentation. For an example in an existing composition see page 280 in Parametric Composition or visit my web archive http://www.nigel-morgan.co.uk/index.php?name=News&sid=35&file=article&pageid=1 for the annotated score-file.

 

Nigel