Fix some shapes

src/Dodge/Machine/Draw.hs

@@ -28,13 +28,17 @@ terminalShape :: Machine -> Shape
 terminalShape mc =
     colorSH
         col
-        ( prismBox Medium Typical
+        ( prismBox
+            Medium
+            Typical
             [V3 10 10 20, V3 (-10) 10 20, V3 (-10) (-10) 10, V3 10 (-10) 10]
-            [V3 10 10 0, V3 (-10) 10 0, V3 (-10) (-10) 0, V3 10 (-10) 0]
+            (addZ 0 `map` rectWH 10 10)
         )
         <> colorSH
             black
-            ( prismBox Small Superfluous
+            ( prismBox
+                Small
+                Superfluous
                 [V3 8 8 20, V3 (-8) 8 20, V3 0 (-8) 10]
                 [V3 8 8 19, V3 (-8) 8 19, V3 0 (-8) 9]
                 --[V3 8 8 20, V3 (-8) 8 20, V3 (-8) (-8) 10, V3 8 (-8) 10]
@@ -45,9 +49,12 @@ terminalShape mc =
 
 drawBaseMachine :: Float -> Machine -> SPic
 drawBaseMachine h mc =
-    ( colorSH (_mcColor mc) $ upperBox Medium Typical h (reverse $ square (_mcWidth mc))
-    , mempty
-    )
+    noPic
+        . colorSH (_mcColor mc)
+        . upperBox Medium Typical h
+        . square
+        $ _mcWidth mc
+
 drawTurret :: Turret -> Machine -> SPic
 drawTurret tu mc = overPosSP (turretItemOffset it tu mc) (itemSPic it)
   where