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
@@ -90,7 +90,8 @@ highBar :: Float -> Float -> Point2 -> Point2 -> Shape
 highBar thickness h x y =
    translateSHz h $
        colorSH orange $
-            upperPrismPoly
+            upperBoxMT
+            --upperPrismPolySU
                thickness
                [x +.+ n, y +.+ n, y -.- n, x -.- n]
  where
@@ -236,7 +237,7 @@ barPP :: Float -> Point3 -> Point3 -> Shape
 barPP w a b
    | a == b = mempty
    | otherwise =
-        prismPoly
+        cylinderPoly Medium Typical
            (map ((+.+.+ a) . rotateToZ z1 . addZ 0) $ polyCirc 2 w)
            (map ((+.+.+ b) . rotateToZ z1 . addZ 0) $ polyCirc 2 w)
  where