diff --git a/src/Test.hs b/src/Test.hs index eae3aca..ac49ff5 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -251,7 +251,7 @@ drawTile row col tile = do rect ctx x (y - (74 - realToFrac tileHeight)) 64 74 fillPaint ctx paint fill ctx - when (floor pr == row && floor pc == col) $ do + when (floor pr == row + 1 && floor pc == col + 1) $ do beginPath ctx circle ctx 640 360 5 closePath ctx