changed constant in Map.Map

2014-05-17 11:40:23 +02:00 · 2014-05-17 11:40:23 +02:00 · 0d65a485d5
commit 0d65a485d5
parent 2944d36703
1 changed files with 2 additions and 2 deletions
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@ -45,7 +45,7 @@ giveMapHeight mop (x,z)
  | outsideMap (x,z') = 0.0
  | otherwise         = sum $ map (\(p,d) -> (hlu p) * (1 - (d / totald))) tups
  where
-    z' = z * ((sqrt 3)/2)
+    z' = z * 2/(sqrt 3)

    outsideMap :: (Double, Double) -> Bool
    outsideMap (mx, mz) = let ((a,b),(c,d)) = bounds mop