render: texture: Reverse top/bottom in anchor-texture.

* sly/render/texture.scm (anchor-texture): Reverse y coordinates between
  top and bottom anchors.

1 files 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)))))
 
 ;;;