(bind-func midi_upper_mid
(lambda ()
(println 'UpperMid
'frq:
(+ 1000.0 (frq_from_val (+ 0.2 (* 0.57 (aref MCC_ARR 74)))))
'DB
(* 40.0 (- (aref MCC_ARR 75) 0.7)) ;; -28db to 12db
'Q
(+ 0.1 (* 1.9 (aref MCC_ARR 76))))
(set_peq_hmid (cast (cref dsp1 eq [void]*) i8*)
(+ 1000.0 (frq_from_val (+ 0.2 (* 0.57 (aref MCC_ARR 74)))))
(* 40.0 (- (aref MCC_ARR 75) 0.7)) ;; -28db to 12db
(+ 0.1 (* 1.9 (aref MCC_ARR 76))))))