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 

src/Dodge/Update.hs

@@ -184,7 +184,7 @@ updateCloud w c
         & clTimer -~ 1
         )
   where
-    newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ (V3 0 0 (0.01 * vertVel))
+    newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ (V3 0 0 (0.001 * vertVel))
     newVel2 = stripZ newVel
     vertVel = _clAlt c - opz
     springVels = foldl' (clClSpringVel c) (_clVel c) (cloudsNearPoint oldPos2 w)

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -82,7 +82,6 @@ drawFlame rotd pt = thePic
     prot  p' = p' +.+ rotateV (fromIntegral time) (V2 0 1)
     prot2 p' = p' +.+ rotateV (negate $ fromIntegral time) (V2 0 1)
     prot3 p' = p' +.+ rotateV (2 + fromIntegral time * 0.1) (V2 0 2)
-
 {- TODO: add generalised area damage particles/hiteffects.  -}
 moveFlame 
     :: Point2   -- ^ Rotation direction
@@ -132,7 +131,7 @@ moveFlame rotd w pt
     pOut p = p +.+ safeNormalizeV (sp -.- p)
     reflV wall = (0.3 *.* reflectIn (uncurry (-.-) . swap $ _wlLine wall) vel )
         +.+ (0.2 *.* vel)
-    smokeCol = fst $ randomR (0.2,0.5) (_randGen w)
+    smokeCol = fst $ randomR (0.5,0.8) (_randGen w)
     smokeGen = makeFlamerSmokeAt smokeCol (addZ 20 ep)
 
 makeFlameletTimed