Allow for easier mounted objects on doors

2025-10-25 18:44:34 +01:00
parent 7585531dd1
commit cbf0f47b9b
14 changed files with 263 additions and 253 deletions
@@ -52,7 +52,7 @@ data PSType
        , _putEndPoint :: Point2
        }
    | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
-    | PutDoor Door Wall
+    | PutDoor {_putDoorDoor :: Door, _putDoorWall :: Wall}
    | RandPS (State StdGen PSType)
    | PutForeground ForegroundShape
    | PutWorldUpdate (Int -> PlacementSpot -> GenWorld -> GenWorld)