Transition to new room datatypes, first separate out/inlinks

2021-11-23 17:27:33 +00:00
parent 67b0d694af
commit 0f4040807a
19 changed files with 119 additions and 87 deletions
@@ -63,7 +63,8 @@ assigning no bounds will allow rooms to overlap.
 -}
 data Room = Room
    { _rmPolys  :: [ [Point2] ]
-    , _rmLinks  :: [(Point2,Float)] 
+    , _rmOutLinks  :: [(Point2,Float)] 
+    , _rmInLinks :: [(Point2,Float)]
        -- update the room when assigning the next link to an adjacent room with the head of of this list, return the tail
    , _rmLinkEff :: [(Point2,Float) -> Room -> Room]
    , _rmPos    :: [RoomPos]