X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fanimated-mesh-scene-node.cpp;h=040b7cdba9f2bac04ce5549590af005049e6e22e;hb=5d5dfa18d1acb2c3fa05df26b285ff430c9aff89;hp=498a196529e513d62c2d8828a88fd57958063f9f;hpb=98052b04792129db97286fdd77ef3b0de8912286;p=guile-irrlicht.git diff --git a/src/animated-mesh-scene-node.cpp b/src/animated-mesh-scene-node.cpp index 498a196..040b7cd 100644 --- a/src/animated-mesh-scene-node.cpp +++ b/src/animated-mesh-scene-node.cpp @@ -24,42 +24,35 @@ #include "animated-mesh-md2.h" #include "animated-mesh-scene-node.h" #include "gsubr.h" - +#include "wrapped.h" using namespace irr; - SCM IAnimatedMeshSceneNode_setFrameLoop (SCM animated_mesh_scene_node, SCM begin, SCM end) { return scm_from_bool - (((scene::IAnimatedMeshSceneNode*)scm_to_pointer (animated_mesh_scene_node))-> + (((scene::IAnimatedMeshSceneNode*)scm_to_irr_pointer (animated_mesh_scene_node))-> setFrameLoop (scm_to_int32 (begin), scm_to_int32 (end))); } - SCM IAnimatedMeshSceneNode_setMD2Animation (SCM animated_mesh_scene_node, SCM anim) { return scm_from_bool - (((scene::IAnimatedMeshSceneNode*)scm_to_pointer (animated_mesh_scene_node))-> + (((scene::IAnimatedMeshSceneNode*)scm_to_irr_pointer (animated_mesh_scene_node))-> setMD2Animation (scm_to_md2_animation_type (anim))); } - -extern "C" { - - void - init_animated_mesh_scene_node (void) - { - DEFINE_GSUBR ("IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0, - IAnimatedMeshSceneNode_setFrameLoop); - DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0, - IAnimatedMeshSceneNode_setMD2Animation); - } - +void +init_animated_mesh_scene_node (void) +{ + DEFINE_GSUBR ("IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0, + IAnimatedMeshSceneNode_setFrameLoop); + DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0, + IAnimatedMeshSceneNode_setMD2Animation); }