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
@@ -27,7 +27,7 @@ makeCloudAt ::
    World ->
    World
 makeCloudAt drawFunc rad t alt p =
-    cWorld . clouds
+    cWorld . lWorld . clouds
        .:~ Cloud
            { --makeCloudAt drawFunc rad t alt p = clouds %~ S.cons Cloud
              _clPos = p