Add RoomCluster ideas

2022-06-09 12:30:34 +01:00
parent 9252c48d2b
commit 785dbba5ef
6 changed files with 139 additions and 3 deletions
@@ -102,6 +102,3 @@ initialAnoTree = padSucWithDoors $ treeFromPost
 {- | A test level tree. -}
 initialRoomTree :: State StdGen (Tree (LabSubCompTree Room))
 initialRoomTree = mapM anoToRoomTree initialAnoTree
--initialRoomTree :: State StdGen (Tree Room)
--initialRoomTree = do
--    expandTree <$> mapM anoToRoomTree initialAnoTree