rsc3/doc/examples/graph/_scm/scratchy.scm

10 lines
207 B
Scheme
Raw Permalink Normal View History

2022-08-24 13:53:18 +00:00
;; scratchy (jmcc)
(import (rnrs) (rsc3))
(define scratchy
(let* ((n (mul (clone 2 (brown-noise ar)) 0.5))
(f (mul (u:max (sub n 0.49) 0) 20)))
(rhpf f 5000 1)))
(audition (out 0 scratchy))