From 6df77db1f65ba4f844a378c512634828b12d78a8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 30 Nov 2014 17:55:03 -0500
Subject: render: texture: Reverse top/bottom in anchor-texture.

* sly/render/texture.scm (anchor-texture): Reverse y coordinates between
  top and bottom anchors.
---
 sly/render/texture.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/sly/render/texture.scm b/sly/render/texture.scm
index b2b747e..a42bb05 100644
--- a/sly/render/texture.scm
+++ b/sly/render/texture.scm
@@ -178,17 +178,17 @@ vector to be returned."
        (vector2 (/ w 2)
                 (/ h 2)))
       ('top-left
-       (vector2 0 0))
+       (vector2 0 h))
       ('top-right
-       (vector2 w 0))
+       (vector2 w h))
       ('bottom-left
-       (vector2 0 h))
+       (vector2 0 0))
       ('bottom-right
-       (vector2 w h))
+       (vector2 w 0))
       ('top-center
-       (vector2 (/ w 2) 0))
-      ('bottom-center
        (vector2 (/ w 2) h))
+      ('bottom-center
+       (vector2 (/ w 2) 0))
       (_ (error "Invalid anchor type: " anchor)))))
 
 ;;;
-- 
cgit v1.2.3