Use explicit out and in placements with ids

src/Dodge/Room/Door.hs

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