removed old code

2018-02-28 21:46:16 +01:00 · 2018-02-28 21:46:16 +01:00 · b7e0363647
commit b7e0363647
parent 0ba795e904
1 changed files with 0 additions and 4 deletions
--- a/src/Test.hs
+++ b/src/Test.hs
@ -251,10 +251,6 @@ drawTile row col tile = do
        ctx x (y - (74 * fact - realToFrac tileHeight)) 64 74 0
        (assetImages ud Map.! img row col)
        fact
-        -- (  if floor pr <= row && floor pc >= col
-        --    then min 1 dist
-        --    else 1
-        -- )
      beginPath ctx
      rect ctx x (y - (74 * fact - realToFrac tileHeight)) 64 74
      fillPaint ctx paint