Improve some door placement

2025-10-24 20:30:36 +01:00
parent 95b4105f52
commit b0d519c69d
9 changed files with 92 additions and 115 deletions
@@ -96,9 +96,8 @@ airlock0 =
        ]
    col = dim $ dim $ bright red

--airlockDoor :: Color -> WdBl -> [(Point2, Point2)] -> PSType
 airlockDoor :: WdBl -> Float -> Point2A -> Point2A -> PSType
-airlockDoor = PutDoor False switchWallObs
+airlockDoor = PutDoor False

 airlockDoubleDoor ::
    Point2 ->