Allow tweaking z buffer when rendering polygon, improve explosion render

src/Dodge/Particle/Bullet/Draw.hs

@@ -5,6 +5,6 @@ import Dodge.Data
 import Picture
 
 drawBul :: Particle -> Picture
-drawBul pt = setLayer 1 . color thecolor $ thickLine (take 2 $ _btTrail' pt) (_btWidth' pt)
+drawBul pt = setLayer 1 . setDepth 20 . color thecolor $ thickLine (take 2 $ _btTrail' pt) (_btWidth' pt)
   where
     thecolor = _btColor' pt

src/Dodge/Particle/Bullet/HitEffect.hs

@@ -118,7 +118,7 @@ bulIncCr' bt p cr w
     sp = head $ _btTrail' bt
     ep = sp +.+ _btVel' bt
     v = evalState (randInCirc 1) $ _randGen w
-    incFlamelets = over worldEvents $ (.) (makeFlameletTimed p v Nothing 3 20)
+    incFlamelets = over worldEvents $ (.) (makeFlameletTimed p 20 v Nothing 3 20)
 {- | Creates a shockwave when hitting a creature.  -}
 bulConCr' :: Particle -> Point2 -> Creature -> World -> World
 bulConCr' bt p cr w 
@@ -172,7 +172,7 @@ bulIncWall' bt p wl w =  damageBlocksBy 5 wl $ incFlamelets w
     pOut = p +.+ safeNormalizeV (sp -.- p)
     wallV = uncurry (-.-) (_wlLine wl)
     reflectVel = safeNormalizeV $ reflectIn wallV (_btVel' bt)
-    incFlamelets = over worldEvents $ (.) (makeFlameletTimed pOut reflectVel Nothing 3 20)
+    incFlamelets = over worldEvents $ (.) (makeFlameletTimed pOut 20 reflectVel Nothing 3 20)
 {- | Create a shockwave on wall-}
 bulConWall'
     :: Particle 

src/Dodge/Particle/Bullet/Spawn.hs

@@ -11,7 +11,7 @@ import Control.Lens
 aGenBulAt
     :: Maybe Int -- ^ Pass-through creature id
     -> Point2   -- ^ Start position
-     -> Point2  -- ^ Velocity
+    -> Point2  -- ^ Velocity
     -> HitEffect 
     -> Float    -- ^ Bullet width
     -> Particle