;; (dseq length array)

;; demand rate sequence generator.

;; array  - array of values or other ugens
;; length - number of repeats

(let* ((a (dseq 3 (make-mce (list 1 3 2 7 8))))
       (t (impulse kr (mouse-x kr 1 40 1 0.1) 0))
       (f (mul-add (demand t 0 a) 30 340)))
  (audition (out 0 (mul (sin-osc ar f 0) 0.1))))

(let* ((a (dseq dinf (make-mce (replicate-m 32 (random 0 10)))))
       (t (impulse ar (mouse-x kr 1 10000 1 0.1) 0))
       (f (mul-add (demand t 0 a) 30 340)))
  (audition (out 0 (mul (sin-osc ar f 0) 0.1))))