Cleanup barrels

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -1,7 +1,6 @@
 -- | Creation of particles in the world.
 module Dodge.WorldEvent.SpawnParticle (
     makeGasCloud,
-    concBall,
 ) where
 
 import Dodge.Data.World
@@ -10,20 +9,6 @@ import LensHelp
 import Picture
 import RandomHelp
 
-concBall :: Point2 -> Shockwave
-concBall p =
-    Shockwave
-        { _swDirection = OutwardShockwave
-        , _swInvulnerableCrs = []
-        , _swColor = white
-        , _swPos = p
-        , _swRad = 15
-        , _swDam = 4
-        , _swPush = 1
-        , _swMaxTime = 10
-        , _swTimer = 10
-        }
-
 -- | At writing the radius is half the size of the effect area
 makeGasCloud ::
     -- | Position
@@ -41,7 +26,7 @@ makeGasCloud pos vel w =
         Cloud
             { _clPos = addZ 20 pos
             , _clVel = addZ 0 vel
-            , _clPict = CloudColor 3 50 (withAlpha 0.05 col)
+            , _clPict = CloudColor 3 50 (withAlpha 0.5 col)
             , _clRad = 10
             , _clAlt = 25
             , _clTimer = 400