(bind-func midi_high_shelf
(lambda ()
(println 'HighShelf
'frq:
(+ 8000.0 (frq_from_val (+ 0.3 (* 0.5 (aref MCC_ARR 112)))))
'DB
(* 40.0 (- (aref MCC_ARR 113) 0.7)) ;; -28db to 12db
'Q
(+ 0.1 (* 1.9 (aref MCC_ARR 114))))
(set_peq_hshelf (cast (cref dsp1 eq [void]*) i8*)
(+ 8000.0 (frq_from_val (+ 0.3 (* 0.5 (aref MCC_ARR 112)))))
(* 40.0 (- (aref MCC_ARR 113) 0.7)) ;; -28db to 12db
(+ 0.1 (* 1.9 (aref MCC_ARR 114))))))