From 12ac60e9caecb5e6ababdded9ba9f8e73c7cb742 Mon Sep 17 00:00:00 2001 From: Alex McGrath Date: Tue, 28 May 2019 21:43:49 +0100 Subject: Update a couple of examples to use new sprite batch API. * examples/game-controller.scm: Use new sprite batch API. * examples/grid.scm: Ditto. --- examples/grid.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'examples/grid.scm') diff --git a/examples/grid.scm b/examples/grid.scm index f20f64d..e9fe2cc 100644 --- a/examples/grid.scm +++ b/examples/grid.scm @@ -67,13 +67,12 @@ (set-rect-y! %cell-rect (* y size)) (draw-filled-rect %cell-rect cell-color)) grid) - (with-batched-sprites - (for-each-cell (lambda (cell x y) - (set-vec2-x! %cell-count-pos (+ (* x size) (/ size 2))) - (set-vec2-y! %cell-count-pos (+ (* y size) (/ size 2))) - (draw-text (number->string* (cell-count cell)) - %cell-count-pos)) - grid))) + (for-each-cell (lambda (cell x y) + (set-vec2-x! %cell-count-pos (+ (* x size) (/ size 2))) + (set-vec2-y! %cell-count-pos (+ (* y size) (/ size 2))) + (draw-text (number->string* (cell-count cell)) + %cell-count-pos)) + grid)) (for-each-item (lambda (item rect) (if (eq? item 'player) (draw-filled-rect rect player-color) -- cgit v1.2.3