X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fcore.scm;h=2b714727bd5ca4b342a7df72d35628f836ea465f;hp=7d97476f35b156cdc8e7d919d2896067cf73a611;hb=061e994acc2fe7806d3911a715993c442e56f7ef;hpb=df1088b80d2c90a390b0229ce5c6ffcc7665fda4

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 7d97476..2b71472 100644
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -28,6 +28,10 @@
 (define-class <box3d> (<irrlicht-base>)
   (irr-class #:init-value "aabbox3d"))
 
+(define-method (add-internal-point! (box3d <box3d>) point)
+  (let ((addInternalPoint (get-irrlicht-proc "aabbox3d_addInternalPoint")))
+    (addInternalPoint box3d point)))
+
 (define (make-box3d)
   (let ((aabbox3d_make (get-irrlicht-proc "aabbox3d_make")))
     (make <box3d> #:irr-pointer (aabbox3d_make))))
@@ -36,4 +40,4 @@
   (let ((reset (get-irrlicht-proc "aabbox3d_reset")))
     (reset box3d init-value)))
 
-(export <box3d> make-box3d reset-box3d!)
+(export <box3d> add-internal-point! make-box3d reset-box3d!)