using namespace irr;
SCM
-video_S3DVertex_make (SCM position,
- SCM normal,
- SCM color,
- SCM tcoords)
+S3DVertex_make (SCM position,
+ SCM normal,
+ SCM color,
+ SCM tcoords)
{
video::S3DVertex* vertex =
new video::S3DVertex (scm_to_vector3df (position),
}
SCM
-video_S3DVertex_Pos (SCM vertex) {
+S3DVertex_Pos (SCM vertex) {
video::S3DVertex* s3dvertex = (video::S3DVertex*) scm_to_irr_pointer (vertex);
return scm_from_vector3df (s3dvertex->Pos);
}
void
init_vertex3d (void)
{
- DEFINE_GSUBR ("video_S3DVertex_make", 4, 0, 0, video_S3DVertex_make);
- DEFINE_GSUBR ("video_S3DVertex_Pos", 1, 0, 0, video_S3DVertex_Pos);
+ DEFINE_GSUBR ("S3DVertex_make", 4, 0, 0, S3DVertex_make);
+ DEFINE_GSUBR ("S3DVertex_Pos", 1, 0, 0, S3DVertex_Pos);
}
video::E_VERTEX_TYPE