WIP: SMaterial and vertices

[guile-irrlicht.git] / irrlicht / core.scm

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 1fa54978d7b76c441ddef95761579fd8eef628d1..7bc62084e77dd0b630a72d395c74b139f86e5a77 100644 (file)
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -20,4 +20,10 @@
 
 (define-module (irrlicht core)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
+  #:export (aabbox3d-reset!)
   #:re-export ((ffi-core:make-aabbox3df . make-aabbox3df)))
+
+(define (aabbox3d-reset! box init-value)
+  (ffi-core:aabbox3d-reset
+   (ffi-core:aabbox3df->pointer box)
+   (ffi-core:vector3df->pointer init-value)))