summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-16 10:48:12 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-16 10:48:12 -0500
commita58f4dec264cf6dd55afe4f1be1791664ca1ae09 (patch)
treee195a1b0f889972f498c9516f694ff6dab43f724
parentfc2584672c096ae63469cce9ede9abaa4a95ece7 (diff)
Remove sprite batch from tilemap example.
* examples/tilemap.scm: Remove references to sprite batches.
-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)