Make pictures directly create render list

2021-02-28 23:15:42 +01:00
parent bb05bcaaf1
commit a0e4fd44d2
4 changed files with 343 additions and 274 deletions
@@ -63,9 +63,9 @@ main = do
                                            (lightsForGloom' w)
                                            (worldPictures w)
                      blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-                      renderTree (_renderData preData) (_cameraRot w) (_cameraZoom w) (_cameraPos w)
+                      renderTree 1 (_renderData preData) (_cameraRot w) (_cameraZoom w) (_cameraPos w)
                                            (_windowX w,_windowY w) 
-                                            (picToLTree 1 $ fixedCoordPictures w)
+                                            (fixedCoordPictures w)
                      endRenderTicks <- SDL.ticks
                      playSoundQueue (_soundData preData) (_soundQueue w)
                      newSoundData <- playAndUpdate (_sounds w) (_soundData preData)