Work on cloud/window transparency

src/Preload/Render.hs

@@ -112,6 +112,8 @@ preloadRender = do
     (_, screentexturevao) <- setupStaticVBOVAO (toFloatVAs [2, 2]) (concat cornerList)
     alphadivideshader <- makeShaderUsingVAO "texture2D/alphaDivide" [vert, frag] pmTriangleStrip screentexturevao
     fsShad <- makeShaderUsingVAO "texture/simple" [vert, frag] pmTriangleStrip screentexturevao
+    transcompshader <- makeShaderUsingVAO 
+        "fullscreen/transparencyComp" [vert, frag] pmTriangleStrip screentexturevao
     bloomBlurShad <- makeShaderUsingVAO "texture/bloomBlur" [vert, frag] pmTriangleStrip screentexturevao
     colorBlurShad <- makeShaderUsingVAO "texture/colorBlur" [vert, frag] pmTriangleStrip screentexturevao
     grayscaleShad <- makeShaderUsingVAO "texture/grayscale" [vert, frag] pmTriangleStrip screentexturevao
@@ -152,8 +154,10 @@ preloadRender = do
         800
         600
 
+    -- if adding to this list, recall you need to sizeFBOs
     fboBaseName <- setupFramebuffer3GivenStencil rboBaseBloomName
     fboCloudName <- setupFramebuffer3GivenStencil rboBaseBloomName
+    fbowindow <- setupFramebuffer2GivenStencil rboBaseBloomName
     fboBloomName <- setupFramebufferGivenStencil rboBaseBloomName
     fboPosName <- setupFramebufferGivenStencil rboBaseBloomName
     fboLightingName <- setupFramebufferGivenStencil rboBaseBloomName
@@ -178,6 +182,7 @@ preloadRender = do
             , _ceilingStencilShader = ceilingstencilshader
             , _windowShader = windowshader
             , _fullscreenShader = fsShad
+            , _transparencyCompShader = transcompshader
             , _alphaDivideShader = alphadivideshader
             , _lightingTextureShader = lightingTextureShad
             , _bloomBlurShader = bloomBlurShad
@@ -190,6 +195,7 @@ preloadRender = do
             , _fboHalf2 = fboHalf2Name
             , _fboLighting = fboLightingName
             , _fboBase = fboBaseName
+            , _fboWindow = fbowindow
             , _fboCloud = fboCloudName
             , _fboBloom = fboBloomName
             , _fboPos = fboPosName

src/Preload/Update.hs

@@ -23,15 +23,12 @@ updatePreload u =
         (renderDataResizeUpdate (u ^. uvConfig))
         u
 
-renderDataResizeUpdate ::
-    Config ->
-    RenderData ->
-    IO RenderData
+renderDataResizeUpdate :: Config -> RenderData -> IO RenderData
 renderDataResizeUpdate cfig rdata = do
     rdata' <- sizeFBOs cfig rdata
     bbVert <- BS.readFile "shader/texture/bloomBlur.vert"
     bbFrag <- BS.readFile "shader/texture/bloomBlur.frag"
-    let (xsize, ysize) = getWindowSize _graphics_downsize_resolution cfig :: (Int, Int)
+    let (xsize, ysize) = getWindowSize _gr_downsize_res cfig :: (Int, Int)
         (bh, bmid) = BS.breakSubstring "(" bbFrag
         (_, btt) = BS.breakSubstring ")" bmid
         bbFrag' = BS.append bh $ BS.append (BSC.pack $ '(' : show xsize ++ "," ++ show ysize) btt