Move shader compilation over to raw opengl, errors display incorrect

This commit is contained in:
2023-03-07 15:40:29 +00:00
parent e6ec46edce
commit 3e3fd049a9
12 changed files with 338 additions and 121 deletions
+17 -17
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)