Move configuration from world to universe

src/Dodge/Render/Picture.hs

@@ -4,6 +4,7 @@ module Dodge.Render.Picture
     ) where
 import Dodge.Data
 import Dodge.Base.Window
+import Dodge.WinScale
 import Dodge.Picture.Layer
 import Dodge.Render.HUD
 import Dodge.Render.MenuScreen
@@ -13,16 +14,17 @@ import Picture
 fixedCoordPictures :: Universe -> Picture
 fixedCoordPictures w = case _menuLayers w of 
     [] -> pictures
-        [ hudDrawings (_uvWorld w)
-        , customMouseCursor (_uvWorld w)
+        [ hudDrawings (_config w) (_uvWorld w)
+        , customMouseCursor (_config w) (_uvWorld w)
         ]
     (lay:_) -> scaler . onLayer MenuDepth $ menuScreen w lay
   where 
-    scaler = setDepth (-1) . scale (2 / getWindowX (_uvWorld w)) (2 / getWindowY (_uvWorld w))
+    scaler = setDepth (-1) . scale (2 / getWindowX cfig) (2 / getWindowY cfig)
+    cfig = _config w
 
-customMouseCursor :: World -> Picture
-customMouseCursor w = 
-    scale (2 /getWindowX w) (2/ getWindowY w) 
+customMouseCursor :: Configuration -> World -> Picture
+customMouseCursor cfig w = 
+    winScale cfig
     . uncurryV translate (_mousePos w)
     . color white
     $ pictures [ line [V2 (-5) 0,V2 5 0] , line [V2 0 (-5),V2 0 5] ]