Update a couple of examples to use new sprite batch API.

* examples/game-controller.scm: Use new sprite batch API.
* examples/grid.scm: Ditto.

1 files changed, 6 insertions, 7 deletions

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)