diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-02-16 10:31:14 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-02-16 10:47:04 -0500 |
| commit | fd04e2133e098359e439a087535ce287f7fcc639 (patch) | |
| tree | 839a9dd6fed72f964b61695aef5139e3f8473dc8 | |
| parent | 1c9f242098b2282f5f00efd83ff3f85e3143bb73 (diff) | |
Add 'top-left as possible anchor value.
* 2d/texture.scm (anchor-texture): Add 'top-left condition.
| -rw-r--r-- | 2d/texture.scm | 2 |
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))) |