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
@@ -23,7 +23,7 @@ wallsToDraw w
        <$> L.prefilter wlOpaqueDraw (L.premap f L.list)
        <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
        <*> L.premap getWallSPic L.mconcat
-        ) (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight' wlZoneSize w)
+        ) (wlsFromIXs w $ zonesExtract (w ^. cWorld . wlZoning) $ zoneOfSight' wlZoneSize w)
 --wallsToDraw
 --    :: World
 --    -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )