Fix tile depth

This commit is contained in:
jgk
2021-06-25 02:27:20 +02:00
parent b6feccd934
commit 2d0f08c2e9
4 changed files with 12 additions and 2 deletions
+1 -1
View File
@@ -10,7 +10,7 @@ tToRender t = map Render3x3 $ polyToTris $ zip ps3 coords3
where
ps = _tilePoly t
coords = map (calcTexCoord (_tileCenter t) (_tileX t) (_tileY t)) ps
ps3 = map (mkTrip 0.9) ps
ps3 = map (mkTrip 0.1) ps
coords3 = map (mkTrip (_tileZ t)) coords
mkTrip :: c -> (a,b) -> (a,b,c)