Implement different shadow resolutions

src/Dodge/Render/MenuScreen.hs

@@ -21,28 +21,29 @@ menuScreen cfig hw hh mLays = case mLays of
     [] -> blank 
     (LevelMenu x:_) -> optionsList hw hh ("LEVEL"++show x) [] 
     (PauseMenu:_)   -> optionsList hw hh "PAUSED"
-        ["n - NEW LEVEL"
-        ,"r - RESTART"
-        ,"o - OPTIONS"
-        ,"c - CONTROLS"
+        ["N - NEW LEVEL"
+        ,"R - RESTART"
+        ,"O - OPTIONS"
+        ,"C - CONTROLS"
         ]
     (GameOverMenu:_) -> optionsList hw hh "GAME OVER" 
-        ["n - NEW LEVEL"
-        ,"r - RESTART"
-        ,"o - OPTIONS"
-        ,"c - CONTROLS"
+        ["N - NEW LEVEL"
+        ,"R - RESTART"
+        ,"O - OPTIONS"
+        ,"C - CONTROLS"
         ]
     (OptionMenu : _) -> optionsList hw hh "OPTIONS" 
-        ["v - VOLUME"
-        ,"g - GRAPHICS"
+        ["V - VOLUME"
+        ,"G - GRAPHICS"
         ]
     (SoundOptionMenu : _) -> optionsList hw hh "OPTIONS:VOLUME" 
-        ["y - MASTER VOLUME + u : " ++ mavol
-        ,"h - SOUND  VOLUME + j : " ++ snvol
-        ,"n - MUSIC  VOLUME + m : " ++ muvol
+        ["Y - MASTER VOLUME + U : " ++ mavol
+        ,"H - SOUND  VOLUME + J : " ++ snvol
+        ,"N - MUSIC  VOLUME + M : " ++ muvol
         ]
     (GraphicsOptionMenu : _) -> optionsList hw hh "OPTIONS:GRAPHICS" 
-        ["w - WALL TEXTURES:" ++ show (_wall_textured cfig)
+        ["W - WALL TEXTURES:" ++ show (_wall_textured cfig)
+        ,"S - SHADOW RESOLUTION:" ++ showShadRes (_shadow_resolution cfig)
         ]
     (ControlList : _) -> pictures 
         [color (withAlpha 0.5 black) $ polygon $ screenBox hw hh
@@ -57,6 +58,7 @@ menuScreen cfig hw hh mLays = case mLays of
     snvol = f $ _volume_sound  $ cfig
     muvol = f $ _volume_music  $ cfig
     f x = show $ round $ 10 * x
+    showShadRes i = "1/"++ show i
 
 optionsList
     :: Float    -- ^ Half screen width