diff options
Diffstat (limited to 'src/game.scm')
| -rw-r--r-- | src/game.scm | 10 |
1 files changed, 7 insertions, 3 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*) |