{-# 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