Allow shadow fidelity option, fix bug in rendering box shadows

src/Dodge/Placement/Instance/Pipe.hs

@@ -4,7 +4,7 @@ import Geometry
 import Quaternion
 
 verticalPipe :: Float -> Shape
-verticalPipe = flip upperPrismPoly $ polyCirc 2 5
+verticalPipe = flip (upperBox Small Typical) (polyCirc 2 5)
 
 horPipe :: Float -> Point2 -> Point2 -> Shape
 horPipe h x y = translateSH (x `v2z` h) $ overPosSH (rotateToZ (V3 xd yd 0)) $ verticalPipe (dist x y)

src/Dodge/Placement/TopDecoration.hs

@@ -22,7 +22,7 @@ midBarDecoration w h z _ c =
     w' = 0.3 * w
     embossingR =
         colorSH c $
-            prismPoly
+            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]
 
@@ -30,7 +30,7 @@ fourEmbossDecoration :: Float -> Float -> Float -> Color -> Color -> Shape
 fourEmbossDecoration w h z _ c = colorSH c $ foldMap f [(w, h), (- w, h), (w, - h), (- w, - h)]
   where
     f (a, b) = translateSH (V3 (a / 2) (b / 2) z) embossing
-    embossing = upperPrismPolyHalf 10 $ reverse $ rectNSWE (h / 2) (- h / 2) (- w / 2) (w / 2)
+    embossing = upperBoxHalf Large Typical 10 $ reverse $ rectNSWE (h / 2) (- h / 2) (- w / 2) (w / 2)
 
 plusDecoration :: Float -> Float -> Float -> Color -> Color -> Shape
 plusDecoration w h z _ c =