X-Git-Url: https://git.jsancho.org/?p=guile-assimp.git;a=blobdiff_plain;f=src%2Fassimp.scm;fp=src%2Fassimp.scm;h=7422b8175f7897ce4571b94759c0c371c57ae497;hp=f3d8893c7fe2265b23250ff012e2441d551f33e4;hb=63cca7faa50c513c8aa201d15336e555438fddb5;hpb=97d868192018795a86bf88d6534c132303f6cd08

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