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)