Move towards resolving picture rendering bug

The bug concerns a mutable vector storing the amount of data that has
been poked.

src/Polyhedra.hs

@@ -20,9 +20,6 @@ import Data.List
 import Data.Bifunctor
 import Control.Lens
 
-picFormat :: [Verx] -> Picture
-picFormat = id
-
 translateXY :: Float -> Float -> Polyhedra -> Polyhedra
 translateXY x y = pyFaces %~ map (map $ first tran)
   where
@@ -120,12 +117,7 @@ boxABC a b c =
     faceNA = rhombus c b
 
 polyToPics :: Polyhedra -> [Picture]
-polyToPics = map helpPoly3D . _pyFaces
-
-helpPoly3D :: [(Point3, Point4)] -> Picture
-helpPoly3D = picFormat . map f . polyToTris
-  where
-    f (pos,col) = Verx pos col [] minBound PolyShad
+polyToPics = map poly3Col . _pyFaces
 
 polysToPic :: [Polyhedra] -> Picture
 polysToPic = foldMap (fold . polyToPics)