Cleanup

src/Dodge/Render/Picture.hs

@@ -19,7 +19,7 @@ fixedCoordPictures w = case _menuLayers w of
         ]
     (lay:_) -> scaler . onLayer MenuDepth $ menuScreen w lay
   where 
-    scaler = setDepth (-1) . scale (2 / getWindowX cfig) (2 / getWindowY cfig)
+    scaler = setDepth (-1) . winScale cfig
     cfig = _config w
 
 customMouseCursor :: Configuration -> World -> Picture