Allow shadow fidelity option, fix bug in rendering box shadows

2023-03-25 17:22:58 +00:00
parent cdc4a84d4b
commit d989acd6f2
26 changed files with 410 additions and 258 deletions
@@ -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