Set up wall rendering with textures

2021-03-21 19:45:21 +01:00
parent a7591bb1d7
commit 23fbee3374
4 changed files with 46 additions and 54 deletions
@@ -62,10 +62,7 @@ main = do
                                            (_cameraCenter w)
                                            (worldPictures w)
                      blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-                      renderFoldable (_renderData preData) (_cameraRot w) (_cameraZoom w) (_cameraPos w)
-                                            (_windowX w,_windowY w) 
-                                            --(picToLTree (Just 1) $ fixedCoordPictures w)
-                                            (picToLTree Nothing $ fixedCoordPictures w)
+                      renderFoldable (_renderData preData) (picToLTree Nothing $ fixedCoordPictures w)
                      endRenderTicks <- SDL.ticks
                      playSoundQueue (_soundData preData) (_soundQueue w)
                      newSoundData <- playAndUpdate (_sounds w) (_soundData preData)