From dabd7b0f1cade8cf9871454c59cd3ed882a7a2db Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 16 Aug 2014 22:22:07 -0400 Subject: Fix texture vertices in cube primitive. * sly/shape.scm (make-cube): Fix texture vertices. --- sly/shape.scm | 64 +++++++++++++++++++++++++++++------------------------------ 1 file changed, 32 insertions(+), 32 deletions(-) diff --git a/sly/shape.scm b/sly/shape.scm index 1526caf..8ffe185 100644 --- a/sly/shape.scm +++ b/sly/shape.scm @@ -83,36 +83,36 @@ (t1 (texture-t1 texture)) (s2 (texture-s2 texture)) (t2 (texture-t2 texture))) - `("texture" - ,(vector - ;; Front - (vector s1 t1) - (vector s2 t1) - (vector s2 t2) - (vector s1 t2) - ;; Back - (vector s1 t1) - (vector s2 t1) - (vector s2 t2) - (vector s1 t2) - ;; Top - (vector s1 t1) - (vector s2 t1) - (vector s2 t2) - (vector s1 t2) - ;; Bottom - (vector s1 t1) - (vector s2 t1) - (vector s2 t2) - (vector s1 t2) - ;; Left - (vector s1 t1) - (vector s2 t1) - (vector s2 t2) - (vector s1 t2) - ;; Right - (vector s1 t1) - (vector s2 t1) - (vector s2 t2) - (vector s1 t2)))) + `(("tex" + ,(vector + ;; Front + (vector s1 t1) + (vector s2 t1) + (vector s2 t2) + (vector s1 t2) + ;; Back + (vector s1 t1) + (vector s2 t1) + (vector s2 t2) + (vector s1 t2) + ;; Top + (vector s1 t1) + (vector s2 t1) + (vector s2 t2) + (vector s1 t2) + ;; Bottom + (vector s1 t1) + (vector s2 t1) + (vector s2 t2) + (vector s1 t2) + ;; Left + (vector s1 t1) + (vector s2 t1) + (vector s2 t2) + (vector s1 t2) + ;; Right + (vector s1 t1) + (vector s2 t1) + (vector s2 t2) + (vector s1 t2))))) '()))))) -- cgit v1.2.3