Implement basic config file

app/Main.hs

@@ -3,6 +3,7 @@ module Main where
 import Loop
 import Shader
 import Shapes
+import LoadConfig
 
 import Dodge.Prototypes
 import Dodge.Data
@@ -45,10 +46,11 @@ ppt = [(0,0),(-0.50,0),(0.20,0.25)]
 main :: IO ()
 main = do
 --    loadedSounds <- loadSounds
+    (sizex,sizey) <- loadConfig
     setupLoop 
         "windowName"
-        800 600
-        doPreload
+        sizex sizey
+        (doPreload >>= resizeSpareFBO sizex sizey)
         cleanUpPreload
         (initializeWorld $ generateFromTree lev1 $ initWorld)
         ( \preData w -> do