Allow for creature death sounds

2026-01-02 15:06:02 +00:00
parent b414da7dab
commit 71f56c0638
10 changed files with 367 additions and 320 deletions
@@ -131,14 +131,15 @@ xCylinderST :: Float -> Float -> Shape
 xCylinderST = xCylinder Small Typical

 xCylinder :: Size -> Importance -> Float -> Float -> Shape
-xCylinder size shad r x =
+xCylinder size shad d 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)
+        , V2 (-r) (r)
+        , V2 (-r) (-r)
        , V2 r (- r)
        ]
+  where
+    r = 0.5 * d

 upperBoxMT :: Float -> [Point2] -> Shape
 upperBoxMT = upperBox Medium Typical