diff options
Diffstat (limited to 'examples/grid.scm')
| -rw-r--r-- | examples/grid.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/examples/grid.scm b/examples/grid.scm index 39ad50e..6fab47a 100644 --- a/examples/grid.scm +++ b/examples/grid.scm @@ -10,7 +10,6 @@ (chickadee sdl) (sdl2 input keyboard)) -(define font #f) (define grid (make-grid)) (define item-color (make-color 0.7 0.0 0.0 0.5)) (define cell-color (make-color 0.0 0.7 0.0 0.2)) @@ -20,7 +19,6 @@ (define player-velocity #v(0.0 0.0)) (define (load) - (set! font (load-font "fonts/good_neighbors_starling.xml")) (grid-add grid 'wall-left 0 0 32 480) (grid-add grid 'wall-top 32 448 576 32) (grid-add grid 'wall-right 608 0 32 480) @@ -75,7 +73,7 @@ (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 font (number->string* (cell-count cell)) + (draw-text (number->string* (cell-count cell)) %cell-count-pos)) grid))) (for-each-item (lambda (item rect) |