Working (but slow) shadow shapes

src/Dodge/Render/Picture.hs

@@ -15,6 +15,7 @@ import Sound.Data
 import Geometry
 import Picture
 import Polyhedra.Data
+import ShapePicture
 
 import Control.Lens
 import Data.Maybe
@@ -88,7 +89,7 @@ soundPic w s = fixedSizePicClampArrow 50 50 thePic p w
     f x = 1 - 0.5 * (1 - x)
 
 crDraw :: World -> Creature -> Picture
-crDraw w c = _crPict c c w
+crDraw w c = _spPicture $ _crPict c c w
 ppDraw :: PressPlate -> Picture
 ppDraw c = uncurryV translate (_ppPos c) $ rotate (_ppRot c) (_ppPict c)
 btDraw :: Button -> Picture