X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fscene.scm;h=cf51aa56866c7fa8c44f39d9a3d9b71abe8f5724;hb=6bcbb2cefb0e69afae9b1de828b85f506b1bef19;hp=c1fac94bea43aa1d63b0f6737d25a77d0af56a3d;hpb=cda8d6e3636e9ad6878b8e6b0c4449f6f9c635f0;p=guile-irrlicht.git

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index c1fac94..cf51aa5 100644
--- a/irrlicht/scene.scm
+++ b/irrlicht/scene.scm
@@ -85,6 +85,10 @@
        id
        make-active))))
 
+(define-method (draw-all (scene-manager <scene-manager>))
+  ((get-irrlicht-proc "drawAll" scene-manager)
+   (irr-pointer scene-manager)))
+
 (define-method (get-mesh (scene-manager <scene-manager>) filename)
   (make <animated-mesh>
     #:irr-pointer
@@ -92,7 +96,7 @@
      (irr-pointer scene-manager)
      filename)))
 
-(export <scene-manager> add-animated-mesh-scene-node! add-camera-scene-node! get-mesh)
+(export <scene-manager> add-animated-mesh-scene-node! add-camera-scene-node! draw-all get-mesh)
 
 
 ;; ISceneNode