summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/graphics/buffer.scm4
-rw-r--r--chickadee/graphics/shader.scm4
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 ...)