#include "matrix4.h"
#include "primitive-types.h"
#include "rect.h"
+#include "vertex3d.h"
#include "video-driver.h"
-
using namespace irr;
-
SCM
-video_IVideoDriver_beginScene (SCM video_driver,
- SCM back_buffer,
- SCM z_buffer,
- SCM color,
- SCM video_data,
- SCM source_rect)
+IVideoDriver_beginScene (SCM video_driver,
+ SCM back_buffer,
+ SCM z_buffer,
+ SCM color,
+ SCM video_data,
+ SCM source_rect)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
sourceRectAddress));
}
-
SCM
-video_IVideoDriver_drawVertexPrimitiveList (SCM video_driver,
- SCM vertices,
- SCM indices,
- SCM v_type,
- SCM p_type)
+IVideoDriver_drawVertexPrimitiveList (SCM video_driver,
+ SCM vertices,
+ SCM indices,
+ SCM v_type,
+ SCM p_type)
{
// Build vertex array
u32 vertex_count = scm_to_uint32 (scm_length (vertices));
return SCM_UNSPECIFIED;
}
-
SCM
-video_IVideoDriver_endScene (SCM video_driver)
+IVideoDriver_endScene (SCM video_driver)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
return scm_from_bool (driver->endScene ());
}
-
SCM
-video_IVideoDriver_getFPS (SCM video_driver)
+IVideoDriver_getFPS (SCM video_driver)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
return scm_from_int32 (driver->getFPS ());
}
-
SCM
-video_IVideoDriver_getTexture (SCM video_driver,
- SCM filename)
+IVideoDriver_getTexture (SCM video_driver,
+ SCM filename)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
video::ITexture* texture = driver->getTexture (scm_to_utf8_stringn (filename, NULL));
return scm_from_pointer ((void*) texture, NULL);
}
-
SCM
-video_IVideoDriver_setMaterial (SCM video_driver,
- SCM material)
+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)));
return SCM_UNSPECIFIED;
}
-
SCM
-video_IVideoDriver_setTransform (SCM video_driver,
- SCM state,
- SCM mat)
+IVideoDriver_setTransform (SCM video_driver,
+ SCM state,
+ SCM mat)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
driver->setTransform (scm_to_transformation_state (state),
}
-extern "C" {
-
- void
- init_video_driver (void)
- {
- DEFINE_GSUBR ("video_IVideoDriver_beginScene", 6, 0, 0, video_IVideoDriver_beginScene);
- DEFINE_GSUBR ("video_IVideoDriver_drawVertexPrimitiveList", 5, 0, 1,
- video_IVideoDriver_drawVertexPrimitiveList);
- DEFINE_GSUBR ("video_IVideoDriver_endScene", 1, 0, 0, video_IVideoDriver_endScene);
- DEFINE_GSUBR ("video_IVideoDriver_getFPS", 1, 0, 0, video_IVideoDriver_getFPS);
- DEFINE_GSUBR ("video_IVideoDriver_getTexture", 2, 0, 0, video_IVideoDriver_getTexture);
- DEFINE_GSUBR ("video_IVideoDriver_setMaterial", 2, 0, 0, video_IVideoDriver_setMaterial);
- DEFINE_GSUBR ("video_IVideoDriver_setTransform", 3, 0, 0, video_IVideoDriver_setTransform);
- }
-
+void
+init_video_driver (void)
+{
+ DEFINE_GSUBR ("IVideoDriver_beginScene", 6, 0, 0, IVideoDriver_beginScene);
+ DEFINE_GSUBR ("IVideoDriver_drawVertexPrimitiveList", 5, 0, 1,
+ IVideoDriver_drawVertexPrimitiveList);
+ DEFINE_GSUBR ("IVideoDriver_endScene", 1, 0, 0, IVideoDriver_endScene);
+ DEFINE_GSUBR ("IVideoDriver_getFPS", 1, 0, 0, IVideoDriver_getFPS);
+ DEFINE_GSUBR ("IVideoDriver_getTexture", 2, 0, 0, IVideoDriver_getTexture);
+ DEFINE_GSUBR ("IVideoDriver_setMaterial", 2, 0, 0, IVideoDriver_setMaterial);
+ DEFINE_GSUBR ("IVideoDriver_setTransform", 3, 0, 0, IVideoDriver_setTransform);
}
video::E_TRANSFORMATION_STATE