(bind-func ocv_Mat (lambda (rows:i32 cols:i32 type:i32 data:i8*) (let ((mat (Mat_NewFromBytes rows cols type data))) (zone_cleanup (Mat_Close mat)) (ocv_Mat:[ocv_Mat*,ocv_MatT]* mat))))