Redo tree composition

2022-06-10 00:08:32 +01:00
parent 3edc7a0a58
commit 5532c25d3c
13 changed files with 114 additions and 52 deletions
@@ -6,6 +6,7 @@ module Dodge.Room.Branch
 --import Geometry
 --import Dodge.LevelGen.Data
 import Dodge.Data
+import Dodge.UseAll
 import Dodge.Room.Door
 import Dodge.Room.Link
 import Dodge.Room.Procedural
@@ -23,5 +24,5 @@ branchRectWith t = do
    rt <- shuffleLinks $ roomRectAutoLinks x y
    return $ Node ( rt) 
        [ Node (useAll door) []
-        , changeTo <$> treeFromTrunk [ door] b
+        , useSide <$> treeFromTrunk [ door] b
        ]