diff --git a/shader/lighting/occlude.geom b/shader/lighting/occlude.geom
index 311fa3101..3822769e2 100644
--- a/shader/lighting/occlude.geom
+++ b/shader/lighting/occlude.geom
@@ -1,6 +1,6 @@
 #version 430 core
 layout (points) in;
-layout (triangle_strip, max_vertices = 11) out;
+layout (triangle_strip, max_vertices = 8) out;
 layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
 uniform vec3 lightPos;
 
diff --git a/src/Dodge/Creature/State.hs b/src/Dodge/Creature/State.hs
index e6770ac6c..18088b100 100644
--- a/src/Dodge/Creature/State.hs
+++ b/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)
diff --git a/src/Render.hs b/src/Render.hs
index 15282a4b0..76125a19d 100644
--- a/src/Render.hs
+++ b/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