20 lines
515 B
Scheme
20 lines
515 B
Scheme
;; eggcrate (rd)
|
|
|
|
(import (rnrs) (rsc3))
|
|
|
|
(define eggcrate-f
|
|
(lambda (u v)
|
|
(mul (u:cos (mul u pi)) (u:sin (mul v pi)))))
|
|
|
|
(define eggcrate
|
|
(let* ((p (make-mce (list 64 72 96 128 256 6400 7200 8400 9600)))
|
|
(x (brown-noise kr))
|
|
(y (brown-noise kr))
|
|
(t (dust kr 2.4))
|
|
(f0 (t-choose t p))
|
|
(f1 (t-choose t p))
|
|
(f (lin-lin (eggcrate-f x y) -1 1 f0 f1))
|
|
(a (lin-lin x -1 1 0 0.1)))
|
|
(pan2 (mix (sin-osc ar f 0)) y a)))
|
|
|
|
(audition (out 0 eggcrate))
|