From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 17 May 2020 05:53:10 +0000 (+0200)
Subject: get-root-scene-node
X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=commitdiff_plain;h=a880a7401ee591eaff7d1c32bf14c1af977f7776

get-root-scene-node
---

diff --git a/irrlicht.scm b/irrlicht.scm
index 8f32501..7427cad 100644
--- 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 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