Add in "linear" lWorld to separate time reversable worlds

2022-10-28 12:24:51 +01:00
parent 5f6bd43599
commit 7e790b7153
130 changed files with 827 additions and 980 deletions
@@ -66,7 +66,7 @@ makeFlameExplosionAt ::
    World
 makeFlameExplosionAt p w =
    soundMultiFrom [Explosion 0, Explosion 1] p bangS Nothing w
-        & cWorld . flames .++~ newFlames
+        & cWorld . lWorld . flames .++~ newFlames
  where
    newFlames = zipWith makeFlameWithVelAndTime velocities timers
    makeFlameWithVelAndTime vel time = aFlameParticle time p vel
@@ -81,7 +81,7 @@ makeExplosionAt p w =
    w
        & soundMultiFrom [Explosion 0, Explosion 1] p bangS Nothing
        & addFlames
-        & cWorld . tempLightSources .:~ theTLS
+        & cWorld . lWorld . tempLightSources .:~ theTLS
        & makeShockwaveAt [] p 50 50 1 white
  where
    theTLS = tlsTimeRadColPos 20 150 (V3 1 0.5 0) (addZ 20 p)