Add more procedural girders

src/Dodge/Room/Procedural.hs

@@ -22,7 +22,6 @@ import Dodge.Room.Path
 import Dodge.Default.Room
 --import Dodge.Item.Consumable
 --import Dodge.Item.Equipment
-import Dodge.Room.Foreground
 --import Dodge.Item.Weapon
 import Dodge.RandomHelp
 import Dodge.LevelGen.Data
@@ -248,13 +247,13 @@ centerVaultRoom w h d = do
             ,sps0 $ PutWall (rectNSEW   d  (d - 30) (-d) (30 - d)) defaultWall
             ,sps0 $ PutWall (rectNSEW (-d) (30 - d)   d  (d - 30)) defaultWall
             ,sps0 $ PutWall (rectNSEW (-d) (30 - d) (-d) (30 - d)) defaultWall
-            ,sps0 $ PutShape $ girder 70 10 10 (V2 (d-11) (-d)) (V2 (d-11) (-h))
             ]
             ++ map (\a -> mntLS vShape (rotateV a $ V2 0  d) (rotate3z a $ V3 0 (d+30) 70))
                 [0,0.5*pi,pi,1.5*pi]
             ++ concatMap (\r -> map (shiftPlacement (V2 0 0,r)) theDoor) 
                         [0,pi/2,pi,3*pi/2]
         , _rmBound  = [rectNSWE h (-h) (-w) w]
+        , _rmName = "cenVault"
         }
   where
     col = dim $ dim $ bright red