justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move FBOs to opengl raw

Browse Source
This commit is contained in:
justin
2023-03-09 15:42:17 +00:00
parent 76a8b05433
commit 44b56ed163
7 changed files with 121 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Data/Preload/Render.hs
+19 -16
View File
@@ -11,6 +11,8 @@ import Control.Lens
import qualified Data.Vector.Mutable as MV
import Control.Monad.Primitive
newtype FBO = FBO {_unFBO :: GLuint}
data RenderData = RenderData
{ _lightingWallShadShader :: FullShader
, _lightingLineShadowShader :: FullShader
@@ -30,22 +32,23 @@ data RenderData = RenderData
, _shapeShader :: FullShader
, _shapeEBO :: EBO
, _silhouetteEBO :: EBO
, _pictureShaders :: MV.MVector (PrimState IO) FullShader
, _fbo2 :: (FramebufferObject, TextureObject)
, _fbo3 :: (FramebufferObject, TextureObject)
, _fboHalf1 :: (FramebufferObject, TextureObject)
, _fboHalf2 :: (FramebufferObject, TextureObject)
, _fboHalf3 :: (FramebufferObject, TextureObject)
, _fboBase :: (FramebufferObject, (TextureObject, TextureObject))
, _fboCloud :: (FramebufferObject, (TextureObject, TextureObject))
, _fboBloom :: (FramebufferObject, TextureObject)
, _fboColor :: (FramebufferObject, TextureObject)
, _fboPos :: (FramebufferObject, TextureObject)
, _rboBaseBloom :: GLuint -- RenderbufferObject id
, _fboLighting :: (FramebufferObject, TextureObject)
, _fboLightingHigh :: (FramebufferObject, TextureObject)
, _fboShadow :: (FramebufferObject, (TextureObject,TextureObject))
, _matUBO :: GLuint -- BufferObject id
, _pictureShaders :: MV.MVector (PrimState IO) FullShader
, _fbo2 :: (FBO, TextureObject)
, _fbo3 :: (FBO, TextureObject)
, _fboHalf1 :: (FBO, TextureObject)
, _fboHalf2 :: (FBO, TextureObject)
, _fboHalf3 :: (FBO, TextureObject)
, _fboBase :: (FBO, (TextureObject, TextureObject))
, _fboCloud :: (FBO, (TextureObject, TextureObject))
, _fboBloom :: (FBO, TextureObject)
, _fboColor :: (FBO, TextureObject)
, _fboPos :: (FBO, TextureObject)
, _fboLighting :: (FBO, TextureObject)
, _fboLightingHigh :: (FBO, TextureObject)
, _fboShadow :: (FBO, (TextureObject,TextureObject))
, _rboBaseBloom :: GLuint -- RenderbufferObject id
, _matUBO :: GLuint -- BufferObject id
}
makeLenses ''RenderData
makeLenses ''FBO