(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)
(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 '* '* '*))