From 913f1d745d887367f081ebb5250774771d7f56e1 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 9 Nov 2025 23:51:55 +0000 Subject: Display tiles correctly --- src/tilemap.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'src/tilemap.scm') diff --git a/src/tilemap.scm b/src/tilemap.scm index 8d0379b..6f6c3ef 100644 --- a/src/tilemap.scm +++ b/src/tilemap.scm @@ -148,12 +148,14 @@ (define (tileset-tile tileset tile-id) ;; Use the tileset's columns setting and the tileheight/tilewidth to ;; find the tile's x,y location and create a rect - (let* ((tile-width (tileset-tilewidth tileset)) + (let* ((tile-num (- tile-id 1)) ; tile-id starts at 1! + (tile-width (tileset-tilewidth tileset)) (tile-height (tileset-tileheight tileset)) - (tile-x (modulo tile-id (tileset-columns tileset))) - (tile-y (inexact->exact (floor (/ tile-id (tileset-columns tileset))))) - (x (* tile-x tile-width)) - (y (* tile-y tile-height))) + (tile-x (modulo tile-num (tileset-columns tileset))) + (tile-y (inexact->exact (floor (/ tile-num (tileset-columns tileset))))) + (x (+ (* tile-x tile-width) tile-x)) + (y (+ (* tile-y tile-height) tile-y))) + (pp (list tile-x tile-y x y)) (make-tile id: tile-id rect: (sdl2:make-rect x y tile-width tile-height)))) -- cgit v1.2.3