Fix tile rendering

2021-09-07 10:53:39 +01:00
parent 6ecd739d6f
commit 45bbf9b005
14 changed files with 66 additions and 100 deletions
@@ -73,9 +73,8 @@ shiftRoomBy shift r = r
    & rmBound %~ fmap (map (shiftPointBy shift))
    & rmFloor %~ map 
        ( (tilePoly %~ map (shiftPointBy shift))
-        . (tileCenter %~ shiftPointBy shift    )
-        . (tileX %~ shiftPointBy shift         )
-        . (tileY %~ shiftPointBy shift         )
+        . (tileZero %~ shiftPointBy shift    )
+        . (tileX    %~ shiftPointBy shift         )
        )

 shiftLinkBy