kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

fix blades tile rendering

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-05-06 20:14:45 -04:00
parent 3cfb9fdc86
commit 10b6222e9d
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
projects/blades-engine/source/IsometricMapState.kiss
View File

@@ -19,12 +19,12 @@
(floorTiles.push (let [tile (spriteSheet.clone)] (floorTiles.push (let [tile (spriteSheet.clone)]
(set tile.clipRect (new FlxRect (set tile.clipRect (new FlxRect
(+ SPRITE_PADDING (* col (+ SPRITE_PADDING FLOOR_WIDTH))) (+ SPRITE_PADDING (* col (+ SPRITE_PADDING FLOOR_WIDTH)))
(+ SPRITE_PADDING (* col (+ SPRITE_PADDING SPRITE_HEIGHT))) (+ SPRITE_PADDING (* row (+ SPRITE_PADDING SPRITE_HEIGHT)))
FLOOR_WIDTH FLOOR_WIDTH
SPRITE_HEIGHT)) SPRITE_HEIGHT))
tile)))))) tile))))))
(addSpriteLayer ~(for row (range 5) (collect (range 5))))) (addSpriteLayer (for row (range 5) (collect (range 5)))))
(method :Void addSpriteLayer [:Array<Array<Int>> tiles] (method :Void addSpriteLayer [:Array<Array<Int>> tiles]
(let [&mut rowStartX 0 (let [&mut rowStartX 0
@@ -33,9 +33,9 @@
(let [&mut x rowStartX (let [&mut x rowStartX
&mut y rowStartY] &mut y rowStartY]
(doFor tile row (doFor tile row
(let [tileSprite (.clone ~(nth floorTiles tile))] (let [tileSprite (.clone (nth floorTiles tile))]
(set tileSprite.x x) (set tileSprite.x (- x tileSprite.clipRect.x))
(set tileSprite.y y) (set tileSprite.y (- y tileSprite.clipRect.y))
(add tileSprite)) (add tileSprite))
(+= x (/ FLOOR_WIDTH 2)) (+= x (/ FLOOR_WIDTH 2))
(+= y (/ FLOOR_HEIGHT 2)))) (+= y (/ FLOOR_HEIGHT 2))))