-(define (aabbox3d-add-internal-point! box point)
- (ffi-core:aabbox3d-add-internal-point
- (ffi-core:aabbox3df->pointer box)
- (ffi-core:vector3df->pointer point)))
+(define (make-box3d)
+ (let ((aabbox3d_make (get-irrlicht-proc "aabbox3d_make")))
+ (make <box3d> #:irr-pointer (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 reset-box3d!)