X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvideo-driver.h;h=4512b9689d46182bcff08272258349f6fb40c437;hb=65527be1c7ad3f05ba651c25249fd8300f5f4fad;hp=5137ca47e9d74e92dfb05e67f173ee364c7ea1d2;hpb=fb9011bf9160be890e0a6b98fcff9ed95ae0bd77;p=guile-irrlicht.git diff --git a/src/video-driver.h b/src/video-driver.h index 5137ca4..4512b96 100644 --- a/src/video-driver.h +++ b/src/video-driver.h @@ -34,13 +34,41 @@ extern "C" { DECLARE_WRAPPED_TYPE (irr::video::IVideoDriver*, init_video_driver_type, video_driver_p, wrap_video_driver, unwrap_video_driver); + SCM + irr_video_beginScene (SCM wrapped_video_driver, + SCM rest); + + SCM + irr_video_drawVertexPrimitiveList (SCM wrapped_video_driver, + SCM vertices, + SCM indices, + SCM rest); + + SCM + irr_video_endScene (SCM wrapped_video_driver); + + SCM + irr_video_getFPS (SCM wrapped_video_driver); + SCM irr_video_getTexture (SCM wrapped_video_driver, SCM filename); + SCM + irr_video_setMaterial (SCM wrapped_video_driver, + SCM material); + + SCM + irr_video_setTransform (SCM wrapped_video_driver, + SCM state, + SCM mat); + SCM irr_getVideoDriver (SCM wrapped_obj); + irr::video::E_TRANSFORMATION_STATE + scm_to_transformation_state (SCM transformation_state); + } #endif