diff options
| -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 ...) |