diff options
Diffstat (limited to 'examples/grid.scm')
| -rw-r--r-- | examples/grid.scm | 13 |
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) |