24 lines
723 B
Racket
24 lines
723 B
Racket
|
#lang racket
|
||
|
|
;; status - not working as of 20220820 (missing overlap-texture-u )
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; data space (jmcc)
|
||
|
|
|
||
|
|
(define data-space
|
||
|
|
(let* ((r (lambda (n) (rand 0 n)))
|
||
|
|
(lp (lambda (f m a) (mul-add (lf-pulse kr (r f) 0 (r 1)) m a)))
|
||
|
|
(p0 (lp 200 1 0))
|
||
|
|
(p1 (lp 40 (r 8000) (r 2000)))
|
||
|
|
(p2 (lp 20 1 0))
|
||
|
|
(p3 (lp 4 (r 8000) (r 2000)))
|
||
|
|
(p4 (lp 20 1 0))
|
||
|
|
(p5 (lp 4 (r 8000) (r 2000)))
|
||
|
|
(f (add3 (mul p0 p1) (mul p2 p3) (mul p4 p5)))
|
||
|
|
(dt (rand 0.15 0.35))
|
||
|
|
(o (mul (lf-pulse ar f 0 0.5) 0.04))
|
||
|
|
(l (mul (lf-noise0 kr (r 3)) 0.8)))
|
||
|
|
(comb-l (pan2 o l 1) dt dt 3)))
|
||
|
|
|
||
|
|
(with-sc3 (overlap-texture-u (list 1 6 4 +inf.0) data-space))
|