Allow for parameters to be changed by io actions

2021-02-23 14:54:05 +01:00
parent 058873af50
commit 62a1a57913
2 changed files with 7 additions and 8 deletions
@@ -51,12 +51,14 @@ main = do
        (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) 
                                            (wallsForGloom' w)
                                            (lightsForGloom' w)
                                            (draw blank w)
+                      return preData
                      --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)]
@@ -65,7 +67,6 @@ main = do
 --                                    ]
 --                          )
        )
-        (\_ _ -> return)       
        (flip $ menuEvents $ flip handleEvent)
        (\w -> Just $ update w)
    Mix.closeAudio