From dd7f80bbdc3a1a71497b34ba34f759047c9bd8d4 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 1 May 2023 17:55:46 -0400
Subject: graphics: buffer: Remove keyword arguments from render-vertices.

---
 chickadee/graphics/buffer.scm | 4 ++--
 chickadee/graphics/shader.scm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/chickadee/graphics/buffer.scm b/chickadee/graphics/buffer.scm
index dc3353b..4ecfe7d 100644
--- a/chickadee/graphics/buffer.scm
+++ b/chickadee/graphics/buffer.scm
@@ -528,7 +528,7 @@ argument may be overridden.  The following values are supported:
     ('triangle-strip (begin-mode triangle-strip))
     ('triangle-fan (begin-mode triangle-fan))))
 
-(define* (render-vertices array #:key count (offset 0))
+(define (render-vertices array count offset)
   (with-graphics-state! ((g:vertex-array array))
     (let ((indices (vertex-array-indices array)))
       (if indices
@@ -546,7 +546,7 @@ argument may be overridden.  The following values are supported:
                                (assv-ref (vertex-array-attributes array)
                                          0))))))))
 
-(define* (render-vertices/instanced array instances #:key count (offset 0))
+(define (render-vertices/instanced array instances count offset)
   (with-graphics-state! ((g:vertex-array array))
     (let ((indices (vertex-array-indices array)))
       (if indices
diff --git a/chickadee/graphics/shader.scm b/chickadee/graphics/shader.scm
index f5d6c49..d1ba7ce 100644
--- a/chickadee/graphics/shader.scm
+++ b/chickadee/graphics/shader.scm
@@ -887,7 +887,7 @@ shader program."
 
 (define-syntax-rule (shader-apply* shader vertex-array offset count . uniforms)
   (shader-apply** shader vertex-array uniforms
-                  (render-vertices vertex-array #:count count #:offset offset)))
+                  (render-vertices vertex-array count offset)))
 
 (define-syntax-rule (shader-apply shader vertex-array uniforms ...)
   (shader-apply* shader vertex-array 0 #f uniforms ...))
@@ -895,7 +895,7 @@ shader program."
 (define-syntax-rule (shader-apply/instanced* shader vertex-array offset count instances .
                                              uniforms)
   (shader-apply** shader vertex-array uniforms
-                  (render-vertices/instanced vertex-array instances #:count count #:offset offset)))
+                  (render-vertices/instanced vertex-array instances count offset)))
 
 (define-syntax-rule (shader-apply/instanced shader vertex-array instances
                                             uniforms ...)
-- 
cgit v1.2.3