X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fvideo.scm;h=1df01fe47a04d9bd251f77455fafaa90d808893c;hb=cc03ee884302dfeb94b5da68dd2b618c41333d5c;hp=a394c01b667de8580b8dd1877f599b8fd385a9eb;hpb=916ccc1a2ce8a81d8c611fc976fc537d6048dd47;p=guile-irrlicht.git

diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index a394c01..1df01fe 100644
--- 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