(define-module (irrlicht core)
+ #:use-module (system foreign)
#:use-module ((irrlicht bindings core) #:prefix ffi-core:)
- #:export (aabbox3d-reset!)
- #:re-export ((ffi-core:make-aabbox3df . make-aabbox3df)))
+ #:export (make-aabbox3df
+ aabbox3d-reset!
+ aabbox3d-add-internal-point!))
+
+(define (make-aabbox3df)
+ (ffi-core:pointer->aabbox3df
+ (make-c-struct ffi-core:aabbox3df '((0 0 0) (0 0 0)))))
(define (aabbox3d-reset! box init-value)
(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)))