33 lines
1.1 KiB
Scheme
33 lines
1.1 KiB
Scheme
|
;; fwalk (rd)
|
||
|
|
|
||
|
|
(import (rnrs) (sosc) (rsc3) (rhs))
|
||
|
|
|
||
|
|
(define fwalk-i
|
||
|
|
(lambda (r)
|
||
|
|
(let* ((t (dust kr 3))
|
||
|
|
(r1 (ti-rand 0 6 t))
|
||
|
|
(r2 (t-rand -0.0001 0.0001 t))
|
||
|
|
(f (buf-rd-l 1 kr (mce2 0 1) r1 no-loop))
|
||
|
|
(o1 (blip ar (midi-cps (add r f)) 12))
|
||
|
|
(o2 (blip ar (midi-cps (add3 r f r2)) 12)))
|
||
|
|
(mul3 (add o1 o2) (decay2 t 0.3 1.2) 0.1))))
|
||
|
|
|
||
|
|
(define fwalk
|
||
|
|
(let* ((n (list 40.0 47.0 42.0 40.0 50.0
|
||
|
|
43.0 35.0 43.0 40.0 47.0
|
||
|
|
45.0 35.0 43.0 42.0 59.0
|
||
|
|
48.0 40.0 47.0 52.0 45.0))
|
||
|
|
(m (list 40.0 40.0 42.0 47.0 50.0
|
||
|
|
35.0 43.0 43.0 40.0 45.0
|
||
|
|
42.0 35.0 48.0 47.0 43.0
|
||
|
|
40.0 59.0 45.0 47.0 52.0))
|
||
|
|
(a (map (lambda (b) (b-alloc b 20 1)) (list 0 1)))
|
||
|
|
(s (zip-with (lambda (b d) (b-setn1 b 0 d)) (list 0 1) (list n m))))
|
||
|
|
(lambda (fd)
|
||
|
|
(for-each (lambda (m) (async fd m)) a)
|
||
|
|
(for-each (lambda (m) (send fd m)) s)
|
||
|
|
(play fd (out 0 (add (fwalk-i 24) (fwalk-i 36)))))))
|
||
|
|
|
||
|
|
(with-sc3 fwalk)
|
||
|
|
|