Change poke to use folding rather than store incremental ints in vector

src/Dodge/Render/ShapePicture.hs

@@ -20,7 +20,6 @@ import Dodge.Wall.Zone
 import Geometry
 import Geometry.Zone
 import ShapePicture
-import Shape
 import Picture
 import Sound.Data
 import Geometry.ConvexPoly
@@ -35,7 +34,7 @@ import qualified Streaming.Prelude as S
 -- TODO only filter out shapes outside the range of the furthest shown light source
 worldSPic :: Configuration -> World -> SPic
 worldSPic cfig w = 
-    (extraShapes w, extraPics cfig w)
+    (mempty, extraPics cfig w)
     --(mempty, extraPics cfig w)
     <> foldMap (dbArg _prDraw) (filtOn _prPos _props)
     <> foldMap (shiftDraw _blPos _blDir _blDraw) (filtOn _blPos _blocks)
@@ -60,9 +59,6 @@ cullPoint cfig w p
     | debugOn Close_shape_culling cfig = pointInPolygon p (_boundBox w)
     | otherwise = dist (_cameraCenter w) p < _viewDistance w
 
-extraShapes :: World -> Shape
-extraShapes = _foregroundShape
-
 -- TODO filter out pictures not in the frame
 extraPics :: Configuration -> World -> Picture
 extraPics cfig w = pictures (_decorations w)