Setup multiple target basic shaders

src/Preload/Render.hs

@@ -68,7 +68,7 @@ preloadRender = do
         <- makeShader "lighting/lineShadow" [vert,geom,frag] [3] ELinesAdjacency
                 >>= addUniforms ["lightPos"]
 -- 2D draw shaders
-    bslist <- makeShader "twoD/basic"   [vert,frag] [3,4]   ETriangles 
+    bslist <- makeShader "dualTwoD/basic"   [vert,frag] [3,4]   ETriangles 
     aslist <- makeShader "twoD/arc"     [vert,frag] [3,4,3] ETriangles 
     eslist <- makeShader "twoD/ellipse" [vert,geom,frag] [3,4]   ETriangles 
     bezierQuadShader <- makeShader "twoD/bezierQuad" [vert,frag] [3,4,4]  ETriangleStrip
@@ -104,7 +104,7 @@ preloadRender = do
     rboLightingName <- genObjectName
     bindRenderbuffer Renderbuffer $= rboLightingName
     renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600)
-    fboLightingName <- setupFramebufferGivenStencil rboLightingName
+    --fboLightingName <- setupFramebufferGivenStencil rboLightingName
 
     rboBaseBloomName <- genObjectName
     bindRenderbuffer Renderbuffer $= rboBaseBloomName
@@ -113,6 +113,9 @@ preloadRender = do
     fboBaseName  <- setupFramebufferGivenStencil rboBaseBloomName
     fboBloomName <- setupFramebufferGivenStencil rboBaseBloomName
     fboColorName <- setupFramebufferGivenStencil rboBaseBloomName
+    fboPosName   <- setupFramebufferGivenStencil rboBaseBloomName
+    fboLightingName <- setupFramebufferGivenStencil rboBaseBloomName
+    fboLightingHighName <- setupFramebufferGivenStencil rboBaseBloomName
 
     fboFourth1Name <- setupTextureFramebuffer 300 300
     fboFourth2Name <- setupTextureFramebuffer 300 300
@@ -154,10 +157,12 @@ preloadRender = do
         , _fboFourth1 = fboFourth1Name
         , _fboFourth2 = fboFourth2Name
         , _fboLighting = fboLightingName
-        , _rboLighting = rboLightingName
+        , _fboLightingHigh = fboLightingHighName
+        --, _rboLighting = rboLightingName
         , _fboBase = fboBaseName
         , _fboBloom = fboBloomName
         , _fboColor = fboColorName
+        , _fboPos = fboPosName
         , _rboBaseBloom = rboBaseBloomName
         , _matUBO = theUBO
         }