Add shapes for some craft items

2024-12-21 13:30:28 +00:00
parent d3a74912d1
commit a79dbf3b0e
4 changed files with 72 additions and 98 deletions
@@ -136,6 +136,7 @@ xCylinderST = xCylinder Small Typical
 xCylinder :: Size -> Importance -> Float -> Float -> Shape
 xCylinder size shad r x =
    translateSHz r . rotateSHq (V3 0 1 0) (pi / 2) . upperCylinder size shad x $
+    -- why didn't I make this a simple circle?
        [ V2 r r
        , V2 (- r / 2) (r / 2)
        , V2 (- r / 2) (negate $ r / 2)