Improve static bullets

src/Dodge/Particle/Draw.hs

@@ -7,7 +7,6 @@ drawParticle :: Particle -> Picture
 drawParticle pt = case pt of
     Shockwave {} -> drawShockwave pt
     PtStaticBall {} -> drawStaticBall pt
-    PtIncBall {} -> drawFlameletZ pt
     PtInvShockwave {} -> drawInverseShockwave pt
     PtTeslaArc {} -> drawTeslaArc pt
     PtTargetLaser {} -> drawTargetLaser pt
@@ -36,50 +35,6 @@ drawStaticBall pt = setLayer BloomNoZWrite
     . uncurryV translate (_ptPos pt)
     $ circleSolidCol (_ptColor pt) (withAlpha 0.5 white) (_ptWidth pt+5)
 
-drawFlameletZ
-    :: Particle
-    -> Picture
-drawFlameletZ pt = pictures 
-    [ setLayer BloomLayer pic 
-    , setLayer BloomNoZWrite piu 
-    , setLayer BloomNoZWrite pi2 
-    ]
-  where
-    z = _ptZ pt
-    sp = _ptPos pt
-    vel = _ptVel pt
-    ep = sp +.+ vel
-    size = _ptWidth pt
-    siz2 = size + 0.2
-    time = _ptTimer pt
-    piu = setDepth (z + 25)
-        .  uncurryV translate ep 
-        . color (mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time) 
-                           (V4 2 0 0 1)                          (V4 2 0 0 0)
-                   )
-        . rotate (negate (rot - 0.1 * fromIntegral time))
-        . scale s1 s1
-        $ polygon (rectNSWE siz2 (-siz2) (-siz2) siz2)
-    pi2 = setDepth (z + 25)
-        . uncurryV translate ep
-        . color (mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time) 
-                           (V4 2 1 0 0.5)                          (V4 0 0 0 0)
-                   )
-        . rotate (negate (rot + 0.2 * fromIntegral time))
-        . scale s2 s2
-        $ polygon (rectNSWE siz2 (-siz2) (-siz2) siz2)
-    pic = setDepth (z + 20)
-        . uncurryV translate ep
-        . color (mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time) 
-                           (V4 1 1 1 3)                           (V4 1 0 0 1)
-                )
-        . rotate (negate ( 0.1 * fromIntegral time + rot))
-        . scale (0.5* sc) (0.5 *sc)
-        $ polygon $ map toV2 [(-size,-size),(size,-size),(size,size),(-size,size)]
-    sc = (*) 2 $ log $ 1 + fromIntegral time / 20
-    s1 = (*) 2 $ log $ 2 + fromIntegral time / 40
-    s2 = 0.5 * (sc + s1)
-    rot = _ptRot pt
 
 drawInverseShockwave :: Particle -> Picture
 drawInverseShockwave  pt