Create post world load function

src/Dodge/Data/CWorld.hs

@@ -9,6 +9,7 @@ module Dodge.Data.CWorld (
     module Dodge.Data.CamPos
 ) where
 
+import Data.Tile
 import Geometry.Data
 import Dodge.Data.LWorld
 import Control.Lens
@@ -30,7 +31,9 @@ data CWorld = CWorld
     , _timeFlow :: TimeFlowStatus
     , _seenWalls :: IS.IntSet
     , _floorTiles :: [(Point3, Point3)]
+    , _cwTiles :: [Tile]
     , _pathGraph :: Gr Point2 PathEdge
+    , _numberFloorVerxs :: Int
     }
 
 data TimeFlowStatus