Add num_shadow_casters graphics parameter, allow cycle down enum options

src/Dodge/Data/Config.hs

@@ -10,6 +10,30 @@ import qualified Data.Set as S
 
 {-# ANN module "HLint: ignore Use camelCase" #-}
 
+data NumShadowCasters
+    = NumShadowCasters0
+    | NumShadowCasters1
+    | NumShadowCasters2
+    | NumShadowCasters3
+    | NumShadowCasters4
+    | NumShadowCasters5
+    | NumShadowCasters6
+    | NumShadowCasters7
+    | NumShadowCasters8
+    | NumShadowCasters9
+    | NumShadowCasters10
+    | NumShadowCasters11
+    | NumShadowCasters12
+    | NumShadowCasters13
+    | NumShadowCasters14
+    | NumShadowCasters15
+    | NumShadowCasters16
+    | NumShadowCasters17
+    | NumShadowCasters18
+    | NumShadowCasters19
+    | NumShadowCasters20
+    deriving (Show,Eq,Bounded,Ord,Enum)
+
 data Configuration = Configuration
     { _volume_master :: Float
     , _volume_sound :: Float
@@ -18,6 +42,7 @@ data Configuration = Configuration
     , _graphics_cloud_shadows :: Bool
     , _graphics_object_shadows :: ObjectShadows
     , _graphics_resolution_factor :: ResFactor
+    , _graphics_num_shadow_casters :: NumShadowCasters
     , _windowX :: Float
     , _windowY :: Float
     , _windowPosX :: Int
@@ -81,7 +106,8 @@ defaultConfig =
         , _graphics_wall_textured = True
         , _graphics_cloud_shadows = True
         , _graphics_object_shadows = GeoObjShads
-        , _graphics_resolution_factor = FullRes
+        , _graphics_resolution_factor = QuarterRes
+        , _graphics_num_shadow_casters = toEnum 10
         , _windowX = 800
         , _windowY = 600
         , _windowPosX = 0
@@ -95,6 +121,7 @@ debugOn :: DebugBool -> Configuration -> Bool
 debugOn db = S.member db . _debug_booleans
 
 makeLenses ''Configuration
+deriveJSON defaultOptions ''NumShadowCasters
 deriveJSON defaultOptions ''ResFactor
 deriveJSON defaultOptions ''ObjectShadows
 deriveJSON defaultOptions ''RoomClipping