New color structure

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index 994543d811836e6bf545457cf894f4398d77fc3f..ec117b3a751dada87f166fd40503136cd05b880e 100644 (file)
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -56,7 +56,7 @@
 
 ;; scolor struct
 (define-public scolor
-  (list uint32 uint32 uint32 uint32))
+  (list uint8 uint8 uint8 uint8))
 
 ;; Driver functions
 (define-foreign begin-scene

diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index 000373ddb28229e2508694c56ab67fbe0a4c3db5..7fc99fa87b363cc9c363c1a03a9d6e76eede70d3 100644 (file)
--- a/irrlicht/video.scm
+++ b/irrlicht/video.scm
@@ -39,7 +39,7 @@
   (ffi-video:begin-scene driver
                          (bool->integer back-buffer)
                          (bool->integer z-buffer)
-                         (make-c-struct ffi-video:scolor color)
+                         (make-c-struct ffi-video:scolor (reverse color))
                          video-data
                          (if (null? source-rect)
                              %null-pointer