Separate sound and render io parameters

app/Main.hs

@@ -21,6 +21,8 @@ import Picture
 import Picture.Render
 import Picture.Preload
 
+import Preload
+
 import Control.Concurrent
 import Control.Lens
  
@@ -46,15 +48,16 @@ main = do
     setupLoop 
         "windowName"
         800 600
-        doPreload'
+        doPreload
         cleanUpPreload
         (initializeWorld $ generateFromTree lev1 $ initWorld)
         (-- \((bs:fs:ts:_),tes) w -> --do render setparams w egFade
          \preData w -> --do render setparams w egFade
                         do
-                      renderPicture' preData (_cameraRot w) (_cameraZoom w) 
-                                             (_cameraPos w)
-                                             (_windowX w,_windowY w) 
+                      renderPicture' (_renderData preData) 
+                                            (_cameraRot w) (_cameraZoom w) 
+                                            (_cameraPos w)
+                                            (_windowX w,_windowY w) 
                                             (wallsForGloom' w)
                                             (lightsForGloom' w)
                                             (draw blank w)