Tweak bloom, remove pistol spread

src/Dodge/Item/Weapon/Bezier.hs

@@ -50,7 +50,7 @@ shootBezier targetp cr w = w & particles %~ (theBullet :)
   where
     theBullet = aCurveBulAt 
         (Just cid) 
-        white 
+        (V4 200 200 200 1) 
         startp 
         (controlp +.+ randPos) 
         (targetp +.+ randPos')

src/Dodge/Item/Weapon/Bullet.hs

@@ -10,7 +10,7 @@ basicBullet = BulletAmmo
     { _amString = "BULLET"
     , _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
     , _amBulWth = 2
-    , _amBulVel = V2 30 0
+    , _amBulVel = V2 50 0
     }
 hvBullet :: Ammo
 hvBullet = BulletAmmo

src/Dodge/Item/Weapon/Laser.hs

@@ -62,7 +62,6 @@ moveLaser phaseV pos dir w pt
     xp = pos +.+ 800 *.* unitVectorAtAngle dir
     (a,g)  = randomR (-0.7,0.7) $ _randGen w
     reflectDir wall = a + argV (reflectIn (uncurry (-.-) (_wlLine wall)) (xp -.- pos))
-    (colID,_) = randomR (0,11) $ _randGen w
     f :: [Wall] -> Point2 -> Point2 -> (Maybe (Point2,Either3 Creature Wall ForceField),[Point2])
     f seenWs x y = case find (h' seenWs) $ thingsHitExceptCrLongLine Nothing x y w of
         Just (p,E3x2 wl) 
@@ -103,14 +102,18 @@ moveLaser phaseV pos dir w pt
           Just (p,E3x1 cr) 
               -> over (creatures . ix (_crID cr) . crState . crDamage) ((:) $ Lasering 19 pos p xp)
 --                  . over worldEvents ((.) $ flareAt yellow (flarePos p))
-          Just (p,E3x2 wl) -> createSpark 8 colID (p +.+ safeNormalizeV (pos -.- p))
+          Just (p,E3x2 wl) -> createSparkCol 8 (V4 20 (-5) 0 1) (p +.+ safeNormalizeV (pos -.- p))
                                                       (reflectDir wl) Nothing
           _   -> id
-    pic = setDepth 20 $ pictures 
-        [ fadeLine pos (head ps) 0.2 40 yellow
-        , setLayer 1 $ color (withAlpha 0.9 white) $ vThickLine (pos:ps)
-        , setLayer 1 $ color (withAlpha 0.5 yellow) $ vvThickLine (pos:ps)
+    pic = setLayer 1 $ pictures
+        [ setDepth 19 . color (brightX 0 0.5 yellow) $ lineOfThickness 20 (pos:ps)
+        , setDepth 19.5 . color (brightX 10 1 yellow) $ lineOfThickness 3 (pos:ps)
         ]
+        -- $ pictures 
+        --[ fadeLine pos (head ps) 0.2 40 yellow
+        --, setLayer 1 $ color (withAlpha 0.9 white) $ vThickLine (pos:ps)
+        --, setLayer 1 $ color (withAlpha 0.5 yellow) $ vvThickLine (pos:ps)
+        --]
 
 fadeLine :: Point2 -> Point2 -> Float -> Float -> Color -> Picture
 fadeLine sp ep alph width col = setLayer 1 $ polygonCol