(bind-type astra_joint_t <i8,i8,astra_vector2f_t,astra_vector3f_t,astra_matrix3x3_t>)
(bind-type astra_body_t <i32,astra_vector3f_t,astra_joint_t,astra_handpose_info_t,i8,i8>)
(bind-type astra_body_list_t <|6,astra_body_t|,i32>)
(bind-type astra_bitmapmask_t <i8*,i32,i32> (constructor? . #f) (printer? . #f))
(bind-func astra_bitmapmask_t
(lambda (width height)
(let ((obj:astra_bitmapmask_t* (alloc))
(dat:i8* (alloc (* width height))))
(tfill! obj dat width height)
obj)))