Work on placements

2025-09-24 22:16:38 +01:00
parent da8230fe00
commit 91e67e37dc
7 changed files with 99 additions and 406 deletions
@@ -52,8 +52,8 @@ layoutLevelFromSeed i seed = do
    putStrLnAppend "log/attemptedSeeds" $ "Generating level with seed " ++ show seed
    appendFile "log/attemptedSeeds" "\n"
    let g = mkStdGen seed
-    --let treecluster = evalState tutRoomTree (LayVars g 0)
-    let treecluster = evalState initialRoomTree (LayVars g 0)
+    let treecluster = evalState tutRoomTree (LayVars g 0)
+--    let treecluster = evalState initialRoomTree (LayVars g 0)
    let labts = decomposeSelfTree $ numSelfTree $ combineTree _rmName treecluster
    appendFile "log/treeCluster" ("Seed: " ++ show seed ++ "\n")
    putStrLn "MetaTree clusters:"