+(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))))
+