Refactor light sources

src/Dodge/WorldEvent/Explosion.hs

@@ -8,6 +8,7 @@ module Dodge.WorldEvent.Explosion
     , makeTeslaExplosionAt
     ) where
 import Dodge.Data
+import Dodge.LightSource
 import Dodge.Default
 import Dodge.Zone
 import Dodge.Base.Collide
@@ -78,7 +79,7 @@ makeExplosionAt p w
     . over tempLightSources (theTLS :)
     $ makeShockwaveAt [] p 50 50 1 white w
   where 
-    theTLS = defaultTLS {_tlsPos = addZ 20 p, _tlsIntensity = V3 1 0.5 0, _tlsTime = 20, _tlsRad = 150}
+    theTLS = tlsTimeRadColPos 20 150 (V3 1 0.5 0) (addZ 20 p) 
     fVs  = replicateM 15 (randInCirc 1)  & evalState $ _randGen w
     fPs'' = replicateM 15 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w
     (fPs',zs) = let (a,b,c) = unzip3 $ map fromV3 fPs''

src/Dodge/WorldEvent/Flash.hs

@@ -59,7 +59,7 @@ flareCircleAt col alphax tranv = particles %~ (theFlareCircle :)
         }
 
 explosionFlashAt :: Point2 -> World -> World
-explosionFlashAt p = tempLightSources %~ (tLightTimedIntensity 20 150 intensityFunc p :)
+explosionFlashAt p = tempLightSources %~ (tlsTimeRadFunPos 20 150 intensityFunc (addZ 20 p) :)
   where 
     intensityFunc x 
         | x < 10 = 1 / (10 - fromIntegral x)
@@ -74,8 +74,4 @@ flameFlicker pt
     | otherwise = id
   where
     V2 x y = _btPos' pt
-    theLight = defaultTLS
-        { _tlsPos = V3 x y 10
-        , _tlsRad = 70
-        , _tlsIntensity = V3 0.5 0 0
-        }
+    theLight = tlsTimeRadColPos 1 70 (V3 0.5 0 0) (V3 x y 10)