Implement moving mounted lights

2022-03-10 14:43:41 +00:00
parent c583d33b57
commit 907cca0ef0
8 changed files with 80 additions and 21 deletions
@@ -28,7 +28,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutTrigger (World -> Bool)
    | PutLineBlock Wall BlockMaterial Float Float Point2 Point2
    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
-    | PutSlideDr Bool Color (World -> Bool) Point2 Point2 Float
+    | PutSlideDr Bool Color (World -> Bool) Float Point2 Point2 Float
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
    | RandPS (State StdGen PSType)
    | PutShape Shape