Add or annotations

2021-04-22 13:34:53 +02:00
parent 0e88544de2
commit 1ab793180c
2 changed files with 7 additions and 1 deletions
@@ -33,7 +33,7 @@ roomTreex = do
    struct' <- aTreeStrut
    let struct = Node [EndRoom] []
    let t' = padCorridors struct
-        t = treeTrunk [[StartRoom],[Corridor],[FirstWeapon],[Corridor]] t'
+        t = treeTrunk [[StartRoom],[OrAno [[DoorAno],[Corridor]] ],[FirstWeapon],[Corridor]] t'
    fmap (shiftExpandTree . expandTreeBy id) $ mapM annoToRoomTree t

 levx :: RandomGen g => State g [Room]