15 lines
No EOL
347 B
Scheme
15 lines
No EOL
347 B
Scheme
;; theremin (jmcc)
|
|
|
|
(import (rnrs) (rsc3))
|
|
|
|
(define theremin
|
|
(let* ((mod 7)
|
|
(detune 0)
|
|
(x (mouse-x kr 0 0.9 0 0.2))
|
|
(y (mouse-y kr 4000 200 1 0.8))
|
|
(f (add y detune))
|
|
(f* (add f (mul3 f (sin-osc ar mod 0) 0.02)))
|
|
(a (mul (sin-osc ar f* 0) x)))
|
|
(pan2 a 0 1)))
|
|
|
|
(audition (out 0 theremin)) |