From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 13 Dec 2019 15:22:09 +0000 (+0100)
Subject: New color structure
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=630eb6a58696fdb056f9f25209e72095d7dec779;p=guile-irrlicht.git

New color structure
---

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index 994543d..ec117b3 100644
--- 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 000373d..7fc99fa 100644
--- 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