Tweak wall shadow geometry shader

src/Dodge/Creature/State.hs

@@ -15,7 +15,7 @@ import Dodge.Creature.Action
 import Geometry
 import Picture
 import qualified IntMapHelp as IM
-import StrictHelp
+--import StrictHelp
 
 import Data.List
 --import Data.Char
@@ -53,7 +53,6 @@ stateUpdate u cr w = case u (updateMovement cr) w of
         | otherwise = stopSoundFrom (CrWeaponSound (_crID cr)) 
             . over decorations addCorpse 
             . dropByState cr
-    --crBeforeDeath = colCrWall w cr
     addCorpse = IM.insertNewKey 
         $ uncurryV translate (_crOldPos cr) 
         $ rotate (_crDir cr)

src/Render.hs

@@ -71,9 +71,9 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
         stencilOp $= (OpKeep,OpKeep,OpDecr)
         currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
         drawShader (_lightingOccludeShader pdata) nWalls
-
         currentProgram $= Just (_shaderProgram $ _lightingLineShadowShader pdata)
         drawShader (_lightingLineShadowShader pdata) nSils
+
         -- draw geometry surfaces
         cullFace $= Just Back
         colorMask $= Color4 Disabled Disabled Disabled Enabled