12 lines
319 B
Haskell
12 lines
319 B
Haskell
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
|