Cleanup

src/Dodge/WorldEvent/Flash.hs

@@ -15,7 +15,6 @@ module Dodge.WorldEvent.Flash
     , flareCircleAt
     ) where
 import Dodge.Data
-import Dodge.PtFlicker
 import Dodge.LightSource
 import Dodge.WorldEvent.HelperParticle
 --import Dodge.Default
@@ -53,3 +52,8 @@ explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 intensityFunc
         | x < 10 = 1 / (10 - fromIntegral x)
         | otherwise = 1
 
+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