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
@@ -13,12 +13,12 @@ import Picture

 addRoomPolyDecorations :: [Room] -> World -> World
 addRoomPolyDecorations rms w =
-    w & cWorld . decorations
+    w & cWorld . lWorld . decorations
        %~ IM.insertWithNewKeys (map roomPolyDecorations rms)

 addRoomLinkDecorations :: [Room] -> World -> World
 addRoomLinkDecorations rms w =
-    w & cWorld . decorations
+    w & cWorld . lWorld . decorations
        %~ IM.insertWithNewKeys (map roomLinkDecorations rms)

 roomLinkDecorations :: Room -> Picture