;; returns the scenes top level node as XTMModel*
(bind-func ai_build_scene
(lambda (scene:aiScene* dir:i8*)
(printf "Embedded textures: %d\n" (tref scene 8))
(let ((root:XTMModel* (halloc)))
(ai_build_node scene (tref scene 1) root null dir)
(ai_build_animation scene root)
root)))