Various improvements, metal debris

2022-06-23 18:53:26 +01:00
parent e3d5c4eb4b
commit 8d266a6770
18 changed files with 147 additions and 82 deletions
@@ -1397,7 +1397,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutLineBlock {_putWall :: Wall , _putWidth :: Float
        , _putDepth :: Float, _putStartPoint :: Point2, _putEndPoint :: Point2}
    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
-    | PutSlideDr Bool Color Door Float Point2 Point2
+    | PutSlideDr Door Wall Float Point2 Point2
 --    | PutSlideDr Bool Color (World -> Bool) Float Point2 Point2 Float
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
    | RandPS (State StdGen PSType)