Implement background texture

2021-02-21 12:00:40 +01:00
parent df0f07fbca
commit 2f7ab06aa4
6 changed files with 96 additions and 42 deletions
@@ -51,7 +51,9 @@ 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 (_cameraZoom w) (_windowX w,_windowY w) (draw blank w)
+                      renderPicture' preData (_cameraRot w) (_cameraZoom w) 
+                                             (_cameraPos 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)]