Hi Nikolaj, ive run your example and it works for me, so offhand I’m not sure
what the issue might be. Im on a mac and you are on windows, but i can’t see
what difference that would make. Since you think it has something to do with
concat, as a test Ive rewritten your make-rhy-list function to avoid ‘concat’ .
Try this version and tell me if it works. On my mac both your version and my
version of 'make-rhy-list ‘ work fine so lets see what happens on your machine.
best, Rick
(define (play-pattern pat rhy times tmpo ampl)
;; plays pattern times times, with tempo tmpo and amplitude ampl:
(let* ((dur (in-tempo 1/4 tmpo)))
(process repeat times
for x = (next pat)
for y = (next rhy)
do
(if (number? x)
(mp:midi :key x :dur dur :amp (* ampl (pick .9 .95 1 .85))))
(wait (in-tempo y tmpo))
)))
;; NEW VERSION of make-rhy-list avoids concat
(define (make-rhy-list length)
;; chooses random groupings of values
(loop repeat length
append (pick '((1/4 1/4)
(1/3 1/3 1/3)
(1/8 1/8 1/8 1/8)
(1/16 1/16 1/8 1/16 1/8 1/16 1/8)
(1/2 1/2)))))
(define rhy-lst1 (make-rhy-list 20))
(sprout (play-pattern (make-cycle '(70 72 80 88)) (make-cycle rhy-lst1) 160 115
0.9))
_______________________________________________
Cmdist mailing list
Cmdist@ccrma.stanford.edu
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
