diff options
Diffstat (limited to 'chickadee/graphics/buffer.scm')
| -rw-r--r-- | chickadee/graphics/buffer.scm | 8 |
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)) |