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
@@ -8,9 +8,9 @@ import qualified IntMapHelp as IM
 createWall :: Wall -> World -> (Int, World)
 createWall wl w =
    ( wlid
-    , w & cWorld . walls %~ IM.insert wlid newwl
+    , w & cWorld . lWorld . walls %~ IM.insert wlid newwl
        & insertWallInZones newwl
    )
  where
    newwl = wl{_wlID = wlid}
-    wlid = IM.newKey $ _walls (_cWorld w)
+    wlid = IM.newKey $ w ^. cWorld . lWorld . walls --_walls (_cWorld w)