;; seqr (rd)

(import (rnrs) (rsc3) (rhs))

(define nfreq
  (lambda (n l r)
    (map midi-cps (map floor (replicate-m n (random l r))))))

(define seqr-f
  (lambda (f e)
    (let ((n (/ (length e) 2)))
      (select (mul-add (lf-saw kr f 0) n n) (make-mce e)))))

(define seqr
  (let* ((n (i-random 6 18))
         (f (/ (i-random 9 18) n)))
    (mul (blip ar
               (mce2 (seqr-f f (nfreq n 72 96))
                     (seqr-f f (nfreq n 72 84)))
               (mce2 (seqr-f f (replicate-m n (random 1 3)))
                     (seqr-f f (replicate-m n (random 3 6)))))
         (mce2 (seqr-f f (replicate-m n (random 0.05 0.10)))
               (seqr-f f (replicate-m n (random 0.05 0.15)))))))

(audition (out 0 seqr))