- SCM
- irr_scene_setAnimationSpeed (SCM wrapped_obj,
- SCM frames_per_second)
- {
-#define SET_ANIMATION_SPEED(OBJ) OBJ->setAnimationSpeed (scm_to_double (frames_per_second));
-
- if (animated_mesh_p (wrapped_obj))
- {
- SET_ANIMATION_SPEED (unwrap_animated_mesh (wrapped_obj));
- }
- else if (animated_mesh_scene_node_p (wrapped_obj))
- {
- SET_ANIMATION_SPEED (unwrap_animated_mesh_scene_node (wrapped_obj));
- }
- else
- {
- scm_error (scm_arg_type_key, NULL, "Cannot set animation speed to object: ~S",
- scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
- }
-
- return SCM_UNSPECIFIED;
- }
+SCM
+IAnimatedMesh_setAnimationSpeed (SCM animated_mesh,
+ SCM frames_per_second)
+{
+ ((scene::IAnimatedMesh*)scm_to_irr_pointer (animated_mesh))->
+ setAnimationSpeed (scm_to_double (frames_per_second));
+ return SCM_UNSPECIFIED;
+}