Move menu layers outside of world

src/Dodge/Render/Picture.hs

@@ -10,15 +10,15 @@ import Dodge.Render.MenuScreen
 import Geometry
 import Picture
 
-fixedCoordPictures :: World -> Picture
+fixedCoordPictures :: Universe -> Picture
 fixedCoordPictures w = case _menuLayers w of 
     [] -> pictures
-        [ hudDrawings w
-        , customMouseCursor w
+        [ hudDrawings (_uvWorld w)
+        , customMouseCursor (_uvWorld w)
         ]
     (lay:_) -> scaler . onLayer MenuDepth $ menuScreen w lay
   where 
-    scaler = setDepth (-1) . scale (2 / getWindowX w) (2 / getWindowY w)
+    scaler = setDepth (-1) . scale (2 / getWindowX (_uvWorld w)) (2 / getWindowY (_uvWorld w))
 
 customMouseCursor :: World -> Picture
 customMouseCursor w =