draw-vertex-primitive-list

diff --git a/irrlicht.scm b/irrlicht.scm
index e5c492d84b4890a5d422767e10cac23b7b2b939a..0e468c2957981dda7f6fa303cc9f6983154fef5d 100644 (file)
--- 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 11c8db919da57f4f214ff3c477dfcedff6c42274..6c56f62776c86290d16642b76e7e2c8b157b0b2a 100644 (file)
--- 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