X-Git-Url: https://git.jsancho.org/?p=guile-assimp.git;a=blobdiff_plain;f=src%2Fassimp.scm;h=b91e8ab2e4ff5f30cae95eb11ac30cb05fb3d582;hp=aac4475da1f91714274477e79d3fbd559a6760fe;hb=dbff83e1cbd8b5047459677d034195f5796302c5;hpb=7109f062d51a61a9262711eca439896e63f9348c

diff --git a/src/assimp.scm b/src/assimp.scm
index aac4475..b91e8ab 100644
--- 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)