Make pictures use Streaming

src/Picture/Data.hs

@@ -6,6 +6,7 @@ import Geometry.Data
 
 --import qualified Data.Vector.Fusion.Stream.Monadic as VS
 import Control.Lens
+import Streaming
 data Verx = Verx
     { _vxPos    :: !Point3
     , _vxCol    :: !Point4
@@ -45,7 +46,7 @@ bezNum      = ShadNum 2
 textNum     = ShadNum 3
 arcNum      = ShadNum 4
 ellNum      = ShadNum 5
-type Picture = [Verx]
+type Picture = Stream (Of Verx) IO ()
 flat2 :: V2 a -> [a]
 flat2 (V2 x y) = [x,y]
 flat3 :: V3 a -> [a]