Working (but slow) shadow shapes

src/Dodge/Render.hs

@@ -9,7 +9,6 @@ import Dodge.Config.Data
 import Dodge.Base.Window
 import Dodge.Render.Picture
 --import Dodge.Creature.ShadowBox
-import Dodge.Creature.Silhouette
 import Dodge.Render.Shape
 import Geometry
 import Render
@@ -57,11 +56,12 @@ doDrawing pdata w = do
     -- poke wall points and colors
     nWalls <- poke224s (shadVBOptr $ _wallTextureShader pdata) wallPointsCol
     nSils <- pokePoint3s (shadVBOptr $ _lightingLineShadowShader pdata) 
-        $ creatureSilhouettes w
+        $ (_shEdges $ worldShape w)
         ++ _foregroundEdgeVerx w
     -- poke foreground geometry for caps
     nCaps <- pokePoint3s (shadVBOptr $ _lightingCapShader pdata)
         $ concatMap polyToGeoRender (foregroundPics w)
+            ++ map _svPos (_shVertices $ worldShape w)
     -- bind wall points, silhouette data, surface geometry
     uncurry bindShaderBuffers $ unzip
         [ ( _wallTextureShader pdata, nWalls)