draw-vertex-primitive-list

[guile-irrlicht.git] / src / video-driver.cpp

diff --git a/src/video-driver.cpp b/src/video-driver.cpp
index aa63e5289e45d298007d83ad5337d09e1bb5d543..9c81120fb97825ad23f422146a0795569705a9bf 100644 (file)
--- a/src/video-driver.cpp
+++ b/src/video-driver.cpp
@@ -27,9 +27,11 @@
 #include "gui-environment.h"
 #include "material.h"
 #include "matrix4.h"
+#include "primitive-types.h"
 #include "rect.h"
 #include "scene-manager.h"
 #include "texture.h"
+#include "vertex3d.h"
 #include "video-driver.h"
 #include "wrapped.h"
 
@@ -40,13 +42,15 @@ extern "C" {
   {
     init_video_driver_type ();
     scm_c_define_gsubr ("begin-scene", 1, 0, 1, (scm_t_subr)irr_video_beginScene);
+    scm_c_define_gsubr ("draw-vertex-primitive-list", 3, 0, 1,
+                        (scm_t_subr)irr_video_drawVertexPrimitiveList);
     scm_c_define_gsubr ("end-scene", 1, 0, 0, (scm_t_subr)irr_video_endScene);
     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", "set-transform!", NULL);
+    scm_c_export ("begin-scene", "draw-vertex-primitive-list", "end-scene", "get-fps",
+                  "get-texture", "get-video-driver", "set-transform!", NULL);
   }
 
   DEFINE_WRAPPED_TYPE (irr::video::IVideoDriver*, "video-driver",
@@ -88,6 +92,55 @@ extern "C" {
                                               sourceRectAddress));
   }
 
+  SCM
+  irr_video_drawVertexPrimitiveList (SCM wrapped_video_driver,
+                                     SCM vertices,
+                                     SCM indices,
+                                     SCM rest)
+  {
+    SCM v_type = scm_from_utf8_symbol ("standard");
+    SCM p_type = scm_from_utf8_symbol ("triangles");
+
+    scm_c_bind_keyword_arguments ("draw-vertex-primitive-list", rest, (scm_t_keyword_arguments_flags)0,
+                                  scm_from_utf8_keyword ("vertex-type"), &v_type,
+                                  scm_from_utf8_keyword ("primitive-type"), &p_type,
+                                  SCM_UNDEFINED);
+
+    // Build vertex array
+    irr::u32 vertex_count = scm_to_uint32 (scm_length (vertices));
+    irr::video::S3DVertex s3d_vertices [vertex_count];
+    for (int i = 0; i < vertex_count; i++)
+      {
+        irr::video::S3DVertex* vertex = unwrap_vertex3d (scm_list_ref (vertices, scm_from_int (i)));
+        s3d_vertices[i] = irr::video::S3DVertex (vertex->Pos,
+                                                 vertex->Normal,
+                                                 vertex->Color,
+                                                 vertex->TCoords);
+      }
+
+    // Build index array
+    irr::u32 index_count = scm_to_uint32 (scm_length (indices));
+    SCM flat_indices = scm_apply_0 (scm_eval_string (scm_from_utf8_string ("append")),
+                                    indices);
+    int flat_length = scm_to_int (scm_length (flat_indices));
+    irr::u32 c_indices [flat_length];
+    for (int i = 0; i < flat_length; i++)
+      {
+        c_indices[i] = scm_to_uint32 (scm_list_ref (flat_indices, scm_from_int (i)));
+      }
+
+    // Draw vertices
+    irr::video::IVideoDriver* driver = unwrap_video_driver (wrapped_video_driver);
+    driver->drawVertexPrimitiveList (&s3d_vertices[0],
+                                     vertex_count,
+                                     &c_indices[0],
+                                     index_count,
+                                     scm_to_vertex_type (v_type),
+                                     scm_to_primitive_type (p_type),
+                                     irr::video::EIT_32BIT);
+    return SCM_UNSPECIFIED;
+  }
+
   SCM
   irr_video_endScene (SCM wrapped_video_driver)
   {