Rethink damage data type, work on damage sensors

src/Dodge/Room/Door.hs

@@ -28,12 +28,12 @@ door = defaultRoom
         ,uncurry inLink (V2 20  5,pi)
         ]
 
-switchDoorRoom :: Int -> Room
-switchDoorRoom inplid = defaultRoom
-    { _rmPolys = [rectNSWE 40 0 0 40]
-    , _rmLinks = init lnks++ [last lnks]
-    , _rmPath  = [(V2 20 35,V2 20 5)]
-    , _rmInPmnt = [InPlacement f  inplid]
+triggerDoorRoom :: Int -> Room
+triggerDoorRoom inplid = defaultRoom
+    { _rmPolys  = [rectNSWE 40 0 0 40]
+    , _rmLinks  = init lnks++ [last lnks]
+    , _rmPath   = [(V2 20 35,V2 20 5)]
+    , _rmInPmnt = [InPlacement f inplid]
 -- door extends into side walls (for shadows as rendered 12/03/21)
 -- note no bounds
     }