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

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