12 lines
301 B
Scheme
12 lines
301 B
Scheme
|
;; 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))))
|