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

moar reference points

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

10
src/Map/Map.hs
View File

@ -55,13 +55,13 @@ giveMapHeight mop (x,z)
hlu (k,j) = let (Node _ (_,_,y) _ _ _ _ _ _) = mop ! (k,j) in y
-- reference Points
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)
refs :: [(Int, Int)]
refs = map (tadd (floor x, floor z)) [(-1,-1),(-1,2),(0,0),(0,1),(1,0),(1,1),(2,-1),(2,2)]
where
tadd (a,b) (c,d) = (a+b,c+d)
-- 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)) refs
-- total distance of all for reference point from the point in question
totald = sum $ map (\(_,d) -> d) tups