Fix wall bug, refactor placements

src/Dodge/Room/Procedural.hs

@@ -21,6 +21,7 @@ import Dodge.Item.Weapon
 import Dodge.RandomHelp
 import Dodge.LevelGen
 import Dodge.LevelGen.Data
+import Dodge.LightSources.Fitting
 import Dodge.Creature
 --import Dodge.Default
 import Geometry
@@ -49,7 +50,7 @@ roomRect x y xn yn = defaultRoom
     { _rmPolys = [rectNSWE  y 0 0 x ]
     , _rmLinks = lnks
     , _rmPath  = concatMap doublePair pth
-    , _rmPS    = [sPS (V2 (x/2) (y/2)) 0 putLamp]
+    , _rmPS    = [wallMountL (V2 (x/2) 0) (V3 (x/2) 40 50)]
     , _rmBound = [rectNSWE (y+5) (-5) (-5) (x+5)]
     , _rmFloor = [Tile 
             { _tilePoly = rectNSWE y 0 0 x