15 lines
445 B
Scheme
15 lines
445 B
Scheme
|
;; xy-interference (rd)
|
||
|
|
|
||
|
|
(import (rnrs) (rsc3))
|
||
|
|
|
||
|
|
(define xy-interference
|
||
|
|
(let* ((x (mouse-x kr 20 22000 1 (mce2 0.005 0.025)))
|
||
|
|
(y (mouse-y kr 20 22000 1 (mce2 0.005 0.075)))
|
||
|
|
(nd (lambda (_)
|
||
|
|
(let* ((n (lf-noise0 kr (mce2 5 9)))
|
||
|
|
(a (sin-osc ar (add x n) 0))
|
||
|
|
(b (sin-osc ar y 0)))
|
||
|
|
(mul a b)))))
|
||
|
|
(mix-fill 3 nd)))
|
||
|
|
|
||
|
|
(audition (out 0 xy-interference))
|