X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fvideo.scm;h=ed133715dce43faaace676ee02b24760d392691b;hb=2a0373b3eda4407e2e41a4e8fc3a7333bb789a89;hp=e113815ad3501fa5ecc0b284affcee1976562248;hpb=eaa186435f0c641c53841d8d15581525bd542249;p=guile-irrlicht.git

diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index e113815..ed13371 100644
--- a/irrlicht/video.scm
+++ b/irrlicht/video.scm
@@ -22,6 +22,7 @@
   #:use-module (system foreign)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
   #:use-module ((irrlicht bindings video) #:prefix ffi-video:)
+  #:use-module (irrlicht util)
   #:export (begin-scene
             end-scene
             get-fps
@@ -36,13 +37,13 @@
                       (video-data %null-pointer)
                       (source-rect '()))
   (ffi-video:begin-scene driver
-                         (if back-buffer 1 0)
-                         (if z-buffer 1 0)
-                         (make-c-struct ffi-video:scolor color)
+                         (bool->integer back-buffer)
+                         (bool->integer z-buffer)
+                         (ffi-video:scolor->pointer color)
                          video-data
                          (if (null? source-rect)
                              %null-pointer
-                             (make-c-struct ffi-core:rect source-rect))))
+                             (ffi-core:rect->pointer source-rect))))
 
 (define (end-scene driver)
   (ffi-video:end-scene driver))