Make pictures use Streaming

src/Polyhedra.hs

@@ -18,6 +18,7 @@ import Data.Maybe
 import Data.List
 import Data.Bifunctor
 import Control.Lens
+import qualified Streaming.Prelude as S
 
 translateXY :: Float -> Float -> Polyhedra -> Polyhedra
 translateXY x y = pyFaces %~ map (map $ first tran)
@@ -119,7 +120,7 @@ polyToPics :: Polyhedra -> [Picture]
 polyToPics = map helpPoly3D . _pyFaces
 
 helpPoly3D :: [(Point3, Point4)] -> Picture
-helpPoly3D = map f . polyToTris
+helpPoly3D = S.each . map f . polyToTris
   where
     f (pos,col) = Verx pos col [] BottomLayer polyNum