From fd04e2133e098359e439a087535ce287f7fcc639 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 16 Feb 2014 10:31:14 -0500
Subject: Add 'top-left as possible anchor value.

* 2d/texture.scm (anchor-texture): Add 'top-left condition.
---
 2d/texture.scm | 2 ++
 1 file changed, 2 insertions(+)

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)))
-- 
cgit v1.2.3