Cleanup

src/Dodge/WorldEvent/Shockwave.hs

@@ -26,8 +26,7 @@ makeShockwaveAt
     -> World    -- ^ Start world.
     -> World
 makeShockwaveAt is p rad dam push col = instantParticles .:~ Shockwave
-    { _ptDraw       = drawShockwave
-    , _ptUpdate     = mvShockwave is
+    { _ptUpdate     = mvShockwave is
     , _ptColor      = col
     , _ptPos       = p
     , _ptRad       = rad
@@ -88,8 +87,7 @@ inverseShockwaveAt
     -> World 
     -> World
 inverseShockwaveAt p rad dam push = instantParticles .:~ Shockwave
-    { _ptDraw = drawInverseShockwave
-    , _ptUpdate = moveInverseShockwave
+    { _ptUpdate = moveInverseShockwave
     , _ptColor      = cyan
     , _ptPos       = p
     , _ptRad       = rad
@@ -119,13 +117,3 @@ moveInverseShockwave w pt
           where
             cpos = _crPos cr
 
-drawInverseShockwave :: Particle -> Picture
-drawInverseShockwave  pt 
-    = setLayer BloomLayer $ setDepth 20 $ uncurryV translate p 
-                          $ color cyan $ thickCircle rad thickness
-  where
-    p = _ptPos pt
-    r = _ptRad pt
-    t = _ptTimer pt
-    rad = r - 0.1 * r * fromIntegral (10 - t)
-    thickness = fromIntegral (10 - t) **2 * rad / 40