Migrate more doors to lerp

2025-10-22 09:22:10 +01:00
parent fdee74ff0c
commit 2f06c56185
8 changed files with 187 additions and 144 deletions
@@ -54,7 +54,8 @@ data PSType
        }
    | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
    | PutSlideDr Door Wall EdgeObstacle Float Point2 Point2
-    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
+--    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
+    | PutDoor Color EdgeObstacle WdBl Float Point2A Point2A -- [(Point2, Point2)]
    | RandPS (State StdGen PSType)
    | PutForeground ForegroundShape
    | PutWorldUpdate (Int -> PlacementSpot -> GenWorld -> GenWorld)