Tweak pipes and girders

src/Dodge/Room/Corridor.hs

@@ -1,9 +1,11 @@
 module Dodge.Room.Corridor
     where
 import Dodge.Room.Data
+import Dodge.Room.Foreground
 import Dodge.Default.Room
+import Dodge.LevelGen.Data
+import Dodge.LightSources
 import Geometry
---import Geometry.Data
 import Tile
 
 import Data.Bifunctor
@@ -14,7 +16,10 @@ corridor = defaultRoom
     { _rmPolys = [poly]
     , _rmLinks = lnks
     , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPS    = []
+    , _rmPS    = 
+        [ sPS (V2 20 40) 0 $ PutLS (lightAt (V3 0 0 50) 0) (lampPic 50)
+        , sPS (V2 0 0)   0 $ PutForeground $ highPipe 55 (V2 0 40) (V2 40 40)
+        ]
     , _rmBound = [ rectNSWE 50 30 0 40 ]
     , _rmFloor = [makeTileFromPoly poly 2]  
     }