From 73b44ca69521499ebea600aa9dbe208aa4ecb8e9 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 2 May 2023 07:30:45 -0400 Subject: graphics: buffer: Remove keyword args from apply-vertex-attribute. --- chickadee/graphics/buffer.scm | 8 ++++---- 1 file 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)) -- cgit v1.2.3