Allow shadow fidelity option, fix bug in rendering box shadows

src/Dodge/Block/Debris.hs

@@ -181,7 +181,7 @@ crystalDebris =
 shardShape :: Float -> Shape
 shardShape size =
     translateSHz (- size) $
-        upperPrismPoly
+        upperPrismPolySU
             size
             [ V2 size 0
             , V2 (- size) 1
@@ -194,4 +194,4 @@ jaggedShape = do
     return $ shardShape s
 
 cubeShape :: Float -> Shape
-cubeShape size = translateSHz (- size) $ upperPrismPoly (2 * size) $ square size
+cubeShape size = translateSHz (- size) $ upperPrismPolySU (2 * size) $ square size

src/Dodge/Block/Draw.hs

@@ -8,7 +8,7 @@ drawBlock :: BlockDraw -> Block -> SPic
 drawBlock bd = case bd of
     BlockDrawMempty -> const mempty
     BlockDraws bds  -> \bl -> foldMap (`drawBlock` bl) bds
-    BlockDrawColHeightPoss col h ps -> const $ noPic $ colorSH col (upperPrismPoly h ps)
+    BlockDrawColHeightPoss col h ps -> const $ noPic $ colorSH col (upperBox Medium Typical h ps)
     BlockDrawBlSh x -> noPic . doBlSh x
 
 doBlSh :: BlSh -> Block -> Shape