(bind-func draw_rgb_frame
(lambda (frame:astra_colorframe_t)
(let ((bytes:i32 0)
(dat:i8* (salloc)))
(astra_colorframe_get_data_ptr frame (ref dat) (ref bytes))
;; (println "size:" bytes)
(if (= bytes (* 640 480 3))
(ocv_imshow 'RGB' (ocv_cvtColor (ocv_Mat 480 640 (CV_MAKE_TYPE CV_8U 3) dat) ocv_COLOR_RGB2BGR)))
void)))