13 lines
295 B
Scheme
13 lines
295 B
Scheme
|
;; (amp-db a)
|
||
|
|
|
||
|
|
;; Convert linear amplitude to decibels.
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (f-sin-osc ar 800 0.0)
|
||
|
|
(db-amp (amp-db (line kr 0.5 0.0 5 remove-synth))))))
|
||
|
|
|
||
|
|
(let* ((x (mouse-x kr -60 0 0 0.1))
|
||
|
|
(f (mul-add (db-amp x) 600 900)))
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (sin-osc ar f 0) 0.1))))
|