Move flares into own grouping

src/Dodge/Particle/Draw.hs

@@ -9,8 +9,6 @@ drawParticle pt = case pt of
     Shockwave {} -> drawShockwave pt
     PtStaticBall {} -> drawStaticBall pt
     PtIncBall {} -> drawFlameletZ pt
-    PtMuzFlare {} -> drawMuzFlare pt
-    PtCircFlare {} -> drawCircFlare pt
     PtInvShockwave {} -> drawInverseShockwave pt
     BulletPt {} -> drawBul pt
     PtTeslaArc {} -> drawTeslaArc pt
@@ -115,22 +113,6 @@ drawFlameletZ pt = pictures
     s2 = 0.5 * (sc + s1)
     rot = _ptRot pt
 
-drawMuzFlare :: Particle -> Picture
-drawMuzFlare pt = setLayer BloomNoZWrite . translate3 tranv $ theShape
-  where
-    tranv = _ptTran3 pt
-    col = _ptColor pt
-    poly = _ptPoly pt
-    theShape = color col $ polygon poly
-
-drawCircFlare :: Particle -> Picture
-drawCircFlare pt = setLayer BloomNoZWrite . translate3 tranv
-                        $ circleSolidCol (withAlpha 0 0) (withAlpha alphax col) 50
-  where
-    col = _ptColor pt
-    tranv = _ptTran3 pt
-    alphax = _ptAlpha pt
-
 drawInverseShockwave :: Particle -> Picture
 drawInverseShockwave  pt 
     = setLayer BloomLayer $ setDepth 20 $ uncurryV translate p