Unwrap Irrlicht objects in C++ instead of Guile

[guile-irrlicht.git] / src / scene-manager.cpp

diff --git a/src/scene-manager.cpp b/src/scene-manager.cpp
index 427faf57c5e7fb0b9031086d2d2412e2fe5b8b65..f120955316230e1cc5fa58cf9515c4a3b3deb825 100644 (file)
--- a/src/scene-manager.cpp
+++ b/src/scene-manager.cpp
@@ -24,6 +24,7 @@
 #include "gsubr.h"
 #include "scene-manager.h"
 #include "vector3d.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -38,10 +39,10 @@ ISceneManager_addAnimatedMeshSceneNode (SCM scene_manager,
                                         SCM scale,
                                         SCM also_add_if_mesh_pointer_zero)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::IAnimatedMeshSceneNode* node =
-    smgr->addAnimatedMeshSceneNode ((scene::IAnimatedMesh*) scm_to_pointer (mesh),
-                                    (TParent) scm_to_pointer (parent),
+    smgr->addAnimatedMeshSceneNode ((scene::IAnimatedMesh*) scm_to_irr_pointer (mesh),
+                                    (TParent) scm_to_irr_pointer (parent),
                                     scm_to_int32 (id),
                                     scm_to_vector3df (position),
                                     scm_to_vector3df (rotation),
@@ -59,9 +60,9 @@ ISceneManager_addCameraSceneNode (SCM scene_manager,
                                   SCM id,
                                   SCM make_active)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::ICameraSceneNode* camera =
-    smgr->addCameraSceneNode ((TParent) scm_to_pointer (parent),
+    smgr->addCameraSceneNode ((TParent) scm_to_irr_pointer (parent),
                               scm_to_vector3df (position),
                               scm_to_vector3df (lookat),
                               scm_to_int32 (id),
@@ -99,13 +100,13 @@ ISceneManager_addCameraSceneNodeFPS (SCM scene_manager,
                                 scm_from_utf8_keyword ("make-active"), &make_active,
                                 SCM_UNDEFINED);
 
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::ICameraSceneNode* camera =
-    smgr->addCameraSceneNodeFPS ((TParent) scm_to_pointer (parent),
+    smgr->addCameraSceneNodeFPS ((TParent) scm_to_irr_pointer (parent),
                                  scm_to_double (rotate_speed),
                                  scm_to_double (move_speed),
                                  scm_to_int32 (id),
-                                 (SKeyMap*) scm_to_pointer (key_map_array),
+                                 (SKeyMap*) scm_to_irr_pointer (key_map_array),
                                  scm_to_int32 (key_map_size),
                                  scm_to_bool (no_vertical_movement),
                                  scm_to_double (jump_speed),
@@ -124,10 +125,10 @@ ISceneManager_addCubeSceneNode (SCM scene_manager,
                                 SCM rotation,
                                 SCM scale)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::IMeshSceneNode* node =
     smgr->addCubeSceneNode (scm_to_double (size),
-                            (TParent) scm_to_pointer (parent),
+                            (TParent) scm_to_irr_pointer (parent),
                             scm_to_int32 (id),
                             scm_to_vector3df (position),
                             scm_to_vector3df (rotation),
@@ -191,7 +192,7 @@ ISceneManager_addCustomSceneNode (SCM scene_manager,
     virtual const core::aabbox3d<f32>& getBoundingBox () const
     {
       SCM box = scm_call_0 (scm_get_bounding_box);
-      return *((core::aabbox3d<f32>*) scm_to_pointer (box));
+      return *((core::aabbox3d<f32>*) scm_to_irr_pointer (box));
     }
 
     virtual u32 getMaterialCount () const
@@ -202,13 +203,13 @@ ISceneManager_addCustomSceneNode (SCM scene_manager,
     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));
+      return *((video::SMaterial*) scm_to_irr_pointer (material));
     }
   };
 
   CustomSceneNode* node =
-    new CustomSceneNode ((TParent) scm_to_pointer (parent),
-                         (scene::ISceneManager*) scm_to_pointer (scene_manager),
+    new CustomSceneNode ((TParent) scm_to_irr_pointer (parent),
+                         (scene::ISceneManager*) scm_to_irr_pointer (scene_manager),
                          scm_to_int32 (id),
                          scm_to_vector3df (position),
                          scm_to_vector3df (rotation),
@@ -229,10 +230,10 @@ ISceneManager_addOctreeSceneNode (SCM scene_manager,
                                   SCM minimal_polys_per_node,
                                   SCM also_add_if_mesh_pointer_zero)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::IMeshSceneNode* node =
-    smgr->addOctreeSceneNode ((TMesh) scm_to_pointer (mesh),
-                              (TParent) scm_to_pointer (parent),
+    smgr->addOctreeSceneNode ((TMesh) scm_to_irr_pointer (mesh),
+                              (TParent) scm_to_irr_pointer (parent),
                               scm_to_int32 (id),
                               scm_to_int32 (minimal_polys_per_node),
                               scm_to_bool (also_add_if_mesh_pointer_zero));
@@ -250,11 +251,11 @@ ISceneManager_addSphereSceneNode (SCM scene_manager,
                                   SCM rotation,
                                   SCM scale)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::IMeshSceneNode* node =
     smgr->addSphereSceneNode (scm_to_double (radius),
                               scm_to_int32 (poly_count),
-                              (TParent) scm_to_pointer (parent),
+                              (TParent) scm_to_irr_pointer (parent),
                               scm_to_int32 (id),
                               scm_to_vector3df (position),
                               scm_to_vector3df (rotation),
@@ -271,7 +272,7 @@ ISceneManager_createFlyCircleAnimator (SCM scene_manager,
                                        SCM start_position,
                                        SCM radius_ellipsoid)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::ISceneNodeAnimator* anim =
     smgr->createFlyCircleAnimator (scm_to_vector3df (center),
                                    scm_to_double (radius),
@@ -290,7 +291,7 @@ ISceneManager_createFlyStraightAnimator (SCM scene_manager,
                                          SCM loop,
                                          SCM pingpong)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::ISceneNodeAnimator* anim =
     smgr->createFlyStraightAnimator (scm_to_vector3df (start_point),
                                      scm_to_vector3df (end_point),
@@ -304,7 +305,7 @@ SCM
 ISceneManager_createRotationAnimator (SCM scene_manager,
                                       SCM rotation_speed)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::ISceneNodeAnimator* anim =
     smgr->createRotationAnimator (scm_to_vector3df (rotation_speed));
   return scm_from_pointer ((void*) anim, NULL);
@@ -313,7 +314,7 @@ ISceneManager_createRotationAnimator (SCM scene_manager,
 SCM
 ISceneManager_drawAll (SCM scene_manager)
 {
-  ((scene::ISceneManager*) scm_to_pointer (scene_manager))->drawAll ();
+  ((scene::ISceneManager*) scm_to_irr_pointer (scene_manager))->drawAll ();
   return SCM_UNSPECIFIED;
 }
 
@@ -321,7 +322,7 @@ SCM
 ISceneManager_getMesh (SCM scene_manager,
                        SCM filename)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   scene::IAnimatedMesh* mesh = smgr->getMesh(scm_to_utf8_stringn (filename, NULL));
   return scm_from_pointer ((void*) mesh, NULL);
 }
@@ -329,7 +330,7 @@ ISceneManager_getMesh (SCM scene_manager,
 SCM
 ISceneManager_getRootSceneNode (SCM scene_manager)
 {
-  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
+  scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
   return scm_from_pointer ((void*) smgr->getRootSceneNode (), NULL);
 }