From d2546de52a3f7402cff820ba9769f3fe258b8263 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Fri, 22 May 2020 08:47:05 +0200 Subject: [PATCH] set-rotation! --- irrlicht.scm | 1 + irrlicht/scene.scm | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/irrlicht.scm b/irrlicht.scm index e566f66..1c34cc6 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -102,6 +102,7 @@ set-material-texture! set-md2-animation! set-position! + set-rotation! set-scale! set-transform! set-visible! diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm index bfff47d..910ad53 100644 --- a/irrlicht/scene.scm +++ b/irrlicht/scene.scm @@ -239,12 +239,16 @@ (let ((setPosition (get-irrlicht-proc "setPosition" node))) (setPosition node new-pos))) +(define-method (set-rotation! (node ) rotation) + (let ((setRotation (get-irrlicht-proc "setRotation" node))) + (setRotation node rotation))) + (define-method (set-scale! (node ) scale) (let ((setScale (get-irrlicht-proc "setScale" node))) (setScale node scale))) (export add-animator! get-absolute-transformation set-material-flag! - set-material-texture! set-position! set-scale!) + set-material-texture! set-position! set-rotation! set-scale!) ;; IAnimatedMeshSceneNode -- 2.39.5