50 lines
2.1 KiB
Haskell
50 lines
2.1 KiB
Haskell
{-# LANGUAGE StrictData
|
|
, TemplateHaskell
|
|
#-}
|
|
--{-# OPTIONS_GHC -Wno-unused-top-binds #-}
|
|
module Data.Preload.Render
|
|
where
|
|
import Shader.Data
|
|
|
|
import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
|
|
import Control.Lens
|
|
import qualified Data.Vector.Mutable as MV
|
|
import Control.Monad.Primitive
|
|
|
|
data RenderData = RenderData
|
|
{ _lightingWallShadShader :: FullShader
|
|
, _lightingLineShadowShader :: 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
|
|
, _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 :: RenderbufferObject
|
|
, _fboLighting :: (FramebufferObject, TextureObject)
|
|
, _fboLightingHigh :: (FramebufferObject, TextureObject)
|
|
, _matUBO :: BufferObject
|
|
}
|
|
makeLenses ''RenderData
|
|
|