;; modal space (jmcc)

(import (rnrs) (sosc) (rsc3))

(define modal-space-i
  (let* ((x (mouse-x kr 0 15 0 0.1))
         (k (degree-to-key 0 x 12))
         (c (lambda (n r)
              (let* ((o (mul (sin-osc ar (midi-cps (add3 r k n)) 0) 0.1))
                     (t (lf-pulse ar (midi-cps (mce2 48 55)) 0.15 0.5))
                     (f (midi-cps (mul-add (sin-osc kr 0.1 0) 10 r)))
                     (d (mul (rlpf t f 0.1) 0.1))
                     (m (add o d)))
                (add (comb-n m 0.31 0.31 2) m))))
         (n (mul (lf-noise1 kr (mce2 3 3.05)) 0.04)))
    (mul (add (c n 48) (c n 72)) 0.25)))

(define modal-space
  (lambda (fd)
    (async fd (b-alloc 0 7 1))
    (send fd (b-setn1 0 0 (list 0 2 3.2 5 7 9 10)))
    (play fd (out 0 modal-space-i))))

(with-sc3 modal-space)