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
@@ -56,7 +56,7 @@ randColDirSpark ::
 randColDirSpark randcol randdir pos w =
    w
        & randGen .~ g
-        & cWorld . sparks
+        & cWorld . lWorld . sparks
            .:~ Spark
                { _skVel = rotateV dir (V2 5 0)
                , _skColor = col
@@ -82,7 +82,7 @@ randSpark ::
 randSpark dt randspeed randcol randdir pos w =
    w
        & randGen .~ g
-        & cWorld . sparks
+        & cWorld . lWorld . sparks
            .:~ Spark
                { _skVel = rotateV dir (V2 speed 0)
                , _skColor = col