16 lines
415 B
Scheme
16 lines
415 B
Scheme
(import (sosc) (rsc3))
|
|
|
|
;; Allocate and set values at buffer 10.
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd (b-alloc 10 6 1))
|
|
(send fd (b-setn1 10 0 (list 50 100 200 400 800 1600)))))
|
|
|
|
;; Index into the above buffer for frequency values.
|
|
(let ((f (mul (index 10 (mul (lf-saw kr 2 3) 4)) (mce2 1 9))))
|
|
(audition (out 0 (mul (sin-osc ar f 0) 0.1))))
|
|
|
|
;; Free buffer
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd (b-free 10))))
|