From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 16 May 2020 06:36:14 +0000 (+0200)
Subject: reset-box3d!
X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=commitdiff_plain;h=df1088b80d2c90a390b0229ce5c6ffcc7665fda4

reset-box3d!
---

diff --git a/examples/03-custom-scene-node.scm b/examples/03-custom-scene-node.scm
index 21e5be8..0476e72 100644
--- a/examples/03-custom-scene-node.scm
+++ b/examples/03-custom-scene-node.scm
@@ -75,7 +75,7 @@
         (make-vertex3d '(-10 0 -10) '(0 0 1) '(255 0 255 0) '(0 0))))
 (define material (make-material #:wireframe #f #:lighting #f))
 
-(box3d-reset! box (vertex3d-position (car vertices)))
+(reset-box3d! box (vertex3d-position (car vertices)))
 (for-each
  (lambda (vertex)
    (box3d-add-internal-point! box (vertex3d-position vertex)))
diff --git a/irrlicht.scm b/irrlicht.scm
index 74a02d3..d68ec1b 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -53,6 +53,7 @@
                make-box3d
                make-material
                make-vertex3d
+               reset-box3d!
                run
                set-material-flag!
                set-material-texture!
diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 0604076..7d97476 100644
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -32,4 +32,8 @@
   (let ((aabbox3d_make (get-irrlicht-proc "aabbox3d_make")))
     (make <box3d> #:irr-pointer (aabbox3d_make))))
 
-(export <box3d> make-box3d)
+(define-method (reset-box3d! (box3d <box3d>) init-value)
+  (let ((reset (get-irrlicht-proc "aabbox3d_reset")))
+    (reset box3d init-value)))
+
+(export <box3d> make-box3d reset-box3d!)