Redo tree composition

2022-06-10 00:08:32 +01:00
parent 3edc7a0a58
commit 5532c25d3c
13 changed files with 114 additions and 52 deletions
@@ -1,6 +1,7 @@
 module Dodge.Room.BlinkAcross where
 --import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
+import Dodge.UseAll
 import Dodge.Data
 import Dodge.Tree
 --import Dodge.RoomLink
@@ -38,8 +39,9 @@ blinkAcrossChallenge = do
    teleFromRoom <- shuffleLinks $ roomRectAutoLinks 200 200
    teleToRoom <- shuffleLinks $ roomRectAutoLinks 200 200
    emptylink <- shuffleLinks emptyCorridor 
-    return (treeFromPost [ teleFromRoom, emptylink] (useAll teleToRoom)
-        , TreeSubLabelling "blinkAcrossChallenge" Nothing)
+    return (toOnward "blinkAcrossChallenge"
+        ,treeFromPost [ teleFromRoom, emptylink] (useAll teleToRoom)
+        )

 emptyCorridor :: Room
 emptyCorridor = corridor & rmPolys .~ []