Add in "linear" lWorld to separate time reversable worlds

src/Dodge/EnergyBall.hs

@@ -24,7 +24,7 @@ makeFlamelet ::
 makeFlamelet (V2 x y) z vel size time w =
     w
         & randGen .~ g
-        & cWorld . energyBalls
+        & cWorld . lWorld . energyBalls
             .:~ EnergyBall
                 { _ebVel = vel
                 , _ebColor = red
@@ -48,7 +48,7 @@ moveEnergyBall w eb
 
 incBallAt :: Point2 -> World -> World
 incBallAt p w =
-    w & cWorld . energyBalls .:~ theincball
+    w & cWorld . lWorld . energyBalls .:~ theincball
         & randGen .~ g
   where
     (theincball, g) = runState thestate (_randGen w)
@@ -69,6 +69,6 @@ incBallAt p w =
 ebFlicker :: EnergyBall -> World -> World
 ebFlicker pt
     | _ebTimer pt `mod` 7 == 0 =
-        cWorld . tempLightSources
+        cWorld . lWorld . tempLightSources
             .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ebColor pt)) (addZ 20 $ _ebPos pt)
     | otherwise = id