From e5a5d5be4688e9194de1eab18f91a92f7903218e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 10 May 2021 08:02:23 -0400
Subject: graphics: model: Add support for mirrored repeat texture wrap mode.

---
 chickadee/graphics/model.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chickadee/graphics/model.scm b/chickadee/graphics/model.scm
index a337535..0d8947c 100644
--- a/chickadee/graphics/model.scm
+++ b/chickadee/graphics/model.scm
@@ -849,7 +849,7 @@
       (10497 'repeat)
       (33069 'clamp-to-border)
       (33071 'clamp-to-edge)
-      ;; TODO: Support mirrored repeat.
+      (33648 'mirrored-repeat)
       (_ 'repeat)))
   (define (parse-texture obj images samplers)
     (let ((image (vector-ref images (number-ref obj "source")))
-- 
cgit v1.2.3