Allow shadow fidelity option, fix bug in rendering box shadows

src/Dodge/Data/Config.hs

@@ -3,6 +3,7 @@
 
 module Dodge.Data.Config where
 
+import Shape.Data
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -41,7 +42,8 @@ data Configuration = Configuration
     , _graphics_cloud_shadows :: Bool
     , _graphics_distortions :: Bool
     , _graphics_bloom :: Bool
-    , _graphics_object_shadows :: ShadowRendering
+    , _graphics_shadow_rendering :: ShadowRendering
+    , _graphics_shadow_size :: Importance
     , _graphics_downsize_resolution :: ResFactor
     , _graphics_world_resolution :: ResFactor
     , _graphics_overlay_resolution :: ResFactor
@@ -129,7 +131,8 @@ defaultConfig =
         , _volume_music = 0
         , _graphics_cloud_shadows = True
         , _graphics_bloom = True
-        , _graphics_object_shadows = GeoObjShads
+        , _graphics_shadow_rendering = GeoObjShads
+        , _graphics_shadow_size = Typical
         , _graphics_distortions = True
         , _graphics_downsize_resolution = SixteenthRes
         , _graphics_world_resolution = QuarterRes

src/Dodge/Data/Item/Use.hs

@@ -42,6 +42,7 @@ data ItemUse
         , _leftHammer :: HammerPosition
         , _equipEffect :: EquipEffect
         , _leftConsumption :: LeftConsumption
+        , _leftUseOnEquip :: Bool
         }
     | ConsumeUse
         { _cUse :: Cuse
@@ -55,6 +56,16 @@ data ItemUse
         {_useAmount :: ItAmount}
     --deriving (Eq, Show, Read) --Generic, Flat)
 
+data ItemUse' 
+    = ItemHeld HeldUse'
+    | ItemEquip EquipUse'
+    | ItemConsume ConsumeUse'
+    | ItemCraft Int
+
+data HeldUse' = HeldUse'
+data EquipUse' = EquipUse'
+data ConsumeUse' = ConsumeUse'
+
 data AimParams = AimParams
     { _aimWeight :: Int
     , _aimTurnSpeed :: Float