Scenes management and draw GUI elements

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

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index d02db523dfad6ed145aa6ad4371b8ed355267e44..c77f9d95b53ba2ffdfda43507ff3d862d2fe3fa9 100644 (file)
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -18,7 +18,10 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 
-(define-module (irrlicht bindings video))
+(define-module (irrlicht bindings video)
+  #:use-module (system foreign))
+
+(define cirr (dynamic-link "libCIrrlicht"))
 
 ;; E_DRIVER_TYPE enum
 (define-public EDT_NULL            0)
@@ -28,3 +31,20 @@
 (define-public EDT_DIRECT3D9       4)
 (define-public EDT_OPENGL          5)
 (define-public EDT_COUNT           6)
+
+;; scolor struct
+(define-public scolor
+  (list uint32 uint32 uint32 uint32))
+
+;; Driver functions
+(define-public begin-scene
+  (pointer->procedure
+   int
+   (dynamic-func "irr_video_IVideoDriver_beginScene" cirr)
+   (list '* int int '* '* '*)))
+
+(define-public end-scene
+  (pointer->procedure
+   int
+   (dynamic-func "irr_video_IVideoDriver_endScene" cirr)
+   (list '*)))