Refactor item drawing

src/Dodge/Room/RoadBlock.hs

@@ -13,6 +13,7 @@ import Dodge.LevelGen.Data
 --import Dodge.RandomHelp
 import Dodge.Creature
 import Dodge.Layout.Tree.Polymorphic
+import Dodge.LightSources.Fitting
 
 import Data.Tree
 import Control.Monad.State
@@ -71,8 +72,9 @@ longBlockedCorridor = do
 blockedCorridor :: RandomGen g => State g (Tree (Either Room Room))
 blockedCorridor = do
     r <- state $ randomR (0,pi)
-    let plmnts = [sPS (V2 20 40) r $ PutBlock [5,5,5] (V4 (150/256) ( 75/256)  0 ( 250/256)) 
+    let plmnts = 
+            [sPS (V2 20 40) r $ PutBlock [5,5,5] (V4 (150/256) ( 75/256)  0 ( 250/256)) 
                                           $ reverse $ rectNSWE 10 (-10) (-10) 10
-                 ,sPS (V2 20 15) 0 putLamp
-                 ]
+            ,mountedLightI 55 (V2 0 15) (V2 40 15)
+            ]
     sequence $ treeFromPost [] $ return $ Right $ set rmPS plmnts corridor