diff options
| -rw-r--r-- | chickadee/render/texture.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/chickadee/render/texture.scm b/chickadee/render/texture.scm index 3b1cb04..f225770 100644 --- a/chickadee/render/texture.scm +++ b/chickadee/render/texture.scm @@ -313,10 +313,8 @@ This type of texture atlas layout is very common for tile map terrain." (let* ((w (texture-width texture)) (h (texture-height texture)) - (sw (/ tile-width w)) - (th (/ tile-height h)) - (rows (/ (- h margin) (+ tile-height spacing))) - (columns (/ (- w margin) (+ tile-width spacing))) + (rows (inexact->exact (floor (/ (- h margin) (+ tile-height spacing))))) + (columns (inexact->exact (floor (/ (- w margin) (+ tile-width spacing))))) (v (make-vector (* rows columns)))) (define (make-tile tx ty) (let* ((x (+ (* tx (+ tile-width spacing)) margin)) |