(bind-func h3d_object_size
(lambda (idx:i32)
(let ((sizes:float* (halloc 6))
(results:float* (halloc 3)))
(h3dGetNodeAABB (pref _objects idx)
(pref-ptr sizes 0) (pref-ptr sizes 1) (pref-ptr sizes 2)
(pref-ptr sizes 3) (pref-ptr sizes 4) (pref-ptr sizes 5))
(pset! results 0 (- (pref sizes 3) (pref sizes 0)))
(pset! results 1 (- (pref sizes 4) (pref sizes 1)))
(pset! results 2 (- (pref sizes 5) (pref sizes 2)))
results)))