- init_vertex3d_type ();
- DEFINE_GSUBR ("make-vertex3d", 4, 0, 0, make_vertex3d);
- DEFINE_GSUBR ("vertex3d-position", 1, 0, 0, vertex3d_position);
- }
-
- DEFINE_WRAPPED_TYPE (irr::video::S3DVertex*, "vertex3d",
- init_vertex3d_type, vertex3d_p,
- wrap_vertex3d, unwrap_vertex3d);
-
- SCM
- make_vertex3d (SCM position,
- SCM normal,
- SCM color,
- SCM tcoords)
- {
- irr::video::S3DVertex* vertex =
- new irr::video::S3DVertex (scm_to_vector3df (position),
- scm_to_vector3df (normal),
- scm_to_color (color),
- scm_to_vector2df (tcoords));
- return wrap_vertex3d (vertex);
+ DEFINE_GSUBR ("video_S3DVertex_make", 4, 0, 0, video_S3DVertex_make);
+ DEFINE_GSUBR ("video_S3DVertex_Pos", 1, 0, 0, video_S3DVertex_Pos);