Start unifying door placement types

2025-10-24 22:13:30 +01:00
parent 6457f00ba7
commit b6736e2735
7 changed files with 118 additions and 103 deletions
@@ -53,6 +53,7 @@ data PSType
        }
    | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
    | PutSlideDr Door Wall Float Point2 Point2
+    | PutDoor' Door Wall
    | PutDoor WdBl Float Point2A Point2A
    | RandPS (State StdGen PSType)
    | PutForeground ForegroundShape
@@ -80,6 +81,7 @@ instance ShortShow PSType where
    shortShow PutWall {} = "PutWall"
    shortShow PutSlideDr {} = "PutSlideDr"
    shortShow PutDoor {} = "PutDoor"
+    shortShow PutDoor' {} = "PutDoor'"
    shortShow RandPS {} = "RandPS"
    shortShow PutForeground {} = "PutForeground"
    shortShow PutWorldUpdate {} = "PutWorldUpdate"