Allow to change menu options with rclick, move towards shader experiment

src/Dodge/Data/Config.hs

@@ -16,7 +16,7 @@ data Configuration = Configuration
     , _volume_music :: Float
     , _graphics_wall_textured :: Bool
     , _graphics_cloud_shadows :: Bool
-    , _graphics_object_shadows :: Bool
+    , _graphics_object_shadows :: ObjectShadows
     , _graphics_resolution_factor :: ResFactor
     , _windowX :: Float
     , _windowY :: Float
@@ -60,6 +60,9 @@ data DebugBool
 data ResFactor = FullRes | HalfRes | QuarterRes
     deriving (Show, Eq, Ord, Enum, Bounded)
 
+data ObjectShadows = GeoObjShads | CPUObjShads | NoObjShads
+    deriving (Show, Eq, Ord, Enum, Bounded)
+
 data RoomClipping = NoRoomClipBoundaries | AllRoomClipBoundaries | IntersectingRoomClipBoundaries
     deriving (Show, Eq, Ord, Enum, Bounded)
 
@@ -74,10 +77,10 @@ defaultConfig =
     Configuration
         { _volume_master = 1
         , _volume_sound = 1
-        , _volume_music = 1
+        , _volume_music = 0
         , _graphics_wall_textured = True
         , _graphics_cloud_shadows = True
-        , _graphics_object_shadows = True
+        , _graphics_object_shadows = GeoObjShads
         , _graphics_resolution_factor = FullRes
         , _windowX = 800
         , _windowY = 600
@@ -93,6 +96,7 @@ debugOn db = S.member db . _debug_booleans
 
 makeLenses ''Configuration
 deriveJSON defaultOptions ''ResFactor
+deriveJSON defaultOptions ''ObjectShadows
 deriveJSON defaultOptions ''RoomClipping
 deriveJSON defaultOptions ''DebugBool
 deriveJSON defaultOptions ''Configuration