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

changed constant in Map.Map

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-05-17 11:40:23 +02:00
parent 2944d36703
commit 0d65a485d5
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Map/Map.hs
View File

@ -41,11 +41,11 @@ giveNeighbourhood mp n (a,b) = let ns = giveNeighbours mp (a,b) in
giveMapHeight :: PlayMap giveMapHeight :: PlayMap
-> (Double, Double) -> (Double, Double)
-> Double -> Double
giveMapHeight mop (x,z) giveMapHeight mop (x, z)
| outsideMap (x,z') = 0.0 | outsideMap (x,z') = 0.0
| otherwise = sum $ map (\(p,d) -> (hlu p) * (1 - (d / totald))) tups | otherwise = sum $ map (\(p,d) -> (hlu p) * (1 - (d / totald))) tups
where where
z' = z * ((sqrt 3)/2) z' = z * 2/(sqrt 3)
outsideMap :: (Double, Double) -> Bool outsideMap :: (Double, Double) -> Bool
outsideMap (mx, mz) = let ((a,b),(c,d)) = bounds mop outsideMap (mx, mz) = let ((a,b),(c,d)) = bounds mop