Reset Shapes to be list (not stream) of ShapeObj

src/Dodge/Floor.hs

@@ -43,16 +43,16 @@ initialAnoTree = OnwardList
     [ IntAnno $ AnTree . startRoom
     , AnRoom $ roomCCrits 0
     , AnRoom $ return airlock0
---    , AnRoom slowDoorRoom
+    , AnRoom slowDoorRoom
 --    , AnRoom $ roomCCrits 10
 --    , AnTree firstBreather
-    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
-    ]
-
-extraAnoList :: [Annotation]
-extraAnoList =
---     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
-    [ AnRoom $ roomCCrits 10
+--    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
+--    ]
+--
+--extraAnoList :: [Annotation]
+--extraAnoList =
+----     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
+--    [ AnRoom $ roomCCrits 10
     , AnRoom $ roomCCrits 10
     , AnTree $ tToBTree "spawners" <$> spawnerRoom
     , AnRoom pistolerRoom