]> git.jsancho.org Git - guile-irrlicht.git/blobdiff - irrlicht/video.scm
WIP: SMaterial and vertices
[guile-irrlicht.git] / irrlicht / video.scm
index 000373ddb28229e2508694c56ab67fbe0a4c3db5..b0f48d999957b95dd1a2cca85b00989b093718ee 100644 (file)
@@ -27,7 +27,9 @@
             end-scene
             get-fps
             get-texture
-            get-video-driver-name))
+            get-video-driver-name)
+  #:re-export ((ffi-video:make-s3dvertex . make-s3dvertex)
+               (ffi-video:vertex-position . vertex-position)))
 
 (define* (begin-scene driver
                       #:key
   (ffi-video:begin-scene driver
                          (bool->integer back-buffer)
                          (bool->integer z-buffer)
-                         (make-c-struct ffi-video:scolor color)
+                         (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))