Fix long door bug.

2021-08-17 20:59:10 +02:00
parent 92c897e6a2
commit 4b7562521c
7 changed files with 40 additions and 4 deletions
@@ -19,6 +19,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutLineBlock Wall Float Float Point2 Point2
    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
    | PutDoubleDoor Color (World -> Bool) Point2 Point2
+    | PutSingleDoor Color (World -> Bool) Point2 Point2
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
    | PutBtDoor Color Point2 Float Point2 Point2
    | PutSwitchDoor Color Point2 Float Point2 Point2