(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
using namespace irr;
+SCM
+IAnimatedMeshSceneNode_setAnimationSpeed (SCM animated_mesh_scene_node,
+ SCM frames_per_second)
+{
+ scene::IAnimatedMeshSceneNode* node =
+ (scene::IAnimatedMeshSceneNode*) scm_to_irr_pointer (animated_mesh_scene_node);
+ node->setAnimationSpeed (scm_to_double (frames_per_second));
+ return SCM_UNSPECIFIED;
+}
+
SCM
IAnimatedMeshSceneNode_setFrameLoop (SCM animated_mesh_scene_node,
SCM begin,
void
init_animated_mesh_scene_node (void)
{
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setAnimationSpeed", 2, 0, 0,
+ IAnimatedMeshSceneNode_setAnimationSpeed);
DEFINE_GSUBR ("IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0,
IAnimatedMeshSceneNode_setFrameLoop);
DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0,