(bind-func static vcf_mc_c
(lambda (type:i64 channels:i64)
(let ((lines:[SAMPLE,SAMPLE,SAMPLE,SAMPLE]** (alloc channels))
(i:i64 0))
(dotimes (i channels) (pset! lines i (vcf_c type)))
(lambda (chan:i64 x freq res)
(let ((f (pref lines chan)))
(f x freq res))))))