summaryrefslogtreecommitdiff
path: root/2d/texture.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/texture.scm')
-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)))