Rect foreign record

[guile-irrlicht.git] / irrlicht / bindings / core.scm

diff --git a/irrlicht/bindings/core.scm b/irrlicht/bindings/core.scm
index 2058d8a91b898664c207a29c76074b1d7e2c71d9..20d8e8405ae352061a80f64d42711c78179b00fc 100644 (file)
--- a/irrlicht/bindings/core.scm
+++ b/irrlicht/bindings/core.scm
@@ -19,8 +19,26 @@
 
 
 (define-module (irrlicht bindings core)
-  #:use-module (system foreign))
+  #:use-module (system foreign)
+  #:use-module (irrlicht util))
 
-;; dimension2d struct
-(define-public dimension2d
-  (list uint32 uint32))
+;; 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 '* '*))