X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fvideo-driver.cpp;h=aa63e5289e45d298007d83ad5337d09e1bb5d543;hp=ee80c369e767641caccb23b41e44b48c23e4e1d6;hb=5e5b0caed972e0b225199551aff09c399edb8d3c;hpb=d8ff74866c89933d74577d7887e47f013d515c69

diff --git a/src/video-driver.cpp b/src/video-driver.cpp
index ee80c36..aa63e52 100644
--- a/src/video-driver.cpp
+++ b/src/video-driver.cpp
@@ -25,6 +25,8 @@
 #include "color.h"
 #include "device.h"
 #include "gui-environment.h"
+#include "material.h"
+#include "matrix4.h"
 #include "rect.h"
 #include "scene-manager.h"
 #include "texture.h"
@@ -42,8 +44,9 @@ extern "C" {
     scm_c_define_gsubr ("get-fps", 1, 0, 0, (scm_t_subr)irr_video_getFPS);
     scm_c_define_gsubr ("get-texture", 2, 0, 0, (scm_t_subr)irr_video_getTexture);
     scm_c_define_gsubr ("get-video-driver", 1, 0, 0, (scm_t_subr)irr_getVideoDriver);
+    scm_c_define_gsubr ("set-transform!", 3, 0, 0, (scm_t_subr)irr_video_setTransform);
     scm_c_export ("begin-scene", "end-scene", "get-fps", "get-texture",
-                  "get-video-driver", NULL);
+                  "get-video-driver", "set-transform!", NULL);
   }
 
   DEFINE_WRAPPED_TYPE (irr::video::IVideoDriver*, "video-driver",
@@ -108,6 +111,26 @@ extern "C" {
     return wrap_texture (texture);
   }
 
+  SCM
+  irr_video_setMaterial (SCM wrapped_video_driver,
+                         SCM material)
+  {
+    irr::video::IVideoDriver* driver = unwrap_video_driver (wrapped_video_driver);
+    driver->setMaterial (*(unwrap_material (material)));
+    return SCM_UNSPECIFIED;
+  }
+
+  SCM
+  irr_video_setTransform (SCM wrapped_video_driver,
+                          SCM state,
+                          SCM mat)
+  {
+    irr::video::IVideoDriver* driver = unwrap_video_driver (wrapped_video_driver);
+    driver->setTransform (scm_to_transformation_state (state),
+                          scm_to_matrix4 (mat));
+    return SCM_UNSPECIFIED;
+  }
+
   SCM
   irr_getVideoDriver (SCM wrapped_obj)
   {
@@ -124,4 +147,43 @@ extern "C" {
     return wrap_video_driver (driver);
   }
 
+  irr::video::E_TRANSFORMATION_STATE
+  scm_to_transformation_state (SCM transformation_state)
+  {
+    char* state = scm_to_utf8_stringn (scm_symbol_to_string (transformation_state), NULL);
+    if (!strcmp (state, "view"))
+      {
+        return irr::video::ETS_VIEW;
+      }
+    else if (!strcmp (state, "world"))
+      {
+        return irr::video::ETS_WORLD;
+      }
+    else if (!strcmp (state, "projection"))
+      {
+        return irr::video::ETS_PROJECTION;
+      }
+    else if (!strcmp (state, "texture0"))
+      {
+        return irr::video::ETS_TEXTURE_0;
+      }
+    else if (!strcmp (state, "texture1"))
+      {
+        return irr::video::ETS_TEXTURE_1;
+      }
+    else if (!strcmp (state, "texture2"))
+      {
+        return irr::video::ETS_TEXTURE_2;
+      }
+    else if (!strcmp (state, "texture3"))
+      {
+        return irr::video::ETS_TEXTURE_3;
+      }
+    else
+      {
+        scm_error (scm_arg_type_key, NULL, "Wrong transformation state: ~S",
+                   scm_list_1 (transformation_state), scm_list_1 (transformation_state));
+      }
+  }
+
 }