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
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 hlu (k,j) = let (Node _ (_,_,y) _ _ _ _ _ _) = mop ! (k,j) in y
-- reference Points -- reference Points
ff = (floor x, floor z) :: (Int, Int) ff = ((floor x)-1, (floor z)-1) :: (Int, Int)
fc = (floor x, ceiling z) :: (Int, Int) fc = ((floor x)-1, (floor z)+2) :: (Int, Int)
cf = (ceiling x, floor z) :: (Int, Int) cf = ((floor x)+2, (floor z)-1) :: (Int, Int)
cc = (ceiling x, ceiling z) :: (Int, Int) cc = ((floor x)+2, (floor z)+2) :: (Int, Int)
-- tupels with reference point and distance -- tupels with reference point and distance
tups = map (\t -> (t, dist (x,z) t)) [ff,fc,cf,cc] tups = map (\t -> (t, dist (x,z) t)) [ff,fc,cf,cc]