Tweak window rendering

src/Dodge/Render.hs

@@ -139,7 +139,7 @@ doDrawing pdata w = do
     drawBuffers $= [FBOColorAttachment 0,NoBuffers]
     clear [ColorBuffer]
     renderLayer 2 shadV layerCounts
-    --renderWindows pdata windowPoints
+    renderWindows pdata windowPoints
     
     ----render transparency depths
     depthMask $= Enabled
@@ -148,7 +148,7 @@ doDrawing pdata w = do
     clearColor $= Color4 0 0 0 0
     clear [ColorBuffer]
     renderLayer 2 shadV layerCounts
-    --renderWindows pdata windowPoints
+    renderWindows pdata windowPoints
     depthMask $= Disabled
     blend $= Enabled
 
@@ -244,12 +244,12 @@ renderWindows
     -> [((Point2,Point2),Point4)]   -- ^ List: wall positions and color
     -> IO ()
 renderWindows pdata wps = do
-    n <- poke224s (shadVBOptr $ _wallBlankShader pdata) wps
-    bindShaderBuffers [_wallBlankShader pdata] [n]
-    currentProgram $= Just (_shaderProgram $ _wallBlankShader pdata)
-    cullFace $= Just Back
-    drawShader (_wallBlankShader pdata) n
-    cullFace $= Nothing
+    n <- poke224s (shadVBOptr $ _windowShader pdata) wps
+    bindShaderBuffers [_windowShader pdata] [n]
+    currentProgram $= Just (_shaderProgram $ _windowShader pdata)
+    --cullFace $= Just Back
+    drawShader (_windowShader pdata) n
+    --cullFace $= Nothing
 
 renderTextureWalls 
     :: RenderData