Cleanup particles slightly

src/Dodge/Particle/Bullet/HitEffect.hs

@@ -135,10 +135,11 @@ bulConCr' bt p cr w
 {- | Hitting wall effects: create a spark, damage blocks.  -}
 bulHitWall' :: Particle -> Point2 -> Wall -> World -> World
 bulHitWall' bt p x w = damageBlocksBy 5 x
-    $ createSpark 8 12 pOut (reflectDir x) Nothing
+    $ createSparkCol 8 theCol pOut (reflectDir x) Nothing
     $ set randGen g
     w
   where 
+    theCol = brightX 100 1.5 white
     sp = head $ _btTrail' bt
     pOut = p +.+ safeNormalizeV (sp -.- p)
     (a, g) = randomR (-0.2,0.2) $ _randGen w
@@ -197,10 +198,11 @@ hvBulHitWall' bt p x w =  damageBlocksBy 5 x $ set randGen g $ foldr ($) w (spar
     reflectDir wall = a + 
         argV (reflectIn (uncurry (-.-) (_wlLine wall)) (p -.- sp) )
     sv = unitVectorAtAngle $ reflectDir x
-    cs      = take 10 $ randomRs (0,11) $ _randGen w
+    cs'      = take 10 $ randomRs (0,11) $ _randGen w
+    cs      = map (brightX 100 1.5 . numColor) cs'
     ds      = randomRs (-0.7,0.7) $ _randGen w
     ts      = randomRs (4,8) $ _randGen w
-    sparks pos vel = zipWith3 (\t c d -> createSpark t c pos (argV vel + d) Nothing) ts cs ds
+    sparks pos vel = zipWith3 (\t c d -> createSparkCol t c pos (argV vel + d) Nothing) ts cs ds
 
 bulHitFF' :: Particle -> Point2 -> ForceField -> World -> World
 bulHitFF' _ _ _ = id