Separate placement spot from placement type

src/Dodge/Room/Foreground.hs

@@ -110,12 +110,13 @@ girderV h d w x y = colorSH red $ mconcat $
     evenDouble (a:_:xs) = a:a:evenDouble xs
     evenDouble xs = xs
 
-girder 
-    :: Float -- ^ height
+girderCol
+    :: Color
+    -> Float -- ^ height
     -> Float -- ^ distance between cross bars
     -> Float -- ^ width
     -> Point2 -> Point2 -> Shape
-girder h d w x y = colorSH red $ mconcat $
+girderCol col h d w x y = colorSH col $ mconcat $
     [ thinHighBar h xt yt
     , thinHighBar h xb yb
     ]
@@ -129,6 +130,13 @@ girder h d w x y = colorSH red $ 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 red
+
 robotArm :: Shape
 robotArm = undefined