X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fcore.scm;h=ab2d070335addcbb8f00f905714f15e3db05c399;hb=3bb58c2b45af12c0f9c9eac648e67ac6fa90e104;hp=0604076e29945e475d460aaba9a19068775bacfd;hpb=c59d2be798005a3684d75c3f561568ad2cdac9c7;p=guile-irrlicht.git

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 0604076..ab2d070 100644
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -28,8 +28,16 @@
 (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))))
+    (aabbox3d_make)))
+
+(define-method (reset-box3d! (box3d <box3d>) init-value)
+  (let ((reset (get-irrlicht-proc "aabbox3d_reset")))
+    (reset box3d init-value)))
 
-(export <box3d> make-box3d)
+(export <box3d> add-internal-point! make-box3d reset-box3d!)