From 630eb6a58696fdb056f9f25209e72095d7dec779 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Fri, 13 Dec 2019 16:22:09 +0100 Subject: [PATCH] New color structure --- irrlicht/bindings/video.scm | 2 +- irrlicht/video.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5