+ 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;
+ }
+