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

more fix

Browse source
This commit is contained in:
nek0 2018-03-06 23:04:52 +01:00
parent 8023f93ce7
commit 4405539bd8
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Test.hs
View file

@ -180,7 +180,7 @@ drawTile ai ctx pr pc row col img =
drawImage drawImage
drawPlayer drawPlayer
else do else do
if any (\minr -> pr <= (fromIntegral (floor pr :: Int)) + minr) minrs && if any (\maxr -> pr <= (fromIntegral (floor pr :: Int)) + maxr) maxrs &&
any (\minc -> pc >= (fromIntegral (floor pc :: Int)) + minc) mincs any (\minc -> pc >= (fromIntegral (floor pc :: Int)) + minc) mincs
then do then do
drawPlayer drawPlayer
@ -195,6 +195,7 @@ drawTile ai ctx pr pc row col img =
minrs = Prelude.map (fst . matmin) mb minrs = Prelude.map (fst . matmin) mb
maxrs = Prelude.map (fst . matmax) mb maxrs = Prelude.map (fst . matmax) mb
mincs = Prelude.map (snd . matmin) mb mincs = Prelude.map (snd . matmin) mb
maxcs = Prelude.map (snd . matmax) mb
x = realToFrac $ 640 + ((fromIntegral col - pc) + x = realToFrac $ 640 + ((fromIntegral col - pc) +
(fromIntegral row - pr)) * (tileWidth / 2) (fromIntegral row - pr)) * (tileWidth / 2)
y = realToFrac $ 360 - (tileHeight / 2) + ((fromIntegral row - pr) - y = realToFrac $ 360 - (tileHeight / 2) + ((fromIntegral row - pr) -
@ -202,8 +203,8 @@ drawTile ai ctx pr pc row col img =
dist = distance (V2 (fromIntegral row) (fromIntegral col)) dist = distance (V2 (fromIntegral row) (fromIntegral col))
(V2 (realToFrac pr - 1) (realToFrac pc)) / 4 (V2 (realToFrac pr - 1) (realToFrac pc)) / 4
fact = fact =
if (pr <= fromIntegral row + maximum maxrs && if (pr <= fromIntegral row + minimum maxrs &&
pc >= fromIntegral col + minimum mincs) && pc >= fromIntegral col + maximum mincs) &&
isWall (fromJust img) isWall (fromJust img)
then min 1 dist then min 1 dist
else 1 else 1