Add hard edge to non-visible areas

src/Dodge/Creature/Inanimate.hs

@@ -17,7 +17,7 @@ import Dodge.WorldEvent.Sound
 import Dodge.Creature.Update hiding (CRUpdate)
 import Picture
 import qualified IntMapHelp as IM
-import Geometry
+--import Geometry
 import Geometry.Vector3D
 import Polyhedra
 

src/Dodge/Render.hs

@@ -11,7 +11,7 @@ import Dodge.Base
 --import Dodge.Render.MenuScreen
 import Dodge.Render.Picture
 --import Dodge.Render.PerspectiveMatrix
-import Geometry
+--import Geometry
 import Geometry.Data
 --import Picture
 import Render
@@ -67,6 +67,14 @@ doDrawing pdata w = do
     createLightMap pdata (w ^. config . shadow_resolution) wallPoints lightPoints viewFroms
         (foregroundPics w) scPol
     clear [DepthBuffer]
+    
+    nWalls <- F.foldM (pokeShader $ _lightingOccludeShader pdata) (map Render22 wallPoints)
+    bindShaderBuffers [_lightingOccludeShader pdata] [nWalls]
+    currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
+    uniform (head $  _shaderCustomUnis $ _lightingOccludeShader pdata)
+            $= Vector2 viewFromx viewFromy  
+    drawShader (_lightingOccludeShader pdata) nWalls
+
     depthFunc $= Just Less
     -- set blending to depend upon the alpha level already present
     blendFuncSeparate    $= ((SrcAlphaSaturate, OneMinusSrcAlpha), (Zero,One))

src/Dodge/Room/Foreground.hs

@@ -51,10 +51,7 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints
 highPipe :: Float -> Point2 -> Point2 -> [Polyhedra]
 highPipe h x@(xx,xy) y = 
     [ Polyhedron . map (map ( (,orange) . (+.+.+ (xx,xy,h)))) 
-        $ boxABC (a,b,0) (a',b',0) (0,0,10)
---    ,verticalPipe 5 orange x 0 100 
---    ,verticalPipe 5 orange y 0 100 
---    ,verticalPipe 5 orange (0.5 *.* (x +.+ y)) 50 100 
+        $ boxABC (a,b,0) (a',b',0) (0,0,5)
     ]
   where
     (a,b) = y -.- x