Start adding machines for storing/distributing items

src/Dodge/Placement/TopDecoration.hs

@@ -28,32 +28,32 @@ midBarDecoration w h z =
   where
     w' = 0.3 * w
     embossingR =
-            prismPoly
-                Medium
-                Typical
-                [V3 w h z, V3 w (0.3 * h) 41, V3 w (-0.3 * h) 41, V3 w (- h) z]
-                [V3 w' h z, V3 w' (0.3 * h) 41, V3 w' (-0.3 * h) 41, V3 w' (- h) z]
+        prismPoly
+            Medium
+            Typical
+            [V3 w h z, V3 w (0.3 * h) 41, V3 w (-0.3 * h) 41, V3 w (- h) z]
+            [V3 w' h z, V3 w' (0.3 * h) 41, V3 w' (-0.3 * h) 41, V3 w' (- h) z]
 
 fourEmbossDecoration :: Float -> Float -> Float -> Shape
 fourEmbossDecoration w h z = foldMap f [(w, h), (- w, h), (w, - h), (- w, - h)]
   where
     f (a, b) = translateSH (V3 (a / 2) (b / 2) z) embossing
-    embossing = upperBoxHalf Large Typical 10 $ rectNSWE (h / 2) (- h / 2) (- w / 2) (w / 2)
+    embossing = upperBoxHalf Large Typical 10 $ rectWH (w/2) (h/2)
 
 plusDecoration :: Float -> Float -> Float -> Shape
 plusDecoration w h z =
-        thinHighBar z (V2 w 0) (V2 (- w) 0)
-            <> thinHighBar z (V2 0 h) (V2 0 (- h))
+    thinHighBar z (V2 w 0) (V2 (- w) 0)
+        <> thinHighBar z (V2 0 h) (V2 0 (- h))
 
 squareDecoration :: Float -> Float -> Float -> Shape
 squareDecoration w h z =
-        foldMap
-            f
-            [ (w', - w', h', h')
-            , (w', - w', - h', - h')
-            , (w', w', h', - h')
-            , (- w', - w', h', - h')
-            ]
+    foldMap
+        f
+        [ (w', - w', h', h')
+        , (w', - w', - h', - h')
+        , (w', w', h', - h')
+        , (- w', - w', h', - h')
+        ]
   where
     w' = w - 1.5
     h' = h - 1.5
@@ -65,14 +65,8 @@ circleDecoration w _ z = foldMap toprail (take 8 [0, pi / 4 ..])
     toprail a = rotateSH a $ thinHighBar z (V2 0 w) (rotateV (pi / 4) $ V2 0 w)
 
 threeLineDecoration :: Float -> Float -> Float -> Shape
-threeLineDecoration w h z =
-        foldMap
-            f
-            [ (w', - w', h', h')
-            , (w', - w', 0, 0)
-            , (w', - w', - h', - h')
-            ]
+threeLineDecoration w h z = foldMap f [h', 0, - h']
   where
     w' = w - 1.5
     h' = h - 1.5
-    f (a, c, b, d) = thinHighBar z (V2 a b) (V2 c d)
+    f x = thinHighBar z (V2 w' x) (V2 (- w') x)