Hi Rob, > ;;;;;;;;;This returns repeated note on execution > (define (ttone2 len row key beat amp) > (process repeat len > for i from 0 > for p = (mod i len) > for pc = (list-ref row p) > for n = (if (chance? .5) > (+ key 12) > (- key 12)) > for k = (+ n pc) > do (mp:midi :time 0 :key key :dur 1 :amp amp) > (wait beat)))
the updated key value - k - within the loop doesn't seem to be passed to (mp:midi :key ..). it had to be - do (mp:midi :key k :dur 1 :amp amp) and you don't need to put :time value when you are using 'process', which deals with timing by itself Ike _______________________________________________ Cmdist mailing list [email protected] https://cm-mail.stanford.edu/mailman/listinfo/cmdist
