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