Define room link datatypes

2021-11-23 13:00:34 +00:00
parent f51a6a7216
commit 67b0d694af
6 changed files with 25 additions and 14 deletions
@@ -53,7 +53,7 @@ posRms bounds parenti numChild (t@(Node childi _):ts) tseq = do
      where
        convexBounds = map pointsToPoly $ _rmBound r'
        clipping = or (convexPolysOverlap <$> convexBounds <*> bounds)
-        upr rm = doLnkEff l $ rm & rmLinks %~ delete l & rmPos %~ (uncurry (OutLink numChild) l :)
+        upr rm = doLnkEff l $ rm & rmLinks %~ delete l & rmPos %~ (uncurry (UsedOutLink numChild) l :)
        l' = shiftLinkBy (_rmShift parent) l
        r' = doRoomShift . fst $ rootLabel shiftedt
        shiftedt = applyToRoot (first $ shiftRoomShiftToLink l') t