From b7e0363647ed63db3a1eb2fd3acba4f23fab1a92 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 28 Feb 2018 21:46:16 +0100 Subject: [PATCH] removed old code --- src/Test.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Test.hs b/src/Test.hs index 28f84c3..9f954a2 100644 --- 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