Do layer checking in picture tree

2021-03-01 13:46:28 +01:00
parent f68b8be9ce
commit 1e198b551e
4 changed files with 55 additions and 37 deletions
@@ -65,7 +65,7 @@ main = do
                      blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
                      renderTree (_renderData preData) (_cameraRot w) (_cameraZoom w) (_cameraPos w)
                                            (_windowX w,_windowY w) 
-                                            (picToLTree 1 $ fixedCoordPictures w)
+                                            (picToLTree (Just 1) $ fixedCoordPictures w)
                      endRenderTicks <- SDL.ticks
                      playSoundQueue (_soundData preData) (_soundQueue w)
                      newSoundData <- playAndUpdate (_sounds w) (_soundData preData)