Move towards scrapping separate GenWorld, merging into World

src/Dodge/Data.hs

@@ -139,8 +139,15 @@ data World = World
     , _worldClock           :: Int
     , _doubleMouseHammer    :: HammerPosition
     , _backspaceTimer       :: Int
+    , _genParams            :: GenParams
     }
 
+newtype GenParams = GenParams
+    { _sensorCoding :: M.Map DamageType (PaletteColor,DecorationShape)
+    }
+data DecorationShape = PlusDecoration | SquareDecoration | CircleDecoration | ThreeLineDecoration
+  deriving (Eq,Ord,Enum,Show)
+
 data HUDElement 
     = DisplayInventory {_subInventory :: SubInventory}
     | DisplayCarte
@@ -1406,3 +1413,4 @@ makeLenses ''AllocateEquipment
 makeLenses ''ActivateEquipment
 makeLenses ''EquipParams
 makeLenses ''TerminalCommand
+makeLenses ''GenParams