summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-05-02 07:30:45 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-05-02 07:30:45 -0400
commit73b44ca69521499ebea600aa9dbe208aa4ecb8e9 (patch)
treea41d23a67d00a05358c182a9aea67be46b3d26c3
parentfdd4064db9a5632cb112622d84c0a143beed5fe8 (diff)
graphics: buffer: Remove keyword args from apply-vertex-attribute.
-rw-r--r--chickadee/graphics/buffer.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/chickadee/graphics/buffer.scm b/chickadee/graphics/buffer.scm
index 315d988..fff1a88 100644
--- a/chickadee/graphics/buffer.scm
+++ b/chickadee/graphics/buffer.scm
@@ -421,7 +421,7 @@ element is used for 2 instances, and so on."
((float) (data-type float))
((double) (data-type double))))
-(define* (apply-vertex-attribute vertex-attribute #:optional attribute-index)
+(define (apply-vertex-attribute vertex-attribute attribute-index)
(with-graphics-state! ((g:buffer (vertex-attribute->buffer vertex-attribute)))
;; If there is no attribute-index, we assume this is being bound for
;; use as an index buffer.
@@ -511,7 +511,7 @@ argument may be overridden. The following values are supported:
((index . vertex-attribute)
(apply-vertex-attribute vertex-attribute index)))
attributes)
- (when indices (apply-vertex-attribute indices)))
+ (when indices (apply-vertex-attribute indices #f)))
;; Restore the old array. Is this needed?
;; (graphics-engine-commit!)
array))
@@ -531,7 +531,7 @@ argument may be overridden. The following values are supported:
(let ((indices (vertex-array-indices array)))
(if indices
(begin
- (apply-vertex-attribute indices)
+ (apply-vertex-attribute indices #f)
(gl-draw-elements (vertex-array-mode-gl array)
(or count
(vertex-attribute-length indices))
@@ -549,7 +549,7 @@ argument may be overridden. The following values are supported:
(let ((indices (vertex-array-indices array)))
(if indices
(begin
- (apply-vertex-attribute indices)
+ (apply-vertex-attribute indices #f)
(gl-draw-elements-instanced (vertex-array-mode-gl array)
(or count
(vertex-attribute-length indices))