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
@@ -321,9 +321,6 @@ shatterGunSPic =
    xa = 1
    xb = 9

-baseCaneShape :: Shape
-baseCaneShape = colorSH red $ xCylinderST 3 15
-
 baseRifleShape :: Shape
 baseRifleShape = colorSH red $ xCylinderST 3 25

@@ -372,12 +369,11 @@ miniGunXPictItem i it = miniGunXPict i (_wTime (_itParams it) - 10)

 miniGunXPict :: Int -> Int -> SPic
 miniGunXPict i spin =
-    noPic
-        ( colorSH red (rotateSHx a barrels)
-            <> baseRifleShape
-        )
+    noPic .
+        colorSH red $ rotateSHx a barrels
+            <> xCylinderST 3 40
  where
-    aBarrel = translateSH (V3 15 2 2) baseCaneShape
+    aBarrel = translateSH (V3 15 4 2.5) $ xCylinderST 2 25
    barrels = foldMap (\an -> aBarrel & rotateSHx (2 * pi * fromIntegral an / fromIntegral i)) [1 .. i]
    a = fromIntegral spin / 100