diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-01-18 22:40:06 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-01-18 22:40:06 -0500 |
| commit | 3320c39a743c66b5b5e33d8b2c8b1823e3f71dd1 (patch) | |
| tree | 9287f2b2b90b015183b969c56fa3251f8f5526a3 | |
| parent | 01c2671b754e2f0c2a16d03102053b8aff8dda75 (diff) | |
render: tileset: Fix split-texture again.
* sly/render/tileset.scm (split-texture): Swap rows and columns
calculation.
| -rw-r--r-- | sly/render/tileset.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sly/render/tileset.scm b/sly/render/tileset.scm index e8058e8..9e136fb 100644 --- a/sly/render/tileset.scm +++ b/sly/render/tileset.scm @@ -58,8 +58,8 @@ TEXTURE before the first tile begins." (let* ((tw (texture-width texture)) (th (texture-height texture)) - (rows (/ (- tw margin) (+ width spacing))) - (columns (/ (- th margin) (+ height spacing)))) + (rows (/ (- th margin) (+ height spacing))) + (columns (/ (- tw margin) (+ width spacing)))) (vector-ec (: y rows) (: x columns) (build-tile x y)))) (define* (make-tileset texture width height |