Refactor window size, update selection cursor on new screen

src/Dodge/Render/MenuScreen.hs

@@ -3,7 +3,6 @@ module Dodge.Render.MenuScreen (
     drawMenuScreen,
 ) where
 
-import Dodge.Base.WinScale
 import Dodge.Data.SelectionList
 import Dodge.Render.List
 import Dodge.Base.Window
@@ -46,10 +45,10 @@ drawOptions ldps cfig title sl =
         ]
 
 darkenBackground :: Configuration -> Picture
-darkenBackground cfig = winScale cfig . color (withAlpha 0.5 black) . polygon . reverse . screenBox $ cfig
+darkenBackground = color (withAlpha 0.5 black) . polygon . reverse . screenBox
 
 drawTitle :: Configuration -> String -> Picture
-drawTitle cfig = winScale cfig . translate (30 - hw) (hh-50) . scale 0.4 0.4 . text
+drawTitle cfig =  translate (30 - hw) (hh-50) . scale 0.4 0.4 . text
   where
     hh = halfHeight cfig
     hw = halfWidth cfig