Bindings refactor

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

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index 994543d811836e6bf545457cf894f4398d77fc3f..2e60ff35d4a3626c3615e96dd621183907ece359 100644 (file)
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -20,7 +20,7 @@
 
 (define-module (irrlicht bindings video)
   #:use-module (system foreign)
-  #:use-module (irrlicht util))
+  #:use-module (irrlicht util foreign))
 
 ;; E_DRIVER_TYPE enum
 (define-public EDT_NULL            0)
@@ -56,7 +56,10 @@
 
 ;; scolor struct
 (define-public scolor
-  (list uint32 uint32 uint32 uint32))
+  (list uint8 uint8 uint8 uint8))
+
+(define-public (scolor->pointer data)
+  (make-c-struct scolor (reverse data)))
 
 ;; Driver functions
 (define-foreign begin-scene