Refactor light sources

2021-11-28 16:53:26 +00:00
parent 1d9dd3e4e0
commit 618653a86e
28 changed files with 169 additions and 155 deletions
@@ -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''