;; Mat crop/roi
(bind-lib cvlib Mat_Region [ocv_MatT,ocv_MatT,ocv_RectT]*)
(bind-func ocv_region
(lambda (in:ocv_Mat* rect:ocv_RectT)
(let ((mat (Mat_Region (tref in 0) rect)))
(zone_cleanup (Mat_Close mat))
(ocv_Mat mat))))
;;
;; opencv mat clone
;;
(bind-lib cvlib Mat_Clone [ocv_MatT,ocv_MatT]*)