Hi folks,

 

here's the material from this session.

 

Best !

 

Stéphane

 

 

auto-explode.lisp auto-split.lisp split-point.lisp Zoom07112020a.opmo ZoomIntoOMVideos071120.zip

Thanks, Stephane !! 

Marvellous Session !

Inspiring !

 

I got an error while running (auto-explode4 full)

 

;;;; Using auto-explode4 function

(setf mat1 (make-omn :pitch (rnd-sample 32 (make-scale 'c5 12)) :length (gen-loop 8 (rnd-sample 16 '(s s s -s -s)))))
(setf mat2 (make-omn :pitch (rnd-sample 32 (make-scale 'c4 12)) :length (gen-loop 8 (rnd-sample 16 '(s s s -s -s)))))
(setf mat3 (make-omn :pitch (rnd-sample 32 (make-scale 'c3 12)) :length (gen-loop 8 (rnd-sample 16 '(s s s -s -s)))))
(setf mat4 (make-omn :pitch (rnd-sample 32 (make-scale 'c2 12)) :length (gen-loop 8 (rnd-sample 16 '(s s s -s -s)))))

(setf full (merge-voices mat1 mat2 mat3 mat4))


(setf xplode (auto-explode4 full))

 

 

> Error: Too many arguments in call to #<Compiled-function single-events #x30000133ED8F>:
>        3 arguments provided, at most 2 accepted. 
> While executing: single-events, in process Listener-1(7).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.
45 > 

I assume you need to evaluate the auto-explode4 function first.

Yes, Janusz. Thank you. I copied all the necessary functions and evaluated all. I´ll try again.

Many thanks Stephane!