Add files

src/Dodge/PreloadData.hs

@@ -0,0 +1,17 @@
+module Dodge.PreloadData where
+import Dodge.Data
+--import Dodge.Base
+--import Dodge.Base.Window
+--import Dodge.Creature.Action
+--import Dodge.SoundLogic
+--import Dodge.Inventory
+--import Geometry
+import Preload.Update
+--import qualified IntMapHelp as IM
+
+import Control.Lens
+
+sideEffectUpdatePreload :: Int -> Int -> Int -> (Universe -> IO Universe) -> Universe -> IO Universe
+sideEffectUpdatePreload divRes x y f u =  do
+    pdata <- pdataResizeUpdate (x `div` divRes) (y `div` divRes) x y (_preloadData (_uvWorld u))
+    f $ u & uvWorld . preloadData .~ pdata