X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fcore.scm;h=683c89a47f7f53b34b3e6fddfe11b3d95e87f1b7;hb=8ab48666239b37a357944d2928a31aaf37578892;hp=a0cb97327691d68fe78d85d1939c0c7a7ded0245;hpb=916ccc1a2ce8a81d8c611fc976fc537d6048dd47;p=guile-irrlicht.git

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index a0cb973..683c89a 100644
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -22,7 +22,8 @@
   #:use-module (system foreign)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
   #:export (make-aabbox3df
-            aabbox3d-reset!))
+            aabbox3d-reset!
+            aabbox3d-add-internal-point!))
 
 (define (make-aabbox3df)
   (ffi-core:pointer->aabbox3df
@@ -32,3 +33,8 @@
   (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)))