20 lines
465 B
Scheme
20 lines
465 B
Scheme
|
;; harmonic swimming (jmcc)
|
||
|
|
|
||
|
|
(import (rnrs) (rsc3))
|
||
|
|
|
||
|
|
(define harmonic-swimming
|
||
|
|
(let* ((a 0.02)
|
||
|
|
(f 50)
|
||
|
|
(p 20)
|
||
|
|
(z 0)
|
||
|
|
(l (line kr 0 (neg a) 60 0))
|
||
|
|
(o (lambda (h)
|
||
|
|
(let* ((r (clone 2 (rand 2 8)))
|
||
|
|
(n (lf-noise1 kr r))
|
||
|
|
(e (u:max 0 (mul-add n a l))))
|
||
|
|
(mul (f-sin-osc ar (* f (+ h 1)) 0) e)))))
|
||
|
|
(mix-fill p o)))
|
||
|
|
|
||
|
|
(audition (out 0 harmonic-swimming))
|
||
|
|
|