DEFINE_GSUBR ("create-rotation-animator", 2, 0, 0, irr_scene_createRotationAnimator);
DEFINE_GSUBR ("get-mesh", 2, 0, 0, irr_scene_getMesh);
DEFINE_GSUBR ("get-root-scene-node", 1, 0, 0, irr_scene_getRootSceneNode);
- DEFINE_GSUBR ("get-scene-manager", 1, 0, 0, irr_getSceneManager);
}
DEFINE_WRAPPED_TYPE (irr::scene::ISceneManager*, "scene-manager",
SCM mesh,
SCM rest)
{
- SCM parent = scm_from_bool (0);
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
SCM position = scm_list_3 (scm_from_double (0),
scm_from_double (0),
SCM scale = scm_list_3 (scm_from_double (1),
scm_from_double (1),
scm_from_double (1));
- SCM also_add_if_mesh_pointer_zero = scm_from_bool (0);
+ SCM also_add_if_mesh_pointer_zero = SCM_BOOL_F;
scm_c_bind_keyword_arguments ("add-animated-mesh-scene-node!", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("parent"), &parent,
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),
+ parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_int32 (id),
scm_to_vector3df (position),
scm_to_vector3df (rotation),
irr_scene_addCameraSceneNode (SCM wrapped_scene_manager,
SCM rest)
{
- SCM parent = scm_from_bool (0);
+ SCM parent = SCM_UNDEFINED;
SCM position = scm_list_3 (scm_from_double (0),
scm_from_double (0),
scm_from_double (0));
scm_from_double (0),
scm_from_double (100));
SCM id = scm_from_int32 (-1);
- SCM make_active = scm_from_bool (1);
+ SCM make_active = SCM_BOOL_T;
scm_c_bind_keyword_arguments ("add-camera-scene-node!", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("parent"), &parent,
irr::scene::ISceneManager* scene_manager = unwrap_scene_manager (wrapped_scene_manager);
irr::scene::ICameraSceneNode* camera =
- scene_manager->addCameraSceneNode (scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
+ scene_manager->addCameraSceneNode (parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_vector3df (position),
scm_to_vector3df (lookat),
scm_to_int32 (id),
irr_scene_addCameraSceneNodeFPS (SCM wrapped_scene_manager,
SCM rest)
{
- SCM parent = scm_from_bool (0);
+ SCM parent = SCM_UNDEFINED;
SCM rotate_speed = scm_from_double (100);
SCM move_speed = scm_from_double (0.5);
SCM id = scm_from_int32 (-1);
- SCM key_map_array = scm_from_bool (0);
+ SCM key_map_array = SCM_UNDEFINED;
SCM key_map_size = scm_from_int32 (0);
- SCM no_vertical_movement = scm_from_bool (0);
+ SCM no_vertical_movement = SCM_BOOL_F;
SCM jump_speed = scm_from_double (0);
- SCM invert_mouse = scm_from_bool (0);
- SCM make_active = scm_from_bool (1);
+ SCM invert_mouse = SCM_BOOL_F;
+ SCM make_active = SCM_BOOL_T;
scm_c_bind_keyword_arguments ("add-camera-scene-node-fps!", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("parent"), &parent,
irr::scene::ISceneManager* scene_manager = unwrap_scene_manager (wrapped_scene_manager);
irr::scene::ICameraSceneNode* camera =
- scene_manager->addCameraSceneNodeFPS (scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
+ scene_manager->addCameraSceneNodeFPS (parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_double (rotate_speed),
scm_to_double (move_speed),
scm_to_int32 (id),
- scm_is_false (key_map_array) ? 0 : unwrap_keymap (key_map_array),
+ key_map_array == SCM_UNDEFINED ? 0 : unwrap_keymap (key_map_array),
scm_to_int32 (key_map_size),
scm_to_bool (no_vertical_movement),
scm_to_double (jump_speed),
SCM rest)
{
SCM size = scm_from_double (10);
- SCM parent = scm_from_bool (0);
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
SCM position = scm_list_3 (scm_from_double (0),
scm_from_double (0),
irr::scene::ISceneManager* smgr = unwrap_scene_manager (wrapped_scene_manager);
irr::scene::IMeshSceneNode* node =
smgr->addCubeSceneNode (scm_to_double (size),
- scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_int32 (id),
scm_to_vector3df (position),
scm_to_vector3df (rotation),
SCM wrapped_mesh,
SCM rest)
{
- SCM parent = scm_from_bool (0);
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
SCM minimal_polys_per_node = scm_from_int32 (256);
- SCM also_add_if_mesh_pointer_zero = scm_from_bool (0);
+ SCM also_add_if_mesh_pointer_zero = SCM_BOOL_F;
scm_c_bind_keyword_arguments ("add-octree-scene-node!", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("parent"), &parent,
if (animated_mesh_p (wrapped_mesh))
{
node = smgr->addOctreeSceneNode (unwrap_animated_mesh (wrapped_mesh),
- scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_int32 (id),
scm_to_int32 (minimal_polys_per_node),
scm_to_bool (also_add_if_mesh_pointer_zero));
else
{
node = smgr->addOctreeSceneNode (unwrap_mesh (wrapped_mesh),
- scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_int32 (id),
scm_to_int32 (minimal_polys_per_node),
scm_to_bool (also_add_if_mesh_pointer_zero));
{
SCM radius = scm_from_double (5.0);
SCM poly_count = scm_from_int32 (16);
- SCM parent = scm_from_bool (0);
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
SCM position = scm_list_3 (scm_from_double (0),
scm_from_double (0),
irr::scene::IMeshSceneNode* node =
smgr->addSphereSceneNode (scm_to_double (radius),
scm_to_int32 (poly_count),
- scm_is_false (parent) ? 0 : unwrap_scene_node (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
scm_to_int32 (id),
scm_to_vector3df (position),
scm_to_vector3df (rotation),
SCM time_for_way,
SCM rest)
{
- SCM loop = scm_from_bool (0);
- SCM pingpong = scm_from_bool (0);
+ SCM loop = SCM_BOOL_F;
+ SCM pingpong = SCM_BOOL_F;
scm_c_bind_keyword_arguments ("create-fly-straight-animator", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("loop"), &loop,
return wrap_scene_node (smgr->getRootSceneNode ());
}
- SCM
- irr_getSceneManager (SCM wrapped_obj)
- {
- irr::scene::ISceneManager* scene_manager;
- if (device_p (wrapped_obj))
- {
- scene_manager = unwrap_device (wrapped_obj)->getSceneManager ();
- }
- else
- {
- scm_error (scm_arg_type_key, NULL, "Cannot get scene manager from object: ~S",
- scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
- }
- return wrap_scene_manager (scene_manager);
- }
-
}