- return wrap_mesh_scene_node (node);
- }
-
- SCM
- irr_scene_addCustomSceneNode (SCM wrapped_scene_manager,
- SCM proc_render,
- SCM proc_get_bounding_box,
- SCM proc_get_material_count,
- SCM proc_get_material,
- SCM rest)
- {
- irr::scene::ISceneManager* scene_manager = unwrap_scene_manager (wrapped_scene_manager);
-
- SCM parent = wrap_scene_node (scene_manager->getRootSceneNode ());
- SCM id = scm_from_int32 (-1);
- SCM position = scm_list_3 (scm_from_double (0),
- scm_from_double (0),
- scm_from_double (0));
- SCM rotation = scm_list_3 (scm_from_double (0),
- 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_c_bind_keyword_arguments ("add-custom-scene-node!", rest, (scm_t_keyword_arguments_flags)0,
- scm_from_utf8_keyword ("parent"), &parent,
- scm_from_utf8_keyword ("id"), &id,
- scm_from_utf8_keyword ("position"), &position,
- scm_from_utf8_keyword ("rotation"), &rotation,
- scm_from_utf8_keyword ("scale"), &scale,
- SCM_UNDEFINED);
-
- class CustomSceneNode : public irr::scene::ISceneNode
- {
- SCM scm_render;
- SCM scm_get_bounding_box;
- SCM scm_get_material_count;
- SCM scm_get_material;
-
- public:
- CustomSceneNode (irr::scene::ISceneNode* parent,
- irr::scene::ISceneManager* smgr,
- irr::s32 id,
- const irr::core::vector3df& position,
- const irr::core::vector3df& rotation,
- const irr::core::vector3df& scale,
- SCM render,
- SCM get_bounding_box,
- SCM get_material_count,
- SCM get_material)
- : irr::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 irr::core::aabbox3d<irr::f32>& getBoundingBox () const
- {
- SCM box = scm_call_0 (scm_get_bounding_box);
- return *(unwrap_box3d (box));
- }
-
- virtual irr::u32 getMaterialCount () const
- {
- return scm_to_uint32 (scm_call_0 (scm_get_material_count));
- }
-
- virtual irr::video::SMaterial& getMaterial (irr::u32 i)
- {
- SCM material = scm_call_1 (scm_get_material, scm_from_uint32 (i));
- return *(unwrap_material (material));
- }
- };
-
- CustomSceneNode* node =
- new CustomSceneNode (unwrap_scene_node (parent),
- 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 wrap_scene_node (node);
- }
-
- SCM
- irr_scene_addOctreeSceneNode (SCM wrapped_scene_manager,
- SCM wrapped_mesh,
- SCM rest)
- {
- 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_BOOL_F;
-
- scm_c_bind_keyword_arguments ("add-octree-scene-node!", rest, (scm_t_keyword_arguments_flags)0,
- scm_from_utf8_keyword ("parent"), &parent,
- scm_from_utf8_keyword ("id"), &id,
- scm_from_utf8_keyword ("minimal-polys-per-node"), &minimal_polys_per_node,
- scm_from_utf8_keyword ("also-add-if-mesh-pointer-zero"), &also_add_if_mesh_pointer_zero,
- SCM_UNDEFINED);
-
- irr::scene::ISceneManager* smgr = unwrap_scene_manager (wrapped_scene_manager);
- irr::scene::IMeshSceneNode* node;
- if (animated_mesh_p (wrapped_mesh))
- {
- node = smgr->addOctreeSceneNode (unwrap_animated_mesh (wrapped_mesh),
- 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),
- 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));
- }
- return wrap_mesh_scene_node (node);
- }
-
- SCM
- irr_scene_addSphereSceneNode (SCM wrapped_scene_manager,
- SCM rest)
- {
- SCM radius = scm_from_double (5.0);
- SCM poly_count = scm_from_int32 (16);
- SCM parent = SCM_UNDEFINED;
- SCM id = scm_from_int32 (-1);
- SCM position = scm_list_3 (scm_from_double (0),
- scm_from_double (0),
- scm_from_double (0));
- SCM rotation = scm_list_3 (scm_from_double (0),
- 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_c_bind_keyword_arguments ("add-sphere-scene-node!", rest, (scm_t_keyword_arguments_flags)0,
- scm_from_utf8_keyword ("radius"), &radius,
- scm_from_utf8_keyword ("poly-count"), &poly_count,
- scm_from_utf8_keyword ("parent"), &parent,
- scm_from_utf8_keyword ("id"), &id,
- scm_from_utf8_keyword ("position"), &position,
- scm_from_utf8_keyword ("rotation"), &rotation,
- scm_from_utf8_keyword ("scale"), &scale,
- SCM_UNDEFINED);
-
- irr::scene::ISceneManager* smgr = unwrap_scene_manager (wrapped_scene_manager);
- irr::scene::IMeshSceneNode* node =
- smgr->addSphereSceneNode (scm_to_double (radius),
- scm_to_int32 (poly_count),
- parent == SCM_UNDEFINED ? 0 : unwrap_scene_node (parent),
- scm_to_int32 (id),
- scm_to_vector3df (position),
- scm_to_vector3df (rotation),
- scm_to_vector3df (scale));
- return wrap_mesh_scene_node (node);
- }
-
- SCM
- irr_scene_createFlyCircleAnimator (SCM wrapped_scene_manager,
- SCM rest)
- {
- SCM center = scm_list_3 (scm_from_double (0),
- scm_from_double (0),
- scm_from_double (0));
- SCM radius = scm_from_double (100);
- SCM speed = scm_from_double (0.001);
- SCM direction = scm_list_3 (scm_from_double (0),
- scm_from_double (1),
- scm_from_double (0));
- SCM start_position = scm_from_double (0);
- SCM radius_ellipsoid = scm_from_double (0);
-
- scm_c_bind_keyword_arguments ("create-fly-circle-animator", rest, (scm_t_keyword_arguments_flags)0,
- scm_from_utf8_keyword ("center"), ¢er,
- scm_from_utf8_keyword ("radius"), &radius,
- scm_from_utf8_keyword ("speed"), &speed,
- scm_from_utf8_keyword ("direction"), &direction,
- scm_from_utf8_keyword ("start-position"), &start_position,
- scm_from_utf8_keyword ("radius-ellipsoid"), &radius_ellipsoid,
- SCM_UNDEFINED);
-
- irr::scene::ISceneManager* smgr = unwrap_scene_manager (wrapped_scene_manager);
- irr::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 wrap_scene_node_animator (anim);
- }