X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fscene-manager.cpp;h=c1c8e270611c294a92fe6cc8822cbe0f58e9369b;hb=19663b6c5766b06c73148fdf803ce3555052a23e;hp=5e81de7e0b35197c81e56e12ebe2ddebc6918c7f;hpb=2806f03eafc48ec9ef02a3dc2d74133eaf11ccc1;p=guile-irrlicht.git

diff --git a/src/scene-manager.cpp b/src/scene-manager.cpp
index 5e81de7..c1c8e27 100644
--- a/src/scene-manager.cpp
+++ b/src/scene-manager.cpp
@@ -21,58 +21,348 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-
-#include "animated-mesh.h"
-#include "animated-mesh-scene-node.h"
+#include "gsubr.h"
 #include "scene-manager.h"
-#include "scene-node.h"
 #include "vector3d.h"
-#include "wrapped.h"
 
-extern "C" {
 
-  void
-  init_scene_manager (void)
-  {
-    init_scene_manager_type ();
-    scm_c_define_gsubr ("add-animated-mesh-scene-node", 8, 0, 0,
-                        (scm_t_subr)irr_scene_addAnimatedMeshSceneNode);
-    scm_c_define_gsubr ("get-mesh", 2, 0, 0, (scm_t_subr)irr_scene_getMesh);
-  }
+using namespace irr;
+
+
+template <typename TParent>
+SCM
+scene_ISceneManager_addAnimatedMeshSceneNode (SCM scene_manager,
+                                              SCM mesh,
+                                              SCM parent,
+                                              SCM id,
+                                              SCM position,
+                                              SCM rotation,
+                                              SCM scale,
+                                              SCM also_add_if_mesh_pointer_zero)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::IAnimatedMeshSceneNode* node =
+    smgr->addAnimatedMeshSceneNode ((scene::IAnimatedMesh*) scm_to_pointer (mesh),
+                                    (TParent) scm_to_pointer (parent),
+                                    scm_to_int32 (id),
+                                    scm_to_vector3df (position),
+                                    scm_to_vector3df (rotation),
+                                    scm_to_vector3df (scale),
+                                    scm_to_bool (also_add_if_mesh_pointer_zero));
+  return scm_from_pointer ((void*) node, NULL);
+}
+
+
+template <typename TParent>
+SCM
+scene_ISceneManager_addCameraSceneNode (SCM scene_manager,
+                                        SCM parent,
+                                        SCM position,
+                                        SCM lookat,
+                                        SCM id,
+                                        SCM make_active)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ICameraSceneNode* camera =
+    smgr->addCameraSceneNode ((TParent) scm_to_pointer (parent),
+                              scm_to_vector3df (position),
+                              scm_to_vector3df (lookat),
+                              scm_to_int32 (id),
+                              scm_to_bool (make_active));
+  return scm_from_pointer ((void*) camera, NULL);
+}
+
+
+template <typename TParent>
+SCM
+scene_ISceneManager_addCameraSceneNodeFPS (SCM scene_manager,
+                                           SCM parent,
+                                           SCM rotate_speed,
+                                           SCM move_speed,
+                                           SCM id,
+                                           SCM key_map_array,
+                                           SCM key_map_size,
+                                           SCM no_vertical_movement,
+                                           SCM jump_speed,
+                                           SCM invert_mouse,
+                                           SCM make_active)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ICameraSceneNode* camera =
+    smgr->addCameraSceneNodeFPS ((TParent) scm_to_pointer (parent),
+                                 scm_to_double (rotate_speed),
+                                 scm_to_double (move_speed),
+                                 scm_to_int32 (id),
+                                 (SKeyMap*) scm_to_pointer (key_map_array),
+                                 scm_to_int32 (key_map_size),
+                                 scm_to_bool (no_vertical_movement),
+                                 scm_to_double (jump_speed),
+                                 scm_to_bool (invert_mouse),
+                                 scm_to_bool (make_active));
+  return scm_from_pointer ((void*) camera, NULL);
+}
 
-  DEFINE_WRAPPED_TYPE (irr::scene::ISceneManager*, "scene-manager",
-                       init_scene_manager_type, scene_manager_p,
-                       wrap_scene_manager, unwrap_scene_manager);
 
-  SCM
-  irr_scene_addAnimatedMeshSceneNode (SCM wrapped_scene_manager,
-                                      SCM mesh,
+template <typename TParent>
+SCM
+scene_ISceneManager_addCubeSceneNode (SCM scene_manager,
+                                      SCM size,
                                       SCM parent,
                                       SCM id,
                                       SCM position,
                                       SCM rotation,
-                                      SCM scale,
-                                      SCM alsoAddIfMeshPointerZero)
+                                      SCM scale)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::IMeshSceneNode* node =
+    smgr->addCubeSceneNode (scm_to_double (size),
+                            (TParent) scm_to_pointer (parent),
+                            scm_to_int32 (id),
+                            scm_to_vector3df (position),
+                            scm_to_vector3df (rotation),
+                            scm_to_vector3df (scale));
+  return scm_from_pointer ((void*) node, NULL);
+}
+
+
+template <typename TParent>
+SCM
+scene_ISceneManager_addCustomSceneNode (SCM scene_manager,
+                                        SCM proc_render,
+                                        SCM proc_get_bounding_box,
+                                        SCM proc_get_material_count,
+                                        SCM proc_get_material,
+                                        SCM parent,
+                                        SCM id,
+                                        SCM position,
+                                        SCM rotation,
+                                        SCM scale)
+{
+  class CustomSceneNode : public scene::ISceneNode
   {
-    irr::scene::ISceneManager* smgr = unwrap_scene_manager (wrapped_scene_manager);
-    irr::scene::IAnimatedMeshSceneNode* node =
-      smgr->addAnimatedMeshSceneNode (unwrap_animated_mesh (mesh),
-                                      scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
-                                      scm_to_int32 (id),
-                                      scm_to_vector3df (position),
-                                      scm_to_vector3df (rotation),
-                                      scm_to_vector3df (scale),
-                                      scm_to_bool (alsoAddIfMeshPointerZero));
-    return wrap_animated_mesh_scene_node (node);
-  }
+    SCM scm_render;
+    SCM scm_get_bounding_box;
+    SCM scm_get_material_count;
+    SCM scm_get_material;
+
+  public:
+    CustomSceneNode (scene::ISceneNode* parent,
+                     scene::ISceneManager* smgr,
+                     s32 id,
+                     const core::vector3df& position,
+                     const core::vector3df& rotation,
+                     const core::vector3df& scale,
+                     SCM render,
+                     SCM get_bounding_box,
+                     SCM get_material_count,
+                     SCM get_material)
+      : scene::ISceneNode (parent, smgr, id, position, rotation, scale)
+    {
+      scm_render = render;
+      scm_get_bounding_box = get_bounding_box;
+      scm_get_material_count = get_material_count;
+      scm_get_material = get_material;
+    }
+
+    virtual void OnRegisterSceneNode ()
+    {
+      if (IsVisible)
+        {
+          SceneManager->registerNodeForRendering (this);
+        }
+      ISceneNode::OnRegisterSceneNode ();
+    }
+
+    virtual void render ()
+    {
+      scm_call_0 (scm_render);
+    }
+
+    virtual const core::aabbox3d<f32>& getBoundingBox () const
+    {
+      SCM box = scm_call_0 (scm_get_bounding_box);
+      return *((core::aabbox3d<f32>*) scm_to_pointer (box));
+    }
+
+    virtual u32 getMaterialCount () const
+    {
+      return scm_to_uint32 (scm_call_0 (scm_get_material_count));
+    }
+
+    virtual video::SMaterial& getMaterial (u32 i)
+    {
+      SCM material = scm_call_1 (scm_get_material, scm_from_uint32 (i));
+      return *((video::SMaterial*) scm_to_pointer (material));
+    }
+  };
+
+  CustomSceneNode* node =
+    new CustomSceneNode ((TParent) scm_to_pointer (parent),
+                         (scene::ISceneManager*) scm_to_pointer (scene_manager),
+                         scm_to_int32 (id),
+                         scm_to_vector3df (position),
+                         scm_to_vector3df (rotation),
+                         scm_to_vector3df (scale),
+                         proc_render,
+                         proc_get_bounding_box,
+                         proc_get_material_count,
+                         proc_get_material);
+  return scm_from_pointer ((void*) node, NULL);
+}
+
 
-  SCM
-  irr_scene_getMesh (SCM wrapped_scene_manager,
-                     SCM filename)
+template <typename TParent, typename TMesh>
+SCM
+scene_ISceneManager_addOctreeSceneNode (SCM scene_manager,
+                                        SCM mesh,
+                                        SCM parent,
+                                        SCM id,
+                                        SCM minimal_polys_per_node,
+                                        SCM also_add_if_mesh_pointer_zero)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::IMeshSceneNode* node =
+    smgr->addOctreeSceneNode ((TMesh) scm_to_pointer (mesh),
+                              (TParent) scm_to_pointer (parent),
+                              scm_to_int32 (id),
+                              scm_to_int32 (minimal_polys_per_node),
+                              scm_to_bool (also_add_if_mesh_pointer_zero));
+  return scm_from_pointer ((void*) node, NULL);
+}
+
+
+template <typename TParent>
+SCM
+scene_ISceneManager_addSphereSceneNode (SCM scene_manager,
+                                        SCM radius,
+                                        SCM poly_count,
+                                        SCM parent,
+                                        SCM id,
+                                        SCM position,
+                                        SCM rotation,
+                                        SCM scale)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::IMeshSceneNode* node =
+    smgr->addSphereSceneNode (scm_to_double (radius),
+                              scm_to_int32 (poly_count),
+                              (TParent) scm_to_pointer (parent),
+                              scm_to_int32 (id),
+                              scm_to_vector3df (position),
+                              scm_to_vector3df (rotation),
+                              scm_to_vector3df (scale));
+  return scm_from_pointer ((void*) node, NULL);
+}
+
+
+SCM
+scene_ISceneManager_createFlyCircleAnimator (SCM scene_manager,
+                                             SCM center,
+                                             SCM radius,
+                                             SCM speed,
+                                             SCM direction,
+                                             SCM start_position,
+                                             SCM radius_ellipsoid)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneNodeAnimator* anim =
+    smgr->createFlyCircleAnimator (scm_to_vector3df (center),
+                                   scm_to_double (radius),
+                                   scm_to_double (speed),
+                                   scm_to_vector3df (direction),
+                                   scm_to_double (start_position),
+                                   scm_to_double (radius_ellipsoid));
+  return scm_from_pointer ((void*) anim, NULL);
+}
+
+
+SCM
+scene_ISceneManager_createFlyStraightAnimator (SCM scene_manager,
+                                               SCM start_point,
+                                               SCM end_point,
+                                               SCM time_for_way,
+                                               SCM loop,
+                                               SCM pingpong)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneNodeAnimator* anim =
+    smgr->createFlyStraightAnimator (scm_to_vector3df (start_point),
+                                     scm_to_vector3df (end_point),
+                                     scm_to_uint32 (time_for_way),
+                                     scm_to_bool (loop),
+                                     scm_to_bool (pingpong));
+  return scm_from_pointer ((void*) anim, NULL);
+}
+
+
+SCM
+scene_ISceneManager_createRotationAnimator (SCM scene_manager,
+                                            SCM rotation_speed)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneNodeAnimator* anim =
+    smgr->createRotationAnimator (scm_to_vector3df (rotation_speed));
+  return scm_from_pointer ((void*) anim, NULL);
+}
+
+
+SCM
+scene_ISceneManager_drawAll (SCM scene_manager)
+{
+  ((scene::ISceneManager*) scm_to_pointer (scene_manager))->drawAll ();
+  return SCM_UNSPECIFIED;
+}
+
+
+SCM
+scene_ISceneManager_getMesh (SCM scene_manager,
+                             SCM filename)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::IAnimatedMesh* mesh = smgr->getMesh(scm_to_utf8_stringn (filename, NULL));
+  return scm_from_pointer ((void*) mesh, NULL);
+}
+
+
+SCM
+scene_ISceneManager_getRootSceneNode (SCM scene_manager)
+{
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  return scm_from_pointer ((void*) smgr->getRootSceneNode (), NULL);
+}
+
+
+extern "C" {
+
+  void
+  init_scene_manager (void)
   {
-    irr::scene::ISceneManager* smgr = unwrap_scene_manager (wrapped_scene_manager);
-    irr::scene::IAnimatedMesh* mesh = smgr->getMesh(scm_to_utf8_stringn (filename, NULL));
-    return wrap_animated_mesh (mesh);
+    DEFINE_GSUBR ("scene_ISceneManager_addAnimatedMeshSceneNode_ISceneNode", 8, 0, 0,
+                  scene_ISceneManager_addAnimatedMeshSceneNode<scene::ISceneNode*>);
+    DEFINE_GSUBR ("scene_ISceneManager_addCameraSceneNode_ISceneNode", 6, 0, 0,
+                  scene_ISceneManager_addCameraSceneNode<scene::ISceneNode*>);
+    DEFINE_GSUBR ("scene_ISceneManager_addCameraSceneNodeFPS_ISceneNode", 11, 0, 0,
+                  scene_ISceneManager_addCameraSceneNodeFPS<scene::ISceneNode*>);
+    DEFINE_GSUBR ("scene_ISceneManager_addCubeSceneNode_ISceneNode", 7, 0, 0,
+                  scene_ISceneManager_addCubeSceneNode<scene::ISceneNode*>);
+    DEFINE_GSUBR ("scene_ISceneManager_addCustomSceneNode_ISceneNode", 10, 0, 0,
+                  scene_ISceneManager_addCustomSceneNode<scene::ISceneNode*>);
+    DEFINE_GSUBR ("scene_ISceneManager_addOctreeSceneNode_ISceneNode_IAnimatedMesh", 6, 0, 0,
+                  (scene_ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IAnimatedMesh*>));
+    DEFINE_GSUBR ("scene_ISceneManager_addOctreeSceneNode_ISceneNode_IMesh", 6, 0, 0,
+                  (scene_ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IMesh*>));
+    DEFINE_GSUBR ("scene_ISceneManager_addSphereSceneNode_ISceneNode", 8, 0, 0,
+                  scene_ISceneManager_addSphereSceneNode<scene::ISceneNode*>);
+    DEFINE_GSUBR ("scene_ISceneManager_createFlyCircleAnimator", 7, 0, 0,
+                  scene_ISceneManager_createFlyCircleAnimator);
+    DEFINE_GSUBR ("scene_ISceneManager_createFlyStraightAnimator", 6, 0, 0,
+                  scene_ISceneManager_createFlyStraightAnimator);
+    DEFINE_GSUBR ("scene_ISceneManager_createRotationAnimator", 2, 0, 0,
+                  scene_ISceneManager_createRotationAnimator);
+    DEFINE_GSUBR ("scene_ISceneManager_drawAll", 1, 0, 0, scene_ISceneManager_drawAll);
+    DEFINE_GSUBR ("scene_ISceneManager_getMesh", 2, 0, 0, scene_ISceneManager_getMesh);
+    DEFINE_GSUBR ("scene_ISceneManager_getRootSceneNode", 1, 0, 0,
+                  scene_ISceneManager_getRootSceneNode);
   }
 
 }