Refactor item drawing

src/Dodge/Room/Procedural.hs

@@ -15,7 +15,6 @@ import Dodge.Room.Data
 import Dodge.Room.Placement
 import Dodge.Room.Link
 import Dodge.Room.Path
-import Dodge.Placement
 import Dodge.Default.Room
 import Dodge.Item.Consumable
 import Dodge.Item.Equipment
@@ -28,6 +27,7 @@ import Dodge.LightSources.Fitting
 import Dodge.Creature
 --import Dodge.Default
 import Geometry
+import Geometry.Vector3D
 import Picture
 import Data.Tile
 
@@ -235,12 +235,14 @@ 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 $ PutForeground $ girder 55 10 10 (V2 (-w) (h/2)) (V2 w (h/2))
-            ,sps0 $ PutForeground $ girder 55 10 10 (V2 (-w) (h/2)) (V2 w (h/2))
-            ,mountedLight (V2 (-w) (h/2-20)) (V3 (20-w) (h/2-20) 70)
-            ,mountedLight (V2   w  (h/2-20)) (V3 (w-20) (h/2-20) 70)
-            ,mountedLightV (V2 0  (d-20)) (V3 0 0 70)
+--            ,sps0 $ PutForeground $ girder 55 10 10 (V2 (-w) (h/2)) (V2 w (h/2))
+            ,sps0 $ PutForeground $ girder 70 10 10 (V2 (d-11) (-d)) (V2 (d-11) (-h))
+--            ,mountedLight (V2 (-w) (h/2-20)) (V3 (20-w) (h/2-20) 70)
+--            ,mountedLight (V2   w  (h/2-20)) (V3 (w-20) (h/2-20) 70)
+--            ,mountedLightV (V2 0  (d-20)) (V3 0 0 70)
             ]
+            ++ map (\a -> mountedLightV (rotateV a $ V2 0  d) (rotate3z a $ V3 0 (d+30) 70))
+                [0,0.5*pi,pi,1.5*pi]
             ++ concat (map (\r -> map (shiftPSBy (V2 0 0,r)) $ theDoor) 
                         [0,pi/2,pi,3*pi/2])
         , _rmBound  = [rectNSWE h (-h) (-w) w]