(let ((setPosition (get-irrlicht-proc "setPosition" node)))
(setPosition node new-pos)))
+(define-method (set-rotation! (node <scene-node>) rotation)
+ (let ((setRotation (get-irrlicht-proc "setRotation" node)))
+ (setRotation node rotation)))
+
+(define-method (set-scale! (node <scene-node>) scale)
+ (let ((setScale (get-irrlicht-proc "setScale" node)))
+ (setScale node scale)))
+
(export <scene-node> add-animator! get-absolute-transformation set-material-flag!
- set-material-texture! set-position!)
+ set-material-texture! set-position! set-rotation! set-scale!)
;; IAnimatedMeshSceneNode
(define-class <animated-mesh-scene-node> (<scene-node>)
(irr-class #:init-value "IAnimatedMeshSceneNode"))
+(define-method (set-animation-speed! (node <animated-mesh-scene-node>) frames-per-second)
+ (let ((setAnimationSpeed (get-irrlicht-proc "setAnimationSpeed" node)))
+ (setAnimationSpeed node frames-per-second)))
+
+(define-method (set-frame-loop! (node <animated-mesh-scene-node>) begin end)
+ (let ((setFrameLoop (get-irrlicht-proc "setFrameLoop" node)))
+ (setFrameLoop node begin end)))
+
(define-method (set-md2-animation! (node <animated-mesh-scene-node>) anim)
((get-irrlicht-proc "setMD2Animation" node)
node
anim))
-(export <animated-mesh-scene-node> set-md2-animation!)
+(export <animated-mesh-scene-node> set-animation-speed! set-frame-loop! set-md2-animation!)
;; ICameraSceneNode