Cleanup

2022-07-24 00:23:03 +01:00
parent 5b9e9968f3
commit 5a2f529182
6 changed files with 12 additions and 37 deletions
@@ -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