Tweak muzzle flare

src/Dodge/Item/Held/Stick.hs

@@ -34,7 +34,7 @@ bangStick i =
         & itUse . heldDelay . rateMax .~ 8
         & itUse . heldMods .~ BangStickMod
         & itUse . heldAim . aimHandlePos .~ 5
-        & itUse . heldAim . aimMuzzles .~ [Muzzle 10 a 0.01 | a <- spreadAroundCenter i baseStickSpread]
+        & itUse . heldAim . aimMuzzles .~ [Muzzle (V2 10 0) a 0.01 | a <- spreadAroundCenter i baseStickSpread]
         & itUse . heldConsumption . laSource . _InternalSource . iaMax .~ i
         & itUse . heldConsumption . laSource . _InternalSource . iaCycle .~ [loadPartialInsert 10 1]
 
@@ -61,7 +61,7 @@ pistol =
                )
         & itUse . heldDelay . rateMax .~ 6
         & itUse . heldMods .~ PistolMod
-        & itUse . heldAim . aimMuzzles .~ [Muzzle 0 0 0.05]
+        & itUse . heldAim . aimMuzzles .~ [Muzzle (V2 10 0) 0 0.05]
         & itParams
             %~ ( (muzVel .~ 0.8)
                     . (rifling .~ 0.8)

src/Dodge/Item/Weapon/TriggerType.hs

@@ -453,17 +453,14 @@ modClock n chainEff eff it cr w
     | otherwise = eff it cr w
 
 withMuzFlareI :: ChainEffect
-withMuzFlareI f it cr w =
+withMuzFlareI f it cr =
     makeTlsTimeRadColPos 2 100 (V3 1 1 0.5) (cpos `v2z` 20)
-        . muzFlareAt (V4 5 5 0 2) (cpos `v2z` 20) cdir
-        $ f it cr w
---    makeTlsTimeRadColPos 2 100 (V3 1 1 0.5) flashPos
---        . muzFlareAt (V4 5 5 0 2) flarePos cdir
---        $ f it cr w
+        -- . muzFlareAt (V4 5 5 0 2) (cpos `v2z` 20) cdir
+        . muzFlareAt (V4 5 5 1 3) (cpos `v2z` 20) cdir
+        . muzFlareAt (V4 5 5 1 3) (cpos `v2z` 20) cdir
+        . muzFlareAt (V4 5 5 1 3) (cpos `v2z` 20) cdir
+        . f it cr
   where
---    flarePos = addZ 0 (_crPos cr) +.+.+ rotate3z cdir (muzzleOffset cr it +.+.+ V3 0 0 20)
---    flashPos = addZ 0 (_crPos cr) +.+.+ rotate3z cdir (muzzleOffset cr it +.+.+ V3 5 0 20)
---    --    muzzleOffset = V3 (_muzPos (_dimPortage (_itDimension it))) 0 0
     cdir = _crDir cr
     cpos = _crPos cr