From a58f4dec264cf6dd55afe4f1be1791664ca1ae09 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 16 Feb 2014 10:48:12 -0500 Subject: Remove sprite batch from tilemap example. * examples/tilemap.scm: Remove references to sprite batches. --- examples/tilemap.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'examples/tilemap.scm') 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) -- cgit v1.2.3