Tweak pipes and girders

src/Dodge/LevelGen.hs

@@ -19,6 +19,7 @@ import Dodge.LevelGen.TriggerDoor
 import Dodge.LevelGen.Switch
 import Dodge.LevelGen.Data
 import Geometry
+import Geometry.Vector3D
 import Shape
 --import Geometry.Data
 import Picture
@@ -199,9 +200,10 @@ placeCr crF p rot = over creatures addCr
 placeLS :: LightSource -> Picture -> Point3 -> Float -> World -> World
 placeLS ls dec (V3 x y z) rot w = over lightSources addLS $ over decorations addDec w
   where 
+    startPos = _lsPos ls
     addLS lss = IM.insert 
         (IM.newKey lss) 
-        (ls {_lsPos = V3 x y z,_lsDir = rot,_lsID = IM.newKey lss}) 
+        (ls {_lsPos = V3 x y z +.+.+ startPos,_lsDir = rot,_lsID = IM.newKey lss}) 
         lss
     addDec decs = IM.insert 
         (IM.newKey decs)