nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

adjusting wallslide

Browse source
This commit is contained in:
nek0 2018-03-03 20:03:41 +01:00
parent 6518695a9e
commit 38db226cc7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Test.hs
View file

@ -188,7 +188,7 @@ drawTile ai ctx pr pc row col img = do
(fromIntegral col - pc)) * (tileHeight / 2) (fromIntegral col - pc)) * (tileHeight / 2)
unless (img == Nothing) $ do unless (img == Nothing) $ do
let dist = distance (V2 (fromIntegral row) (fromIntegral col)) let dist = distance (V2 (fromIntegral row) (fromIntegral col))
(V2 (realToFrac pr - 0.5) (realToFrac pc + 0.5)) / 4 (V2 (realToFrac pr - 1) (realToFrac pc)) / 4
fact = if (floor pr <= row && floor pc >= col) && isWall (fromJust img) fact = if (floor pr <= row && floor pc >= col) && isWall (fromJust img)
then min 1 dist then min 1 dist
else 1 else 1