Add automatic girder light placement for rectangular rooms

src/Dodge/Room/Foreground.hs

@@ -111,13 +111,12 @@ girderV h d w x y = mconcat $
     evenDouble (a:_:xs) = a:a:evenDouble xs
     evenDouble xs = xs
 
-girderCol
-    :: Color
-    -> Float -- ^ height
+girder
+    :: Float -- ^ height
     -> Float -- ^ distance between cross bars
     -> Float -- ^ width
     -> Point2 -> Point2 -> Shape
-girderCol col h d w x y = colorSH col $ mconcat $
+girder h d w x y = mconcat $
     [ thinHighBar h xt yt
     , thinHighBar h xb yb
     ]
@@ -131,13 +130,6 @@ girderCol col h d w x y = colorSH col $ mconcat $
     ps = divideLineExact d xb yb
     qs = divideLineExact d xt yt
 
-girder 
-    :: Float -- ^ height
-    -> Float -- ^ distance between cross bars
-    -> Float -- ^ width
-    -> Point2 -> Point2 -> Shape
-girder = girderCol orange
-
 robotArm :: Shape
 robotArm = undefined