20 lines
475 B
Racket
20 lines
475 B
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220820
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; harmonic tumbling (jmcc)
|
||
|
|
|
||
|
|
(define harmonic-tumbling
|
||
|
|
(let* ((f 80)
|
||
|
|
(p 10)
|
||
|
|
(t (x-line kr (mce2 10 11) 0.1 60 0))
|
||
|
|
(o (lambda (h)
|
||
|
|
(let* ((n (dust kr t))
|
||
|
|
(r (rand 0.25 0.5))
|
||
|
|
(e (decay2 (mul n 0.02) 0.005 r)))
|
||
|
|
(mul (f-sin-osc ar (* f (+ h 1)) 0) e)))))
|
||
|
|
(mix-fill p o)))
|
||
|
|
|
||
|
|
(audition (out 0 harmonic-tumbling))
|