diff options
Diffstat (limited to 'examples/tilemap.scm')
| -rw-r--r-- | examples/tilemap.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/tilemap.scm b/examples/tilemap.scm index 284c760..5c5abdf 100644 --- a/examples/tilemap.scm +++ b/examples/tilemap.scm @@ -22,7 +22,7 @@ (2d sprite) (2d texture) (2d tileset) - (2d vector2) + (2d vector) (2d window)) (load "common.scm") @@ -79,9 +79,9 @@ (define (build-sprite x y) (let ((region (tileset-ref tileset (array-ref tiles y x)))) (make-sprite region - #:position (vector2 (* x tile-width) - (* y tile-height)) - #:anchor null-vector2))) + #:position (vector (* x tile-width) + (* y tile-height)) + #:anchor #(0 0)))) (let ((sprites (list-ec (: y height) (list-ec (: x width) |