Move muzzles out of records

2025-06-05 10:04:35 +01:00
parent 83a41e0204
commit 324a64814e
20 changed files with 320 additions and 213 deletions
@@ -276,9 +276,11 @@ torchShape =
    back = upperPrismPolySE 3 $ rectXH 1 2

 baseStickShapeX :: Item -> Int -> Shape
-baseStickShapeX it _ = foldMap f (it ^?! itUse . heldMuzzles)
-  where
-    f brl = rotateSH (_mzRot brl) baseStickShape
+baseStickShapeX _ _ = mempty 
+--baseStickShapeX it _ = mempty 
+--    foldMap f (it ^?! itUse . heldMuzzles)
+--  where
+--    f brl = rotateSH (_mzRot brl) baseStickShape

 baseStickShape :: Shape
 baseStickShape = colorSH green $ xCylinderST 3 10