diff options
| -rw-r--r-- | chickadee/graphics/model.scm | 6 |
1 files 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 |