Retropikzel
/
scheme-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix typos. Add tiled testmap

This commit is contained in:
retropikzel 2026-05-28 10:21:51 +03:00
parent 9042939cbd
commit 7c4af946cf
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
retropikzel/tiled.scm
View File

@ -1,11 +1,11 @@
(define-record-type <map> (define-record-type <map>
(make-map width height layers) (make-map width height layers)
map? map?
(widht map-width) (width map-width)
(height map-height) (height map-height)
(layers map-layers)) (layers map-layers))
(define (read-map port) (define (read-map port)
(json-read port) (json-read port)
)) )

4
retropikzel/tiled/test.scm
View File

@ -3,7 +3,7 @@
(define mapdata (read-map (open-input-file "retropikzel/tiled/testmap.json"))) (define mapdata (read-map (open-input-file "retropikzel/tiled/testmap.json")))
;(write mapdata) (write mapdata)
;(newline) (newline)
(test-end "tiled") (test-end "tiled")