(bind-func draw_color_body_frame
(lambda (frame:astra_colorizedbodyframe_t)
(let ((bytes:i32 0)
(dat:i8* (salloc)))
(astra_colorizedbodyframe_get_data_ptr frame (convert (ref dat)) (ref bytes))
;; (println "size:" bytes)
(if (= bytes (* 640 480 4))
(ocv_imshow 'Body' (ocv_cvtColor (ocv_Mat 480 640 (CV_MAKE_TYPE CV_8U 4) dat) ocv_COLOR_RGBA2BGRA)))
void)))