From 0d65a485d563d1d3b9635317f9a8f09d414b0129 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sat, 17 May 2014 11:40:23 +0200
Subject: [PATCH] changed constant in Map.Map

---
 src/Map/Map.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Map/Map.hs b/src/Map/Map.hs
index 2a3cb26..b92e926 100644
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@@ -41,11 +41,11 @@ giveNeighbourhood mp n (a,b) = let ns = giveNeighbours mp (a,b) in
 giveMapHeight :: PlayMap
              -> (Double, Double)
              -> Double
-giveMapHeight mop (x,z)
+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