Make machines have footprint like doors

src/Dodge/Data/GenWorld.hs

@@ -32,8 +32,7 @@ data GenWorld = GenWorld
 data PSType
     = PutCrit {_unPutCrit :: Creature}
     | PutMachine
-        { _putMachinePoly :: [Point2]
-        , _putMachineMachine :: Machine
+        { _putMachineMachine :: Machine
         , _putMachineMaybeItem :: Maybe Item
         }
     | PutLS {_putLS :: LightSource}

src/Dodge/Data/Machine.hs

@@ -17,7 +17,6 @@ import Dodge.Data.AmmoType
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import qualified Data.IntSet as IS
 import qualified Data.Map.Strict as M
 import Dodge.Data.Damage
 import Dodge.Data.GenParams
@@ -30,7 +29,7 @@ import qualified Data.IntMap.Strict as IM
 
 data Machine = Machine
     { _mcID :: Int
-    , _mcWallIDs :: IS.IntSet
+--    , _mcWallIDs :: IS.IntSet
     , _mcMaterial :: Material
     , _mcSkin :: Material
     , _mcFootPrint :: IM.IntMap (Point2,Point2)