Cleanup

src/Dodge/WorldEvent/Flash.hs

@@ -11,7 +11,6 @@ flicker : potentially long, moving, abrupt changes in alpha
 module Dodge.WorldEvent.Flash
     ( explosionFlashAt
     , muzFlareAt
-    , ptFlicker
     , flareCircleAt
     ) where
 import Dodge.Data
@@ -48,9 +47,3 @@ flareCircleAt col alphax tranv = flares .:~ CircFlare
 
 explosionFlashAt :: Point2 -> World -> World
 explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 p)
-
-ptFlicker :: Particle -> World -> World
-ptFlicker pt 
-    | _ptTimer pt `mod` 7 == 0 = tempLightSources 
-        .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ptColor pt)) (addZ 10 $ _ptPos pt)
-    | otherwise = id

src/Dodge/WorldEvent/Shockwave.hs

@@ -2,16 +2,11 @@ module Dodge.WorldEvent.Shockwave
     ( makeShockwaveAt
     , inverseShockwaveAt
     ) where
-import Dodge.Zoning.Wall
 import Dodge.Data
-import Dodge.Wall.Damage
-import Dodge.Base
 import Geometry
 import Picture
 import LensHelp
 
-import Data.Foldable
-import qualified IntMapHelp as IM
 -- currently very effective against walls
 makeShockwaveAt 
     :: [Int]    -- ^ IDs of invulnerable creatures.

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -6,7 +6,6 @@ module Dodge.WorldEvent.SpawnParticle
     , randParticleAt
     ) where
 import Dodge.Data
-import Dodge.WorldEvent.Shockwave
 import RandomHelp
 import Picture
 import Geometry