Low level support and scene.h structs parsing

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

diff --git a/src/assimp.scm b/src/assimp.scm
index f3d8893c7fe2265b23250ff012e2441d551f33e4..7422b8175f7897ce4571b94759c0c371c57ae497 100644 (file)
--- a/src/assimp.scm
+++ b/src/assimp.scm
@@ -16,6 +16,7 @@
 
 
 (define-module (assimp assimp)
+  #:use-module (assimp low-level scene)
   #:use-module (ice-9 iconv)
   #:use-module (rnrs bytevectors)
   #:use-module (system foreign))
@@ -143,6 +144,14 @@
    (aiImportFile (string->pointer filename)
                 flags)))
 
+(define (load-scene filename flags)
+  (parse-aiNode
+   (assoc-ref
+    (parse-aiScene
+     (aiImportFile (string->pointer filename)
+                  flags))
+    'mRootNode)))
+
 (export load-scene
        unwrap-scene
        scene?
@@ -164,6 +173,8 @@
 
 ;;; Meshes
 
+(define AI_MAX_NUMBER_OF_COLOR_SETS 8)
+
 (define-type mesh
   (num-primitive-types (lambda (p) (bv-uint-ref p 0)))
   (vertices (get-pointer-of-pointers 4 12))