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

Use DSA for renderbuffers

Browse Source
This commit is contained in:
justin
2023-03-09 14:58:38 +00:00
parent 0b698e5f5d
commit 76a8b05433
11 changed files with 81 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Data/Preload/Render.hs
+19 -19
View File
@@ -12,25 +12,25 @@ import qualified Data.Vector.Mutable as MV
import Control.Monad.Primitive
data RenderData = RenderData
{ _lightingWallShadShader :: FullShader'
, _lightingLineShadowShader :: FullShader'
, _positionalBlankShader :: FullShader'
, _lightingCapShader :: FullShader'
, _wallBlankShader :: FullShader'
, _windowShader :: FullShader'
, _wallTextureShader :: FullShader'
, _textureArrayShader :: FullShader'
, _fullscreenShader :: FullShader'
, _lightingTextureShader :: FullShader'
--, _fullscreenAlphaHalveShader :: FullShader'
, _bloomBlurShader :: FullShader'
, _colorBlurShader :: FullShader'
, _barrelShader :: FullShader'
, _grayscaleShader :: FullShader'
, _shapeShader :: FullShader'
{ _lightingWallShadShader :: FullShader
, _lightingLineShadowShader :: FullShader
, _positionalBlankShader :: FullShader
, _lightingCapShader :: FullShader
, _wallBlankShader :: FullShader
, _windowShader :: FullShader
, _wallTextureShader :: FullShader
, _textureArrayShader :: FullShader
, _fullscreenShader :: FullShader
, _lightingTextureShader :: FullShader
--, _fullscreenAlphaHalveShader :: FullShader
, _bloomBlurShader :: FullShader
, _colorBlurShader :: FullShader
, _barrelShader :: FullShader
, _grayscaleShader :: FullShader
, _shapeShader :: FullShader
, _shapeEBO :: EBO
, _silhouetteEBO :: EBO
, _pictureShaders :: MV.MVector (PrimState IO) FullShader'
, _pictureShaders :: MV.MVector (PrimState IO) FullShader
, _fbo2 :: (FramebufferObject, TextureObject)
, _fbo3 :: (FramebufferObject, TextureObject)
, _fboHalf1 :: (FramebufferObject, TextureObject)
@@ -41,11 +41,11 @@ data RenderData = RenderData
, _fboBloom :: (FramebufferObject, TextureObject)
, _fboColor :: (FramebufferObject, TextureObject)
, _fboPos :: (FramebufferObject, TextureObject)
, _rboBaseBloom :: RenderbufferObject
, _rboBaseBloom :: GLuint -- RenderbufferObject id
, _fboLighting :: (FramebufferObject, TextureObject)
, _fboLightingHigh :: (FramebufferObject, TextureObject)
, _fboShadow :: (FramebufferObject, (TextureObject,TextureObject))
, _matUBO :: GLuint
, _matUBO :: GLuint -- BufferObject id
}
makeLenses ''RenderData