(bind-func kinect_update_body
(let ((hands:i32* (alloc (* 6 2)))
(ids:i64* (alloc 6))
(points:XTM_Point2d* (alloc (* 6 25)))
(joints:Joint* (alloc (* 6 25))))
(lambda (sensor width height)
(let ((res (kinect_get_joints sensor ids joints hands points width height)))
(if (< res 0)
(println "NO DATA AVAILABLE"))
void))))