SuperKamiGuru/foss-mmo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prepare to support drawing rotated tiles

Browse source
This commit is contained in:
Juliana Sims 2024-05-23 16:36:05 -04:00
parent d68b5d0491
commit 1e91411687
5 changed files with 54 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scripts/compile-map.scm
View file

@ -564,11 +564,6 @@ the default ORIENTATION value of 'orthogonal' is supported."
(define obj:or-gate 15)
(define obj:switched-emitter 16)
(define direction:right 1)
(define direction:left 2)
(define direction:up 3)
(define direction:down 4)
(define (compile-environment-layer tile-map layer-name)
(let ((tw (tile-map-tile-width tile-map))
(th (tile-map-tile-height tile-map))
@ -595,10 +590,10 @@ the default ORIENTATION value of 'orthogonal' is supported."
(define (compile-object-layer tile-map layer-name)
(define parse-direction
(match-lambda
("right" direction:right)
("left" direction:left)
("up" direction:up)
("down" direction:down)))
("right" 1)
("left" 2)
("up" 3)
("down" 4)))
(let ((tw (tile-map-tile-width tile-map))
(th (tile-map-tile-height tile-map))
(layer (tile-map-layer-ref tile-map layer-name)))