Module reorganisation

2021-06-12 12:21:42 +02:00
parent 11bd97335d
commit f09fe8798e
12 changed files with 56 additions and 54 deletions
@@ -0,0 +1,28 @@
+{-# 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
+    { _lightingFloorShader      :: FullShader
+    , _lightingOccludeShader    :: FullShader
+    , _lightingWallShader       :: FullShader
+    , _wallBlankShader          :: FullShader
+    , _wallTextureShader        :: FullShader
+    , _backgroundShader         :: FullShader
+    --, _textureShader            :: FullShader (Point3,Point2)
+    , _fullscreenShader         :: FullShader
+    , _boxBlurShader            :: FullShader
+    , _grayscaleShader          :: FullShader
+    , _pictureShaders           :: [FullShader]
+    , _spareFBO                 :: FramebufferObject
+    , _fboTexture               :: TextureObject
+    , _fboRenderbufferObject    :: RenderbufferObject
+    , _fbo2                     :: (FramebufferObject, TextureObject, RenderbufferObject)
+    , _fbo3                     :: (FramebufferObject, TextureObject, RenderbufferObject)
+    }
+makeLenses ''RenderData
+