Work on autodoor pathing

2025-10-24 13:19:21 +01:00
parent 7b622c8e31
commit 9eed2706b0
13 changed files with 68 additions and 87 deletions
@@ -51,8 +51,7 @@ decontamRoom i =
        return $
            putDoubleDoor
                switchWallObs
-                --(switchWallCol red)
-                defaultSwitchWall
+                defaultDoorWall
                (cond pmnt)
                (V2 (-10) 35)
                (V2 (-10) 65)
@@ -62,7 +61,7 @@ decontamRoom i =
    cutps = [rectNSWE 100 0 0 40, switchcut]
    ps = (\p -> p - mcpos) <$> orderPolygon (concat cutps)
    --thewall = switchWallCol col
-    thewall = defaultSwitchWall
+    thewall = defaultDoorWall
    switchcut = rectNSWE 65 35 (-40) 80
    lnks =
        [ (V2 20 95, 0)
@@ -89,8 +88,7 @@ airlock0 =
        , _rmBound = [rectNSWE 75 15 0 40, switchcut]
        }
  where
-    --thewall = switchWallCol col
-    thewall = defaultSwitchWall
+    thewall = defaultDoorWall
    switchcut = rectNSWE 65 35 (-40) 20
    lnks =
        [ (V2 20 95, 0)