(format port "#<aabbox3df ~x>"
(pointer-address (aabbox3df->pointer box)))))
-(export aabbox3df->pointer)
+(export pointer->aabbox3df
+ aabbox3df->pointer)
(define-public aabbox3df
(list vector3df vector3df))
-(define-public (make-aabbox3df)
- (pointer->aabbox3df
- (make-c-struct aabbox3df '((0 0 0) (0 0 0)))))
-
(define-foreign aabbox3d-add-internal-point
void "irr_core_aabbox3d_addInternalPoint" (list '* '*))