X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fscene.scm;h=6c55a3d0cda9c2c7729a84484c216e851ed4d294;hp=2fb2f8ffb51ed6087c51a54d7f1982b6c46c8255;hb=a880a7401ee591eaff7d1c32bf14c1af977f7776;hpb=93655ae0d1feb1cdd292c952d89a992f1de0c073

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index 2fb2f8f..6c55a3d 100644
--- a/irrlicht/scene.scm
+++ b/irrlicht/scene.scm
@@ -162,8 +162,13 @@
      scene-manager
      filename)))
 
+(define-method (get-root-scene-node (scene-manager <scene-manager>))
+  (let ((getRootSceneNode (get-irrlicht-proc "getRootSceneNode" scene-manager)))
+    (make <scene-node> #:irr-pointer (getRootSceneNode scene-manager))))
+
 (export <scene-manager> add-animated-mesh-scene-node! add-camera-scene-node!
-        add-camera-scene-node-fps! add-custom-scene-node! add-octree-scene-node! draw-all get-mesh)
+        add-camera-scene-node-fps! add-custom-scene-node! add-octree-scene-node! draw-all
+        get-root-scene-node get-mesh)
 
 
 ;; ISceneNode