10 lines
220 B
Scheme
10 lines
220 B
Scheme
;; moto rev (jmcc)
|
|
|
|
(import (rnrs) (rsc3))
|
|
|
|
(define moto-rev
|
|
(let* ((f (mul-add (sin-osc kr 0.2 0) 10 21))
|
|
(s (lf-pulse ar f (mce2 0 0.1) 0.1)))
|
|
(clip2 (rlpf s 100 0.1) 0.4)))
|
|
|
|
(audition (out 0 moto-rev))
|