Hello,
maybe somebody can explain this to me:
Why in this case the lists are always completely cycled before a new  
weighting is applied?

(define (pat1 reps weight1 weight2)
     (let ((c (new weighting :of `((,(new cycle :of '(-1  
1)) :weight ,weight1)
                                  (,(new cycle :of '(-2 4 -2)) :weight ,weight2 
:max 1)))))
       (loop repeat reps collect (next c))))

;; (pat1 50 90 10)

Thanks,
Achim

_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist

Reply via email to