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
@@ -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)