X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fcore.scm;h=683c89a47f7f53b34b3e6fddfe11b3d95e87f1b7;hb=8994b42fea213a741631efbe7fd9c09c0aab7100;hp=1fa54978d7b76c441ddef95761579fd8eef628d1;hpb=ae964fdd5a11a94d0ae5f9a33d8a08c23fd08825;p=guile-irrlicht.git

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 1fa5497..683c89a 100644
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -19,5 +19,22 @@
 
 
 (define-module (irrlicht core)
+  #:use-module (system foreign)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
-  #:re-export ((ffi-core:make-aabbox3df . make-aabbox3df)))
+  #:export (make-aabbox3df
+            aabbox3d-reset!
+            aabbox3d-add-internal-point!))
+
+(define (make-aabbox3df)
+  (ffi-core:pointer->aabbox3df
+   (make-c-struct ffi-core:aabbox3df '((0 0 0) (0 0 0)))))
+
+(define (aabbox3d-reset! box init-value)
+  (ffi-core:aabbox3d-reset
+   (ffi-core:aabbox3df->pointer box)
+   (ffi-core:vector3df->pointer init-value)))
+
+(define (aabbox3d-add-internal-point! box point)
+  (ffi-core:aabbox3d-add-internal-point
+   (ffi-core:aabbox3df->pointer box)
+   (ffi-core:vector3df->pointer point)))