Add file

src/Dodge/WorldLoad.hs

@@ -0,0 +1,17 @@
+module Dodge.WorldLoad where
+
+import Shader.Bind
+import Shader.Data
+import Shader.Poke.Floor
+import Data.Preload.Render
+import Dodge.Data.CWorld
+import Control.Monad
+import Control.Lens
+
+postWorldLoad :: RenderData -> CWorld -> IO CWorld
+postWorldLoad rdata cw = do
+    nfloorvxs <- foldM (pokeTile (rdata ^. floorVBO . vboPtr))
+        0
+        (cw ^. cwTiles)
+    bufferPokedVBO (rdata ^. floorVBO) nfloorvxs
+    return $ cw & numberFloorVerxs .~ nfloorvxs