Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed floor/ceiling crap

Browse Source
This commit is contained in:
Jonas Betzendahl 2014-05-16 17:43:31 +02:00
parent 5b2537188f
commit a71ce917ec
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Map/Map.hs
View File

@ -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]