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
@@ -24,7 +24,7 @@ defaultArcStep itparams w (ArcStep p dir _) = do
            . sortOn (dist center . _crPos) 
            . filter (\cr -> dist center (_crPos cr) < csize)
            . IM.elems
-            $ _creatures w
+            $ _creatures (_cWorld w)
        mwl = listToMaybe
            . sortOn (dist p . fst)
            . mapMaybe (\ q -> sequence $ collidePointWallsFilterStream (const True) p (center +.+ q) w)