From a71ce917ecb33f241c505403b79b0a9fb841368b Mon Sep 17 00:00:00 2001 From: Jonas Betzendahl Date: Fri, 16 May 2014 17:43:31 +0200 Subject: [PATCH] fixed floor/ceiling crap --- src/Map/Map.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Map/Map.hs b/src/Map/Map.hs index 5730778..36269dc 100644 --- a/src/Map/Map.hs +++ b/src/Map/Map.hs @@ -55,10 +55,10 @@ giveMapHeight mop (x,z) hlu (k,j) = let (Node _ (_,_,y) _ _ _ _ _ _) = mop ! (k,j) in y -- reference Points - ff = (floor x, floor z) :: (Int, Int) - fc = (floor x, ceiling z) :: (Int, Int) - cf = (ceiling x, floor z) :: (Int, Int) - cc = (ceiling x, ceiling z) :: (Int, Int) + ff = ((floor x)-1, (floor z)-1) :: (Int, Int) + fc = ((floor x)-1, (floor z)+2) :: (Int, Int) + cf = ((floor x)+2, (floor z)-1) :: (Int, Int) + cc = ((floor x)+2, (floor z)+2) :: (Int, Int) -- tupels with reference point and distance tups = map (\t -> (t, dist (x,z) t)) [ff,fc,cf,cc]