New type 'material'

[guile-assimp.git] / src / assimp.scm

diff --git a/src/assimp.scm b/src/assimp.scm
index aac4475da1f91714274477e79d3fbd559a6760fe..b91e8ab2e4ff5f30cae95eb11ac30cb05fb3d582 100644 (file)
--- a/src/assimp.scm
+++ b/src/assimp.scm
@@ -120,7 +120,7 @@
   (flags (lambda (p) (bv-uint-ref p 0)))
   (root-node (lambda (p) (wrap-node (make-pointer (bv-uint-ref p 4)))))
   (meshes (get-pointer-of-pointers 8 12 wrap-mesh))
-  (materials (get-pointer-of-pointers 16 20))
+  (materials (get-pointer-of-pointers 16 20 wrap-material))
   (animations (get-pointer-of-pointers 24 28))
   (textures (get-pointer-of-pointers 32 36))
   (lights (get-pointer-of-pointers 40 44))
@@ -167,3 +167,13 @@
 
 (export mesh?
        mesh-contents)
+
+
+;;; Materials
+
+(define-type material
+  (properties (get-pointer-of-pointers 4 0))
+  (allocated (lambda (p) (bv-uint-ref p 8))))
+
+(export material?
+       material-contents)