Revert pictures to using lists rather than streams of Verx

src/Dodge/Creature/Lamp.hs

@@ -16,7 +16,7 @@ import Polyhedra
 import qualified IntMapHelp as IM
 import LensHelp
 
-import qualified Streaming.Prelude as S
+--import qualified Streaming.Prelude as S
 
 colorLamp 
     :: Point3   -- color of lamp
@@ -41,7 +41,7 @@ lamp h = defaultInanimate
 lampCrPic :: Float -> Picture
 lampCrPic h = pictures 
     [ setLayer BloomLayer (setDepth h . color white $ circleSolid 3)
-    , foldMap (S.each . polyToTris . map f) $ boxXYZnobase 5 5 (h-1)
+    , foldMap (polyToTris . map f) $ boxXYZnobase 5 5 (h-1)
     ]
   where
     f pos = Verx (pos -.-.- V3 2.5 2.5 0) blue [] BottomLayer polyNum