- 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);
- }
-
- SCM
- vertex3d_position (SCM vertex) {
- irr::video::S3DVertex* s3dvertex = unwrap_vertex3d (vertex);
- return scm_from_vector3df (s3dvertex->Pos);
- }