[CM] process drift fixed

Heinrich Taube taube at uiuc.edu
Sun Apr 12 14:26:05 PDT 2009

svn has the real-time process drift issue solved, i think. thanks very  
much to neil baylis who both reported the problem and helped fix it.  
he reports that even after 20 minutes the processes are still in lock  
step in both chicken and s7.
hopefully the fix wont cause problems in other situations!

(define (note-cycle endtime keys rate)
   (process with pat = (make-cycle keys)
           while (< (elapsed) endtime)
           (send "mp:midi" #:key (next pat) #:dur rate)
           (wait rate)))

(let* ((k1 (key '(c4 g a bf)))
       (k2 (key '(c2 e g a bf a g e)))
       (stop 1000))
   (sprout (list (note-cycle stop k1 .4)
                 (note-cycle stop k2 .2))

More information about the Cmdist mailing list