Refactor vao preload

app/Main.hs

@@ -15,6 +15,7 @@ import Dodge.LoadSound
 import Dodge.Update
 import Dodge.KeyEvents
 import Dodge.Rendering
+import Dodge.Menu
 
 import Picture
 import Picture.Render
@@ -50,8 +51,8 @@ main = do
         (initializeWorld $ generateFromTree lev1 $ initWorld)
         (-- \((bs:fs:ts:_),tes) w -> --do render setparams w egFade
          \preData w -> --do render setparams w egFade
-                      --renderPicture' preData (polygon [(0,0),(0,-0.5),(-0.5,-0.5),(-0.5,0.0)])
-                      renderPicture' preData (draw blank w)
+                      renderPicture' preData (_cameraZoom w) (_windowX w,_windowY w) (draw blank w)
+                      --renderPicture' preData (_windowX w,_windowY w) (Circle 5)
 --            renderPicture' preData 
 --                          (pictures [scale 0.5 0.9 $ polygon [(0,0),(0,-0.5),(-0.5,-0.5),(-0.5,0.0)]
 --                                    ,scale 0.5 0.9 $ polygon [(0,0),(0,-0.5),(-0.5,-0.5),(-0.5,0.0)]
@@ -59,6 +60,6 @@ main = do
 --                                    ]
 --                          )
         )
-        handleEvent
+        (flip $ menuEvents $ flip handleEvent)
         (\w -> Just $ update w)
     Mix.closeAudio