Fix incorrect creation of unused links pos

2022-03-08 09:48:45 +00:00
parent 59e6f433ff
commit 8179a2aa4f
8 changed files with 35 additions and 35 deletions
@@ -20,6 +20,8 @@ branchRectWith t = do
    x <- state $ randomR (100,200)
    y <- state $ randomR (100,200)
    b <- t
-    root <- randomiseOutLinks $ roomRectAutoLinks x y
-    return $ Node (PassDown root) [Node (UseAll door) [], changeToPassDown <$> 
-        treeFromTrunk [PassDown door] b]
+    root <- shuffleLinks $ roomRectAutoLinks x y
+    return $ Node (PassDown root) 
+        [ Node (UseAll door) []
+        , changeToPassDown <$> treeFromTrunk [PassDown door] b
+        ]