Load window size from config into world

src/Dodge/Initialisation.hs

@@ -4,6 +4,8 @@ import Dodge.Prototypes
 import Dodge.Data
 import Dodge.Critters
 import Dodge.Base
+import Dodge.Floor
+import Dodge.Layout
 
 import Data.List
 import Data.Char
@@ -22,13 +24,6 @@ import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 
---import Graphics.Gloss
---import Graphics.Gloss.Interface.IO.Game
---import Graphics.Gloss.Geometry.Angle
---import Graphics.Gloss.Geometry.Line
---import qualified Graphics.Gloss.Data.Point.Arithmetic as PA
---import Graphics.Gloss.Data.Vector
---import Graphics.Gloss.Data.Point
 import Foreign.ForeignPtr
 import Control.Concurrent
 import Data.Tree
@@ -36,6 +31,10 @@ import Data.Tree
 initializeWorld :: World -> World
 initializeWorld w = w
 
+firstWorld :: IO World
+firstWorld = return $ generateFromTree lev1 $ initialWorld
+
+initialWorld :: World
 initialWorld = basicWorld
                 { _keys = S.empty
                 , _cameraPos = (0,0)
@@ -61,7 +60,7 @@ initialWorld = basicWorld
                 , _menuState = LevelMenu 1
                 , _worldState = M.empty
                 , _windowX = 800
-                , _windowY = 840
+                , _windowY = 600
                 }