From 6726ec63b405a33dfb68e00c59a0c1210412d05a Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 17 May 2020 09:19:44 +0200
Subject: [PATCH] draw-vertex-primitive-list

---
 irrlicht.scm       |  1 +
 irrlicht/video.scm | 11 +++++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index e5c492d..0e468c2 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -41,6 +41,7 @@
                begin-scene
                create-device
                create-rotation-animator
+               draw-vertex-primitive-list
                drop!
                end-scene
                get-absolute-transformation
diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index 11c8db9..6c56f62 100644
--- a/irrlicht/video.scm
+++ b/irrlicht/video.scm
@@ -104,6 +104,13 @@
      video-data
      source-rect)))
 
+(define-method (draw-vertex-primitive-list (video-driver <video-driver>) vertices indices . rest)
+  (let-keywords rest #f
+        ((v-type 'standard)
+         (p-type 'triangles))
+    (let ((drawVertexPrimitiveList (get-irrlicht-proc "drawVertexPrimitiveList" video-driver)))
+      (drawVertexPrimitiveList video-driver vertices indices v-type p-type))))
+
 (define-method (end-scene (video-driver <video-driver>))
   ((get-irrlicht-proc "endScene" video-driver)
    video-driver))
@@ -131,8 +138,8 @@
   (let ((setTransform (get-irrlicht-proc "setTransform" video-driver)))
     (setTransform video-driver state mat)))
 
-(export <video-driver> begin-scene end-scene get-fps get-name get-texture set-material!
-        set-transform!)
+(export <video-driver> begin-scene draw-vertex-primitive-list end-scene get-fps get-name get-texture
+        set-material! set-transform!)
 
 
 ;; S3DVertex
-- 
2.39.5