diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-08-16 22:22:07 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-08-25 19:33:07 -0400 |
| commit | dabd7b0f1cade8cf9871454c59cd3ed882a7a2db (patch) | |
| tree | 68f77103da37264e4cb2c5859baecde8c7ef6893 | |
| parent | 151bd0d3db02e0c09702aa3f3f953a517fd9cb2e (diff) | |
Fix texture vertices in cube primitive.
* sly/shape.scm (make-cube): Fix texture vertices.
| -rw-r--r-- | sly/shape.scm | 64 |
1 files 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))))) '()))))) |