diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-05-01 17:55:46 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-05-01 17:55:46 -0400 |
| commit | dd7f80bbdc3a1a71497b34ba34f759047c9bd8d4 (patch) | |
| tree | d911ac835163879ee57bd89c6cf5700f76beb7d9 | |
| parent | 1e24294e6dc9d19ae3336229a66bc646018b23d3 (diff) | |
graphics: buffer: Remove keyword arguments from render-vertices.
| -rw-r--r-- | chickadee/graphics/buffer.scm | 4 | ||||
| -rw-r--r-- | 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 ...) |