Add new types and structs parsers

[guile-assimp.git] / src / low-level / mesh.scm

diff --git a/src/low-level/mesh.scm b/src/low-level/mesh.scm
index e151045fe1e673d2b5b83a571de9159b388206d6..50d0bb807a62518e5c4ec538d6cfae3fb9552b72 100644 (file)
--- a/src/low-level/mesh.scm
+++ b/src/low-level/mesh.scm
@@ -28,6 +28,22 @@
 (export parse-aiFace)
 
 
+(define-struct-parser parser-aiVertexWeight
+  (mVertexId unsigned-int)
+  (mWeight float))
+
+(export parse-aiVertexWeight)
+
+
+(define-struct-parser parse-aiBone
+  (mName aiString-type)
+  (mNumWeights unsigned-int)
+  (mWeights '*)
+  (mOffsetMatrix aiMatrix4x4-type))
+
+(export parse-aiBone)
+
+
 (define AI_MAX_NUMBER_OF_COLOR_SETS #x8)
 (define AI_MAX_NUMBER_OF_TEXTURECOORDS #x8)