From 7cd338637409559bea457ea43bbeab462121ba83 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sat, 11 Apr 2020 12:55:10 +0200 Subject: [PATCH] set-frame-loop! --- src/animated-mesh-scene-node.cpp | 19 +++++++++++++++---- src/animated-mesh-scene-node.h | 5 +++++ 2 files changed, 20 insertions(+), 4 deletions(-) diff --git a/src/animated-mesh-scene-node.cpp b/src/animated-mesh-scene-node.cpp index f19f0aa..27f3872 100644 --- a/src/animated-mesh-scene-node.cpp +++ b/src/animated-mesh-scene-node.cpp @@ -33,6 +33,7 @@ extern "C" { init_animated_mesh_scene_node (void) { init_animated_mesh_scene_node_type (); + DEFINE_GSUBR ("set-frame-loop!", 3, 0, 0, irr_scene_setFrameLoop); DEFINE_GSUBR ("set-md2-animation!", 2, 0, 0, irr_scene_setMD2Animation); } @@ -40,14 +41,24 @@ extern "C" { init_animated_mesh_scene_node_type, animated_mesh_scene_node_p, wrap_animated_mesh_scene_node, unwrap_animated_mesh_scene_node); + SCM + irr_scene_setFrameLoop (SCM wrapped_animated_mesh_scene_node, + SCM begin, + SCM end) + { + return scm_from_bool + (unwrap_animated_mesh_scene_node (wrapped_animated_mesh_scene_node)-> + setFrameLoop (scm_to_int32 (begin), + scm_to_int32 (end))); + } + SCM irr_scene_setMD2Animation (SCM wrapped_animated_mesh_scene_node, SCM anim) { - irr::scene::IAnimatedMeshSceneNode* node = - unwrap_animated_mesh_scene_node (wrapped_animated_mesh_scene_node); - bool result = node->setMD2Animation (scm_to_md2_animation_type (anim)); - return scm_from_bool (result); + return scm_from_bool + (unwrap_animated_mesh_scene_node (wrapped_animated_mesh_scene_node)-> + setMD2Animation (scm_to_md2_animation_type (anim))); } } diff --git a/src/animated-mesh-scene-node.h b/src/animated-mesh-scene-node.h index 04c484b..91fb4fc 100644 --- a/src/animated-mesh-scene-node.h +++ b/src/animated-mesh-scene-node.h @@ -35,6 +35,11 @@ extern "C" { animated_mesh_scene_node_p, wrap_animated_mesh_scene_node, unwrap_animated_mesh_scene_node); + SCM + irr_scene_setFrameLoop (SCM wrapped_animated_mesh_scene_node, + SCM begin, + SCM end); + SCM irr_scene_setMD2Animation (SCM wrapped_animated_mesh_scene_node, SCM anim); -- 2.39.2