Cleanup

src/Dodge/Render/HUD.hs

@@ -4,6 +4,7 @@ module Dodge.Render.HUD
     )
     where
 import Dodge.Data
+import Dodge.WinScale
 import Dodge.Base
 import Dodge.Base.Window
 import Dodge.Inventory
@@ -129,11 +130,11 @@ drawLocations cfig w = pictures $
     locTexts = map fst locs
 
 displayListEndCoords :: Configuration -> [String] -> [Point2]
-displayListEndCoords w ss = map g $ zipWith h ss $ map f [1..]
+displayListEndCoords cfig ss = map (doWindowScale cfig) $ zipWith h ss $ map f [1..]
   where 
     f :: Int -> Point2
-    f i = V2 ( 15 - halfWidth w ) ( 2.5 + halfHeight w - (20 * fromIntegral i))
-    g (V2 x y) = V2 (2*x / getWindowX w) ( 2*y / getWindowY w)
+    f i = V2 ( 15 - halfWidth cfig ) ( 2.5 + halfHeight cfig - (20 * fromIntegral i))
+    --g (V2 x y) = V2 (2*x / getWindowX w) ( 2*y / getWindowY w)
     h :: String -> Point2 -> Point2
     h s (V2 x y) = V2 (x + 9 * fromIntegral (length s)) y