get-root-scene-node

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

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index 2fb2f8ffb51ed6087c51a54d7f1982b6c46c8255..6c55a3d0cda9c2c7729a84484c216e851ed4d294 100644 (file)
--- 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