summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))