From 93655ae0d1feb1cdd292c952d89a992f1de0c073 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sat, 16 May 2020 16:55:11 +0200 Subject: [PATCH] add-custom-scene-node! --- irrlicht.scm | 1 + irrlicht/scene.scm | 17 ++++++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/irrlicht.scm b/irrlicht.scm index 87e029c..8f32501 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -32,6 +32,7 @@ #:re-export (add-animated-mesh-scene-node! add-camera-scene-node! add-camera-scene-node-fps! + add-custom-scene-node! add-file-archive! add-internal-point! add-octree-scene-node! diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm index 260bf9b..2fb2f8f 100644 --- a/irrlicht/scene.scm +++ b/irrlicht/scene.scm @@ -108,6 +108,21 @@ #:jump-speed jump-speed #:invert-mouse invert-mouse #:make-active make-active))))) +(define-method (add-custom-scene-node! (scene-manager ) proc-render + proc-get-bounding-box proc-get-material-count + proc-get-material . rest) + (let-keywords rest #f + ((parent (make )) + (id -1) + (position '(0 0 0)) + (rotation '(0 0 0)) + (scale '(1 1 1))) + (let ((addCustomSceneNode (get-irrlicht-proc "addCustomSceneNode" scene-manager parent))) + (make + #:irr-pointer + (addCustomSceneNode scene-manager proc-render proc-get-bounding-box proc-get-material-count + proc-get-material parent id position rotation scale))))) + (define-method (add-octree-scene-node! (scene-manager ) (mesh ) . rest) @@ -148,7 +163,7 @@ filename))) (export add-animated-mesh-scene-node! add-camera-scene-node! - add-camera-scene-node-fps! add-octree-scene-node! draw-all get-mesh) + add-camera-scene-node-fps! add-custom-scene-node! add-octree-scene-node! draw-all get-mesh) ;; ISceneNode -- 2.39.2