Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -8,5 +8,5 @@ import Control.Lens
 doWdP2f :: WdP2f -> World -> (Point2,Float)
 doWdP2f x = case x of
    WdP2f0 -> const (0,0)
-    WdP2fDoorPosition drid -> \w -> let Just (a,b) = w ^? doors . ix drid . drPos
+    WdP2fDoorPosition drid -> \w -> let Just (a,b) = w ^? cWorld . doors . ix drid . drPos
        in (b, argV (a-.-b))