Unify more doors

2021-11-02 11:04:23 +00:00
parent 7ef1da9be5
commit 9eda8c81a9
9 changed files with 72 additions and 63 deletions
@@ -17,13 +17,11 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutProp Prop
    | PutFlIt Item
    | PutPressPlate PressPlate
-   -- | PutAutoDoor Point2 Point2
    | PutBlock [Int] Color [Point2]
    | PutLineBlock Wall Float Float Point2 Point2
    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
-    | PutSingleDoor Color (World -> Bool) Point2 Point2 Float
+    | PutSlideDoor Bool Color (World -> Bool) Point2 Point2 Float
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
-    | PutBtDoor Color Point2 Float Point2 Point2 Float
    | RandPS (State StdGen PSType)
    | PutForeground Shape
    | PutNothing