rsc3/doc/examples/ugen/unary-ops/sin.help.scm

9 lines
201 B
Scheme

;; (u:sin a)
;; Sine.
(let* ((a (line kr (- pi) pi 1 remove-synth))
(b (sub (fdiv (u:sin a) (/ pi 2)) 1))
(f (mul-add b 900 1600)))
(audition
(out 0 (mul (sin-osc ar f 0) 0.1))))