diff options
| -rw-r--r-- | src/game.scm | 10 | ||||
| -rw-r--r-- | src/tilemap.scm | 4 |
2 files changed, 9 insertions, 5 deletions
diff --git a/src/game.scm b/src/game.scm index f9f6b56..193af38 100644 --- a/src/game.scm +++ b/src/game.scm @@ -64,10 +64,12 @@ (define (draw-tile target tileset tile-id) (let ((tile (tileset-tile tileset tile-id))) + (sdl2:render-copy! *renderer* *level-tileset-texture* - (tile-rect tile) (tile-rect tile)))) + (tile-rect tile) + (tile-rect tile)))) -(define (draw-tilemap-row draw-fn rows) +(define (draw-tilemap-rows draw-fn rows) (unless (null? rows) (map draw-fn (car rows)) (draw-tilemap-row draw-fn (cdr rows)))) @@ -75,7 +77,9 @@ (define (draw-tilemap target tilemap) (let ((map-layer (layer-map (list-ref (tilemap-layers tilemap) 0))) (tileset (tilemap-tileset tilemap))) - (draw-tilemap-row (lambda (tile-id) (draw-tile target tileset tile-id)) map-layer))) + (draw-tilemap-rows + (lambda (tile-id) (draw-tile target tileset tile-id)) + map-layer))) (set! (sdl2:render-draw-color *renderer*) +background-color+) (sdl2:render-clear! *renderer*) diff --git a/src/tilemap.scm b/src/tilemap.scm index d789422..8d0379b 100644 --- a/src/tilemap.scm +++ b/src/tilemap.scm @@ -155,8 +155,8 @@ (x (* tile-x tile-width)) (y (* tile-y tile-height))) (make-tile - tile-id - (sdl2:make-rect x y tile-width tile-height)))) + id: tile-id + rect: (sdl2:make-rect x y tile-width tile-height)))) (define (load-tilemap file-name) (call-with-input-file file-name |