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
@@ -9,5 +9,5 @@ doWdP2f :: WdP2f -> World -> (Point2, Float)
 doWdP2f x = case x of
    WdP2f0 -> const (0, 0)
    WdP2fDoorPosition drid -> \w ->
-        let Just (a, b) = w ^? cWorld . doors . ix drid . drPos
+        let Just (a, b) = w ^? cWorld . lWorld . doors . ix drid . drPos
         in (b, argV (a -.- b))