Simplify tank decorations

src/Dodge/Room/Corridor.hs

@@ -21,7 +21,8 @@ corridor =
         , _rmLinks = lnks'
         , --, _rmPath  = foldMap (doublePairSet . (,) (V2 20 60) . fst) lnks
           _rmPath = foldMap (doublePairSet . (,) (V2 20 60)) [V2 20 70, V2 20 10]
-        , _rmPmnts = [spanLightI (V2 0 39.5) (V2 40 39.5)]
+        --, _rmPmnts = [spanLightI (V2 0 39.5) (V2 40 39.5)]
+        , _rmPmnts = []
         , _rmBound = [rectNSWE 50 30 (-5) 45]
         , _rmFloor = Tiled [makeTileFromPoly poly 5]
         , _rmRandPSs = [psRandRanges (10, 30) (30, 60) (0, 2 * pi)]

src/Dodge/Room/Tutorial.hs

@@ -49,7 +49,8 @@ tutAnoTree = do
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
-        , tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
+        --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
+        , tToBTree "sdr" . return . cleatOnward <$> tanksPipesRoom
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor