Commit before attempting to simplify auto door placement

src/Dodge/Placement/Instance/Door.hs

@@ -87,12 +87,8 @@ putAutoDoor a b = PlacementUsingPos (addZ 0 a) $
                 b
                 3
   where
-    --cond az bz = any (crNearSeg 40 (stripZ az) (stripZ bz)) . IM.filter isAnimate . _creatures
     cond az bz = WdBlCrFilterNearPoint 40 (0.5 *.* (stripZ az +.+ stripZ bz)) CrIsAnimate
 
---  any (crNearPoint 40 (0.5 *.* (stripZ az +.+ stripZ bz)))
--- . IM.filter isAnimate . _creatures
-
 switchDoor :: Point2 -> Float -> Point2 -> Point2 -> Color -> Placement
 switchDoor btpos btrot dra drb col = pContID
     (PS btpos btrot)

src/Dodge/Placement/Instance/Wall.hs

@@ -93,7 +93,7 @@ baseBlockPane =
         --, _wlOpacity = Opaque 10
         , _wlOpacity = Opaque 17
         , _wlUnshadowed = True
-        , _wlFireThrough = True
+        , _wlFireThrough = False
         , _wlPenetrable = True
         }