(bind-func midi_cc
(lambda (timestamp:i32 controller:i32 value:i32 chan:i32)
(aset! MCC_ARR controller (/ (i32tof value) 127.0))
;; (printf "MIDI_CC: %d %f %d\n" controller (ftod (aref MCC_ARR controller)) chan)
(if (and (> controller 69) (< controller 73)) (midi_lower_mid))
(if (and (> controller 73) (< controller 77)) (midi_upper_mid))
(if (and (> controller 107) (< controller 111)) (midi_low_shelf))
(if (and (> controller 111) (< controller 115)) (midi_high_shelf))
void))