Set material for video driver

[guile-irrlicht.git] / irrlicht / video.scm

diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index a394c01b667de8580b8dd1877f599b8fd385a9eb..1df01fe47a04d9bd251f77455fafaa90d808893c 100644 (file)
--- a/irrlicht/video.scm
+++ b/irrlicht/video.scm
@@ -29,6 +29,7 @@
             get-fps
             get-texture
             get-video-driver-name
+            set-material!
             make-s3dvertex
             vertex-position
             make-material))
@@ -62,6 +63,11 @@
   (pointer->string
    (ffi-video:get-video-driver-name driver)))
 
+(define (set-material! driver material)
+  (ffi-video:set-material
+   driver
+   (ffi-video:smaterial->pointer material)))
+
 ;; s3d vertices
 (define (make-s3dvertex position normal color t-coords)
   (ffi-video:pointer->s3dvertex