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

Clamped reference points

Browse Source
This commit is contained in:
Jonas Betzendahl 2014-05-16 18:48:46 +02:00
parent cd4250336b
commit c624121e23
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Map/Map.hs
View File

@ -49,15 +49,16 @@ giveMapHeight mop (x,z)
outsideMap (mx, mz) = let ((a,b),(c,d)) = bounds mop outsideMap (mx, mz) = let ((a,b),(c,d)) = bounds mop
fr = fromIntegral fr = fromIntegral
in mx < (fr a) || mx > (fr c) || mz < (fr b) || mz > (fr d) in mx < (fr a) || mx > (fr c) || mz < (fr b) || mz > (fr d)
-- Height LookUp on PlayMap -- Height LookUp on PlayMap
hlu :: (Int, Int) -> Double hlu :: (Int, Int) -> Double
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
refs :: [(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)] refs = remdups $ map clmp $ map (tadd (floor x, floor z)) mods
where where
mods = [(-1,-1),(-1,2),(0,0),(0,1),(1,0),(1,1),(2,-1),(2,2)]
tadd (a,b) (c,d) = (a+b,c+d) tadd (a,b) (c,d) = (a+b,c+d)
-- tupels with reference point and distance -- tupels with reference point and distance
@ -66,6 +67,15 @@ giveMapHeight mop (x,z)
-- total distance of all for reference point from the point in question -- total distance of all for reference point from the point in question
totald = sum $ map (\(_,d) -> d) tups totald = sum $ map (\(_,d) -> d) tups
-- clamp, as she is programmed
clamp :: (Ord a) => a -> a -> a -> a
clamp mn mx = max mn . min mx
-- clamp for tupels
clmp :: (Int, Int) -> (Int, Int)
clmp (a,b) = let ((xmin,zmin),(xmax,zmax)) = bounds mop
in ((clamp (xmin+2) (xmax-2) a),(clamp (zmin+2) (zmax-2) b))
-- Real distance on PlayMap -- Real distance on PlayMap
dist :: (Double, Double) -> (Int, Int) -> Double dist :: (Double, Double) -> (Int, Int) -> Double
dist (x1,z1) pmp = let xf = x1 - realx dist (x1,z1) pmp = let xf = x1 - realx