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

src/Dodge/Particle/Bullet/Spawn.hs

@@ -16,7 +16,7 @@ aGenBulAt
     -> HitEffect 
     -> Float    -- ^ Bullet width
     -> Particle
-aGenBulAt maycid pos vel hiteff width = Bul'
+aGenBulAt maycid pos vel hiteff width = BulletPt
     { _ptDraw = drawBul
     , _ptUpdate' = mvGenBullet
     , _btVel' = vel
@@ -35,7 +35,7 @@ aDelayedBulAt
     -> HitEffect 
     -> Float    -- ^ Bullet width
     -> Particle
-aDelayedBulAt vfact maycid pos vel hiteff width = Bul'
+aDelayedBulAt vfact maycid pos vel hiteff width = BulletPt
     { _ptDraw = drawBul
     , _ptUpdate' = \w -> resetVel . mvGenBullet w
     , _btVel' = vfact *.* vel
@@ -58,7 +58,7 @@ aCurveBulAt
     -> HitEffect 
     -> Float    -- ^ Bullet width
     -> Particle
-aCurveBulAt maycid col pos control targ hiteff width = Bul'
+aCurveBulAt maycid col pos control targ hiteff width = BulletPt
     { _ptDraw = drawBul
     , _ptUpdate' = \w -> mvGenBullet w . setVel
     , _btVel' = V2 0 0