;; initialize amp and call with two arguments
;; first arg is input sample
;; second argument is amplitidue in DB
;;
;; oscillate between -10db and -70db
(bind-func dsp:[double,double,double,double,double*]*
(let ((amp (init_lv2_amp 44100.0)))
(lambda (in time chan dat)
(amp (random) (+ -40.0 (* 30.0 (cos (* time .0005))))))))