Generalise link effects

2022-06-02 22:50:42 +01:00
parent 15d8b821d4
commit 28a002eb08
4 changed files with 17 additions and 12 deletions
@@ -1409,10 +1409,14 @@ assigning no bounds will allow rooms to overlap.  -}
 data Room = Room
    { _rmPolys      :: [ [Point2] ]
    , _rmLinks      :: [RoomLink]
-    --, _rmOutLinks      :: [RoomLink]
-    --, _rmInLinks      :: [RoomLink]
-        -- update the room when assigning the next link to an adjacent room with the head of of this list, return the tail
-    , _rmLinkEff    :: [RoomLink -> Room -> Room]
+    --  the Int is the number of previous outlinks that have been assigned
+    , _rmLinkEff    
+        :: RoomLink -- ^ child link
+        -> Room     -- ^ child room
+        -> Int      -- ^ child number
+        -> RoomLink -- ^ parent link
+        -> Room     -- ^ parent room
+        -> Room
    , _rmPos        :: [RoomPos]
    , _rmPath       :: [(Point2, Point2)]
    , _rmPmnts      :: [Placement]