;; helpfer function for newverb_c
;; where rt60 is in milliseconds from 0.0 - 5000.0
;; and delay is the comb filter delay in samples
(bind-func comb_fb_from_rtsixty
(let ((fexponent 0.0)
(rt 0.0))
(lambda (rt60 delay)
(set! fexponent (* -3.0 delay (/ 1.0 SRs)))
(set! rt (* rt60 .001))
(pow 10.0 (/ fexponent rt)))))