39 lines
1.6 KiB
Haskell
39 lines
1.6 KiB
Haskell
{-# LANGUAGE 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
|
|
data RenderData = RenderData
|
|
{ _lightingOccludeShader :: FullShader
|
|
, _lightingWallShader :: FullShader
|
|
, _lightingSurfaceShader :: FullShader
|
|
, _lightingLineShadowShader :: FullShader
|
|
, _wallBlankShader :: FullShader
|
|
, _wallTextureShader :: FullShader
|
|
, _textureArrayShader :: FullShader
|
|
, _fullscreenShader :: FullShader
|
|
, _fullscreenAlphaHalveShader :: FullShader
|
|
--, _boxBlurShader :: FullShader
|
|
, _bloomBlurShader :: FullShader
|
|
, _colorBlurShader :: FullShader
|
|
, _barrelShader :: FullShader
|
|
, _grayscaleShader :: FullShader
|
|
, _pictureShaders :: [VShader]
|
|
, _fbo2 :: (FramebufferObject, TextureObject)
|
|
, _fbo3 :: (FramebufferObject, TextureObject)
|
|
, _fboFourth1 :: (FramebufferObject, TextureObject)
|
|
, _fboFourth2 :: (FramebufferObject, TextureObject)
|
|
, _fboBase :: (FramebufferObject, TextureObject)
|
|
, _fboBloom :: (FramebufferObject, TextureObject)
|
|
, _fboColor :: (FramebufferObject, TextureObject)
|
|
, _rboBaseBloom :: RenderbufferObject
|
|
, _fboLighting :: (FramebufferObject, TextureObject)
|
|
, _rboLighting :: RenderbufferObject
|
|
, _matUBO :: BufferObject
|
|
}
|
|
makeLenses ''RenderData
|
|
|