Tweak bloom, remove pistol spread

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -303,10 +303,10 @@ drawTeslaArc pt = pic
   where
     ps' = _ptPoints pt
     pic = setLayer 1 $ pictures 
-             [ setDepth 20.5 $ color (_ptColor pt) $ line ps'
-             , setDepth 20 $ color (withAlpha 0.02 cyan) $ lineOfThickness 20 ps'
-             , setDepth 20 $ color (withAlpha 0.02 cyan) $ lineOfThickness 25 ps'
-             , setDepth 20 $ color (withAlpha 0.02 cyan) $ lineOfThickness 30 ps'
+             [ setDepth 20.5 $ color (brightX 2 2 $ _ptColor pt) $ lineOfThickness 3 ps'
+--             , setDepth 20 $ color (withAlpha 0.02 cyan) $ lineOfThickness 20 ps'
+--             , setDepth 20 $ color (withAlpha 0.02 cyan) $ lineOfThickness 25 ps'
+--             , setDepth 20 $ color (withAlpha 0.02 cyan) $ lineOfThickness 30 ps'
              ]
 -- todo: fix electrical damage location
 moveTeslaArc 
@@ -326,13 +326,13 @@ moveTeslaArc p d w pt
     | otherwise = (w , Just $ pt & ptTimer -~ 1)
  where 
     t = _ptTimer pt
-    ps = take 15 $ p : map f (crsLightChain p d 0 w)
+    ps = take 25 $ p : map f (crsLightChain p d 0 w)
     f (E3x1 cr) = _crPos cr
     f (E3x2 p1) = p1
     f (E3x3 p1) = p1
     ps' = lightningMids d pers ps
     pers = evalState (sequence $ repeat $ randInCirc 5) $ _randGen w
-    (nc,g) = randomR (0::Int,11) $ _randGen w
+    (nc,g) = randomR (0::Int,5) $ _randGen w
     theColor = f2 nc
     f2 0 = cyan
     f2 1 = azure
@@ -452,7 +452,7 @@ createSpark time colid pos dir maycid w
         { _ptDraw = drawBul
         , _ptUpdate' = mvGenBullet
         , _btVel' = rotateV dir (V2 5 0)
-        , _btColor' = numColor colid
+        , _btColor' = brightX 100 1.5 $ numColor colid
         , _btTrail' = [pos]
         , _btPassThrough' = maycid
         , _btWidth' = 1