Move toward moving lights on doors

2022-03-09 22:41:17 +00:00
parent 027b4b7d8b
commit c583d33b57
6 changed files with 31 additions and 25 deletions
@@ -739,9 +739,9 @@ data Door = Door
    , _drStatus  :: DoorStatus
    , _drTrigger :: World -> Bool
    , _drMech    :: Door -> World -> World
-    , _drPos :: Point2
-    , _drOpenPos :: Point2
-    , _drClosePos :: Point2
+    , _drPos :: (Point2,Point2)
+    , _drOpenPos :: (Point2,Point2)
+    , _drClosePos :: (Point2,Point2)
    }
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
  deriving (Eq, Ord, Show)