Work on cloud/window transparency

src/Data/Preload/Render.hs

@@ -19,6 +19,7 @@ data RenderData = RenderData
     , _alphaDivideShader :: Shader
     , _windowShader :: Shader
     , _fullscreenShader :: Shader
+    , _transparencyCompShader :: Shader
     , _bloomBlurShader :: Shader
     , _colorBlurShader :: Shader
     , _barrelShader :: (Shader,VBO)
@@ -33,7 +34,7 @@ data RenderData = RenderData
     , _fboHalf2 :: (FBO, TO)
     , _fboBase :: (FBO, (TO, TO, TO))
     , _fboCloud :: (FBO, (TO, TO, TO))
---    , _fboWindow :: (FBO, (TO, TO, TO))
+    , _fboWindow :: (FBO, (TO, TO))
     , _fboBloom :: (FBO, TO)
     , _fboPos :: (FBO, TO)
     , _fboLighting :: (FBO, TO)