get-root-scene-node

diff --git a/irrlicht.scm b/irrlicht.scm
index 8f32501fce82ddf41add86df5f5c7d3dab73b529..7427cad2a6fdc619228742545083ba28b245e844 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -48,6 +48,7 @@
                get-mesh
                get-name
                get-position
+               get-root-scene-node
                get-scene-manager
                get-texture
                get-video-driver

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