From a880a7401ee591eaff7d1c32bf14c1af977f7776 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 17 May 2020 07:53:10 +0200
Subject: [PATCH] get-root-scene-node

---
 irrlicht.scm       | 1 +
 irrlicht/scene.scm | 7 ++++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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
-- 
2.39.5