Move towards uploading certain vbos less than once per frame (floor)

src/Dodge/StartNewGame.hs

@@ -3,6 +3,9 @@ module Dodge.StartNewGame (
     startSeedGame,
 ) where
 
+import Data.Preload.Render
+import Shader.Data
+import Shader.Poke -- it would be very nice to remove/rework the poking dependencies
 import Dodge.Menu.Loading
 import Dodge.Concurrent
 --import Dodge.Menu.Option
@@ -23,11 +26,14 @@ blockingLoad str f u = u & uvScreenLayers .:~ loadingScreen str
     & addSideEffect f str
 
 startSeedGame :: Int -> Int -> Universe -> Universe
-startSeedGame _ i = blockingLoad "LOADING" (startSeedGameConc i)
+startSeedGame _ i u = blockingLoad "LOADING" (startSeedGameConc i $ u ^. preloadData) u
 
-startSeedGameConc :: Int -> IO (Universe -> Maybe Universe)
-startSeedGameConc seed = do
-    w <- generateWorldFromSeed seed
+startSeedGameConc :: Int -> PreloadData -> IO (Universe -> Maybe Universe)
+startSeedGameConc seed pdata = do
+    w' <- generateWorldFromSeed seed
+    nfloorvxs <- pokeFloors (pdata ^?! renderData . textureArrayShader . _2 . vboPtr)
+        (w' ^. cWorld . floorTiles)
+    let w = w' & numberFloorVerxs .~ nfloorvxs
     writeFile "saveSlot/seed" $ show seed
     return $ Just
         . saveWorldInSlot (LevelStartSlot 0)