summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/tilemap.scm12
1 files changed, 5 insertions, 7 deletions
diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 6b024c7..aded519 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -29,13 +29,11 @@
(tiles map-layer-tiles))
(define draw-map-layer
- (let ((batch (make-sprite-batch 2000)))
- (lambda (layer)
- (with-sprite-batch batch
- (do-ec (: y (map-layer-height layer))
- (: x (map-layer-width layer))
- (let ((tile (array-ref (map-layer-tiles layer) y x)))
- (draw-sprite tile)))))))
+ (lambda (layer)
+ (do-ec (: y (map-layer-height layer))
+ (: x (map-layer-width layer))
+ (let ((tile (array-ref (map-layer-tiles layer) y x)))
+ (draw-sprite tile)))))
;; A small 8x8 array of tile indices.
(define map-width 8)