From: Javier Sancho Date: Fri, 22 May 2020 06:47:05 +0000 (+0200) Subject: set-rotation! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=d2546de52a3f7402cff820ba9769f3fe258b8263;p=guile-irrlicht.git set-rotation! --- 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