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