Update a couple of examples to use new sprite batch API.
[chickadee.git] / examples / grid.scm
index f20f64d..e9fe2cc 100644 (file)
                        (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)