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

stop player from shining through walls

Browse source
This commit is contained in:
nek0 2018-02-27 20:50:58 +01:00
parent 701a04060b
commit c742827e07
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

@ -251,7 +251,7 @@ drawTile row col tile = do
rect ctx x (y - (74 - realToFrac tileHeight)) 64 74 rect ctx x (y - (74 - realToFrac tileHeight)) 64 74
fillPaint ctx paint fillPaint ctx paint
fill ctx fill ctx
when (floor pr == row && floor pc == col) $ do when (floor pr == row + 1 && floor pc == col + 1) $ do
beginPath ctx beginPath ctx
circle ctx 640 360 5 circle ctx 640 360 5
closePath ctx closePath ctx