(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)))
node
anim))
-(export <animated-mesh-scene-node> set-frame-loop! set-md2-animation!)
+(export <animated-mesh-scene-node> set-animation-speed! set-frame-loop! set-md2-animation!)
;; ICameraSceneNode