17 lines
432 B
Racket
17 lines
432 B
Racket
|
#lang racket
|
||
|
|
;; status - not working (missing 'overlap-texture-u') as of 20220819
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; alien meadow (jmcc)
|
||
|
|
|
||
|
|
(define alien-meadow
|
||
|
|
(let* ((a (rand 0 20))
|
||
|
|
(b (rand 0 5000))
|
||
|
|
(c (rand 0 20))
|
||
|
|
(p (rand -1 1))
|
||
|
|
(f (add (mul3 (sin-osc ar a 0) b 0.1) b)))
|
||
|
|
(pan2 (sin-osc ar f 0) p (mul-add (sin-osc ar c 0) 0.05 0.05))))
|
||
|
|
|
||
|
|
(with-sc3 (overlap-texture-u (list 2 6 6 +inf.0) alien-meadow))
|