25 lines
803 B
Scheme
25 lines
803 B
Scheme
|
;; 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)
|