+(export ai-scene?
+ ai-scene-contents
+ ai-scene-flags
+ ai-scene-root-node
+ ai-scene-meshes
+ ai-scene-materials
+ ai-scene-animations
+ ai-scene-textures
+ ai-scene-lights
+ ai-scene-cameras)
+
+
+;;; Nodes
+
+(define-conversion-type parse-aiNode -> ai-node
+ (name (sized-string (field 'mName)))
+ (transformation (field 'mTransformation))
+ (parent (wrap (field 'mParent) wrap-ai-node))
+ (children (wrap (array (field 'mNumChildren) (field 'mChildren)) wrap-ai-node))
+ (meshes (array (field 'mNumMeshes) (field 'mMeshes))))
+
+(export ai-node?
+ ai-node-contents
+ ai-node-name
+ ai-node-transformation
+ ai-node-parent
+ ai-node-children
+ ai-node-meshes)
+
+
+;;; Meshes
+
+(define-conversion-type parse-aiMesh -> ai-mesh
+ (name (sized-string (field 'mName)))
+ (primitive-types (field 'mPrimitiveTypes))
+ (vertices (wrap
+ (array (field 'mNumVertices) (field 'mVertices) #:element-proc get-element-address)
+ wrap-ai-vector3d))
+ (faces (wrap
+ (array (field 'mNumFaces) (field 'mFaces) #:element-size 8 #:element-proc get-element-address)
+ wrap-ai-face))
+ (normals (wrap
+ (array (field 'mNumVertices) (field 'mNormals) #:element-size 12 #:element-proc get-element-address)
+ wrap-ai-vector3d))
+ (tangents (wrap
+ (array (field 'mNumVertices) (field 'mTangents) #:element-size 12 #:element-proc get-element-address)
+ wrap-ai-vector3d))
+ (bitangents (wrap
+ (array (field 'mNumVertices) (field 'mBitangents) #:element-size 12 #:element-proc get-element-address)
+ wrap-ai-vector3d))
+ (colors (map
+ (lambda (c)
+ (wrap
+ (array (field 'mNumVertices) c #:element-size 16 #:element-proc get-element-address)
+ wrap-ai-color4d))
+ (field 'mColors)))
+ (texture-coords (map
+ (lambda (tc)
+ (wrap
+ (array (field 'mNumVertices) tc #:element-size 12 #:element-proc get-element-address)
+ wrap-ai-vector3d))
+ (field 'mTextureCoords)))
+ (num-uv-components (field 'mNumUVComponents))
+ (bones (wrap (array (field 'mNumBones) (field 'mBones)) wrap-ai-bone))
+ (material-index (field 'mMaterialIndex)))
+
+(export ai-mesh?
+ ai-mesh-contents
+ ai-mesh-name
+ ai-mesh-primitive-types
+ ai-mesh-vertices
+ ai-mesh-faces
+ ai-mesh-normals
+ ai-mesh-tangents
+ ai-mesh-bitangents
+ ai-mesh-colors
+ ai-mesh-texture-coords
+ ai-mesh-num-uv-components
+ ai-mesh-bones
+ ai-mesh-material-index)
+
+
+;;; Materials
+
+(define-conversion-type parse-aiMaterial -> ai-material
+ (properties (array (field 'mNumProperties) (field 'mProperties)))
+ (num-allocated (field 'mNumAllocated)))
+
+(export ai-material?
+ ai-material-contents
+ ai-material-properties
+ ai-material-num-allocated)
+
+
+;;; Faces
+
+(define-conversion-type parse-aiFace -> ai-face
+ (indices (array (field 'mNumIndices) (field 'mIndices))))
+
+(export ai-face?
+ ai-face-contents
+ ai-face-indices)
+
+
+;;; Vectors