Fix wall zoning

src/Dodge/Room/Foreground.hs

@@ -5,8 +5,12 @@ import Geometry
 import Shape
 import Quaternion
 
+import Dodge.Data.ForegroundShape
+import Dodge.Default.Foreground
 import Data.List
 import Data.Maybe
+import Control.Lens
+import ShapePicture
 
 highDiagonalMesh
     :: Point2 
@@ -111,6 +115,25 @@ girderVCapLR csize h d w x y = thinHighBar h (x -.- n) (x +.+ n)
   where
     n = csize *.* vNormal (normalizeV (x -.- y))
 
+girderV'
+    :: Float -- ^ "cap" size
+    -> Float -- ^ height
+    -> Float -- ^ distance between cross bars
+    -> Float -- ^ width
+    -> Point2 -> Point2 -> ForegroundShape
+girderV' csize h d w x y = defaultForeground
+    & fsPos .~ m
+    & fsRad .~ dist m x'
+    & fsSPic .~ noPic sh
+  where
+    m = midPoint x y
+    x' = x - m
+    y' = y - m
+    sh = thinHighBar h (x' -.- n) (x' +.+ n)
+        <> thinHighBar h (y' -.- n) (y' +.+ n)
+        <> girderV h d w x' y'
+    n = csize *.* vNormal (normalizeV (x' -.- y'))
+
 girderV 
     :: Float -- ^ height
     -> Float -- ^ distance between cross bars