Add "cap" shadow shader

src/Dodge/Default.hs

@@ -21,7 +21,6 @@ import qualified Data.IntMap.Strict as IM
 import qualified Data.Vector as V
 import Data.List
 import Data.Monoid
-
 defaultCreature :: Creature
 defaultCreature = Creature
     { _crPos    = V2 0 0
@@ -178,7 +177,6 @@ defaultPP = PressPlate
     , _ppID = -1
     , _ppText = "Pressure plate"
     }
-
 defaultTLS :: TempLightSource
 defaultTLS = TLS
     { _tlsPos = 0
@@ -192,4 +190,3 @@ defaultTLS = TLS
         | _tlsTime t <= 0 
                     = (w, Nothing)
         | otherwise = (w, Just $ t & tlsTime -~ 1)
-