From a5170a38e87b8ba4d6043e180e95f92927c8e467 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 7 May 2021 08:56:30 -0400
Subject: model: Don't crash due to unsupported glTF texture wrap mode.

Just default to repeat for now.
---
 chickadee/graphics/model.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/chickadee/graphics/model.scm b/chickadee/graphics/model.scm
index 55374fe..ea4533f 100644
--- a/chickadee/graphics/model.scm
+++ b/chickadee/graphics/model.scm
@@ -861,9 +861,11 @@
   (define (texture-wrap n)
     (match n
       (10496 'clamp)
-      ((or #f 10497) 'repeat)
+      (10497 'repeat)
       (33069 'clamp-to-border)
-      (33071 'clamp-to-edge)))
+      (33071 'clamp-to-edge)
+      ;; TODO: Support mirrored repeat.
+      (_ 'repeat)))
   (define (parse-texture obj images samplers)
     (let ((image (vector-ref images (number-ref obj "source")))
           (sampler
-- 
cgit v1.2.3