Continue link cleanup

2022-03-05 01:29:24 +00:00
parent 0c580e63a4
commit f82bd3f788
5 changed files with 22 additions and 24 deletions
@@ -102,11 +102,11 @@ rezBoxes = do
    centralRoom <- shuffleLinks $ setInLinksPD bottomEdgeTest
        ((roomRectAutoLinks w h) {_rmPmnts = []})
    let n = length $ filter bottomEdgeTest $ map lnkPosDir $_rmLinks centralRoom
-    centralRoom' <- changeLinkFrom bottomEdgeTest centralRoom
+--    let centralRoom' = restrictOutLinks bottomEdgeTest centralRoom
    return $ treeFromTrunk [PassDown $ rezBox thecol
        , PassDown door
        ] 
-        (Node (PassDown centralRoom') (replicate (n-1) dbox ++ [Node (UseAll door) []]))
+        (Node (PassDown centralRoom) (replicate (n-1) dbox ++ [Node (UseAll door) []]))
    

 rezColor :: RandomGen g => State g LightSource