From: Javier Sancho Date: Sun, 17 May 2020 06:30:08 +0000 (+0200) Subject: add-animator! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=7e2dfbae22741ad2581e27c00fc587870a2be133;p=guile-irrlicht.git add-animator! --- diff --git a/irrlicht.scm b/irrlicht.scm index 345a5c7..11fcb96 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -30,6 +30,7 @@ #:use-module (irrlicht video) #:duplicates (merge-generics) #:re-export (add-animated-mesh-scene-node! + add-animator! add-camera-scene-node! add-camera-scene-node-fps! add-custom-scene-node! diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm index 45b2c9b..e084ccc 100644 --- a/irrlicht/scene.scm +++ b/irrlicht/scene.scm @@ -42,6 +42,13 @@ (export ) +;; ISceneNodeAnimator +(define-class ( ) + (irr-class #:init-value "ISceneNodeAnimator")) + +(export ) + + ;; ISceneManager (define-class () (irr-class #:init-value "ISceneManager")) @@ -181,6 +188,10 @@ (define-class () (irr-class #:init-value "ISceneNode")) +(define-method (add-animator! (node ) (animator )) + (let ((addAnimator (get-irrlicht-proc "addAnimator" node))) + (addAnimator node animator))) + (define-method (set-material-flag! (node ) flag new-value) ((get-irrlicht-proc "setMaterialFlag" node) node @@ -197,7 +208,7 @@ (let ((setPosition (get-irrlicht-proc "setPosition" node))) (setPosition node new-pos))) -(export set-material-flag! set-material-texture! set-position!) +(export add-animator! set-material-flag! set-material-texture! set-position!) ;; IAnimatedMeshSceneNode @@ -224,10 +235,3 @@ (irr-class #:init-value "IMeshSceneNode")) (export ) - - -;; ISceneNodeAnimator -(define-class ( ) - (irr-class #:init-value "ISceneNodeAnimator")) - -(export )