X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;h=2e60ff35d4a3626c3615e96dd621183907ece359;hb=2a0373b3eda4407e2e41a4e8fc3a7333bb789a89;hp=ec117b3a751dada87f166fd40503136cd05b880e;hpb=630eb6a58696fdb056f9f25209e72095d7dec779;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index ec117b3..2e60ff3 100644
--- 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)
@@ -58,6 +58,9 @@
 (define-public scolor
   (list uint8 uint8 uint8 uint8))
 
+(define-public (scolor->pointer data)
+  (make-c-struct scolor (reverse data)))
+
 ;; Driver functions
 (define-foreign begin-scene
   int "irr_video_beginScene" (list '* int int '* '* '*))