X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fcore.scm;h=8605919dd10a4138812409ed052ef70128b5e68c;hb=5f5b7536e4f044eb617925db8d4df9b02be3ba7d;hp=6d9a5799b850d995d5d3c3b795ff20eea2463cd6;hpb=84886d64879f76a593b79327836b5d251d23af53;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/core.scm b/irrlicht/bindings/core.scm
index 6d9a579..8605919 100644
--- a/irrlicht/bindings/core.scm
+++ b/irrlicht/bindings/core.scm
@@ -19,16 +19,30 @@
 
 
 (define-module (irrlicht bindings core)
-  #:use-module (system foreign))
-
-;; dimension2d struct
-(define-public dimension2d
-  (list uint32 uint32))
+  #:use-module (system foreign)
+  #:use-module (irrlicht util))
 
 ;; rect struct
 (define-public rect
   (list int32 int32 int32 int32))
 
+;; vector2df struct
+(define-public vector2df
+  (list float float float))
+
 ;; vector3df struct
 (define-public vector3df
   (list float float float))
+
+;; aabbox3d f32 struct and functions
+(define-public aabbox3d_f32
+  (append
+   vector3df  ; min-edge
+   vector3df  ; max-edge
+   ))
+
+(define-foreign aabbox3d-add-internal-point
+  void "irr_core_aabbox3d_addInternalPoint" (list '* '*))
+
+(define-foreign aabbox3d-reset
+  void "irr_core_aabbox3d_reset" (list '* '*))