Implement shading for more types of shapes (cylinders, boxes)

2023-03-16 15:34:32 +00:00
parent 249262b2b6
commit 24c1264f96
7 changed files with 190 additions and 24 deletions
@@ -141,8 +141,6 @@ putShape sh =
    bnds = shapeBounds sh
    m = midBounds bnds

--shapePoints :: Shape -> Stream (Of Point2) Identity ()
--shapePoints = S.each . concatMap (map (stripZ . _svPos) . _shVs)
 shapePoints :: Shape -> [Point2]
 shapePoints = concatMap (map stripZ . _sfVs)