summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-16 10:31:14 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-16 10:47:04 -0500
commitfd04e2133e098359e439a087535ce287f7fcc639 (patch)
tree839a9dd6fed72f964b61695aef5139e3f8473dc8 /2d
parent1c9f242098b2282f5f00efd83ff3f85e3143bb73 (diff)
Add 'top-left as possible anchor value.
* 2d/texture.scm (anchor-texture): Add 'top-left condition.
Diffstat (limited to '2d')
-rw-r--r--2d/texture.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/2d/texture.scm b/2d/texture.scm
index 5185368..e0255ab 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -161,6 +161,8 @@ texture."
(cond
((vector2? anchor)
anchor)
+ ((eq? anchor 'top-left)
+ null-vector2)
((eq? anchor 'center)
(vector2 (/ (texture-width texture) 2)
(/ (texture-height texture) 2)))