diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-11-30 17:55:03 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-11-30 17:55:03 -0500 |
| commit | 6df77db1f65ba4f844a378c512634828b12d78a8 (patch) | |
| tree | 191681c2e06419da4beed7bf4a36a6d2f7228cfe /sly/render | |
| parent | 9e95cf51801ac8f83dd5f817b145ad67589b677a (diff) | |
render: texture: Reverse top/bottom in anchor-texture.
* sly/render/texture.scm (anchor-texture): Reverse y coordinates between
top and bottom anchors.
Diffstat (limited to 'sly/render')
| -rw-r--r-- | sly/render/texture.scm | 12 |
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))))) ;;; |