;; c-osc
(import (rsc3))

(with-sc3
 (lambda (fd)
   (async fd (b-alloc 10 512 1))
   (async fd (b-gen1 10 "sine1" (list (+ 1 2 4) 1 1/2 1/3 1/4 1/5 1/6 1/7 1/8 1/9 1/10)))))

(audition (out 0 (mul (c-osc ar 10 200 0.7) 0.25)))

(audition (out 0 (mul (c-osc ar 10 200 (mouse-x* kr 0 4 0 0.1)) 0.25)))

;; Compare with:
(audition (out 0 (mul (osc ar 10 200 0.0) 0.25)))