#include "rect.h"
#include "vertex3d.h"
#include "video-driver.h"
+#include "wrapped.h"
using namespace irr;
SCM video_data,
SCM source_rect)
{
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
// Source rect
core::rect<s32>* sourceRectAddress = 0;
for (int i = 0; i < vertex_count; i++)
{
video::S3DVertex* vertex =
- (video::S3DVertex*) scm_to_pointer (scm_list_ref (vertices, scm_from_int (i)));
+ (video::S3DVertex*) scm_to_irr_pointer (scm_list_ref (vertices, scm_from_int (i)));
s3d_vertices[i] = video::S3DVertex (vertex->Pos,
vertex->Normal,
vertex->Color,
}
// Draw vertices
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
driver->drawVertexPrimitiveList (&s3d_vertices[0],
vertex_count,
&c_indices[0],
SCM
IVideoDriver_endScene (SCM video_driver)
{
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
return scm_from_bool (driver->endScene ());
}
SCM
IVideoDriver_getFPS (SCM video_driver)
{
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
return scm_from_int32 (driver->getFPS ());
}
IVideoDriver_getTexture (SCM video_driver,
SCM filename)
{
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
video::ITexture* texture = driver->getTexture (scm_to_utf8_stringn (filename, NULL));
return scm_from_pointer ((void*) texture, NULL);
}
IVideoDriver_setMaterial (SCM video_driver,
SCM material)
{
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
- driver->setMaterial (*((video::SMaterial*) scm_to_pointer (material)));
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
+ driver->setMaterial (*((video::SMaterial*) scm_to_irr_pointer (material)));
return SCM_UNSPECIFIED;
}
SCM state,
SCM mat)
{
- video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
+ video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
driver->setTransform (scm_to_transformation_state (state),
scm_to_matrix4 (mat));
return SCM_UNSPECIFIED;