rsc3/doc/examples/graph/_scm/rm-octaver.scm

12 lines
301 B
Scheme
Raw Permalink Normal View History

2022-08-24 13:53:18 +00:00
;; rm-octaver (andrea valle, miller puckette)
(import (rnrs) (rsc3))
(let* ((default-pitch
(lambda (i)
(pitch i 440 60 4000 100 16 1 0.01 0.5 1)))
(i (sound-in 4))
(p (default-pitch i))
(f (mce-channel p 0)))
(audition (out 0 (mul-add (sin-osc ar (mul f 0.5) 0) i i))))