Allow shadow fidelity option, fix bug in rendering box shadows

src/Dodge/Machine/Draw.hs

@@ -28,13 +28,13 @@ terminalShape :: Machine -> Shape
 terminalShape mc =
     colorSH
         col
-        ( prismPoly
+        ( 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]
         )
         <> colorSH
             black
-            ( prismPoly
+            ( 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,7 +45,7 @@ terminalShape mc =
 
 drawBaseMachine :: Float -> Machine -> SPic
 drawBaseMachine h mc =
-    ( colorSH (_mcColor mc) $ upperPrismPoly h (reverse $ square (_mcWidth mc))
+    ( colorSH (_mcColor mc) $ upperBox Medium Typical h (reverse $ square (_mcWidth mc))
     , mempty
     )
 drawTurret :: Turret -> Machine -> SPic