<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">Hello Heinrich,<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">This is really puzzling! After running your version, it also works with me, and all my other versions of make-rhy-list work too. After some time, the behaviour returns and I get the sound as attached.<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">That is really bizarre, because this afternoon I already tried the following function, to no avail: <br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small"><br>(define (make-rhy-list length)<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">  ;; chooses random groupings of values (more general)<br>       (loop with rhy = (list) repeat length<br>              do<br>              (set! rhy (append rhy (pick '((1/4 1/4) <br>                                  (1/3 1/3 1/3) <br>                                  (1/8 1/8 1/8 1/8) <br>                                  (1/16 1/16 1/8 1/16 1/8 1/16 1/8)<br>                                  (1/2 1/2)))))<br>              finally (return rhy)))<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">I also tried different midi outputs, and that does not seem to inluence the outcome.<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">This is really hard to test, so I will stick with your version of make-rhy-list.<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">Thank you for your help,<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif;font-size:x-small">Nikolaj<br></div><div class="gmail_extra"><br><div class="gmail_quote">2017-06-17 15:22 GMT+02:00 Taube, Heinrich K <span dir="ltr"><<a href="mailto:taube@illinois.edu" target="_blank">taube@illinois.edu</a>></span>:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">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.<br>
<br>
best, Rick<br>
<span class="gmail-"><br>
<br>
(define (play-pattern pat rhy times tmpo ampl)<br>
 ;; plays pattern times times, with tempo tmpo and amplitude ampl:<br>
 (let* ((dur (in-tempo 1/4 tmpo)))<br>
  (process repeat times<br>
       for x = (next pat)<br>
       for y = (next rhy)<br>
       do<br>
       (if (number? x)<br>
         (mp:midi :key x :dur dur :amp (* ampl (pick .9 .95 1 .85))))<br>
       (wait (in-tempo y tmpo))<br>
       )))<br>
<br>
</span>;; NEW VERSION of make-rhy-list avoids concat<br>
<span class="gmail-"><br>
<div style="font-family:tahoma,sans-serif;font-size:x-small;display:inline" class="gmail_default">​​</div>(define (make-rhy-list length)<br>
 ;; chooses random groupings of values<br>
</span>Â (loop repeat length<br>
    append (pick '((1/4 1/4)<br>
<span class="gmail-">Â Â Â Â Â Â Â Â Â Â Â Â (1/3 1/3 1/3)<br>
            (1/8 1/8 1/8 1/8)<br>
            (1/16 1/16 1/8 1/16 1/8 1/16 1/8)<br>
</span>Â Â Â Â Â Â Â Â Â Â Â Â (1/2 1/2)))))<br>
<div class="gmail-HOEnZb"><div class="gmail-h5"><br>
(define rhy-lst1 (make-rhy-list 20))<br>
<br>
(sprout (play-pattern (make-cycle '(70 72 80 88)) (make-cycle rhy-lst1) 160 115 0.9))<br>
<br></div></div></blockquote><div>Â </div></div><br></div></div>