module Dodge.PtFlicker where
import Dodge.Data
import Dodge.LightSource
import LensHelp
import Geometry

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