Merge Picture and RenderType datatypes

src/Polyhedra.hs

@@ -83,7 +83,12 @@ boxABC a b c =
     faceNA = rhombus c b
 
 polyToPics :: Polyhedra -> [Picture]
-polyToPics = map Poly3D . _pyFaces
+polyToPics = map helpPoly3D . _pyFaces
+
+helpPoly3D vs = zl $ RenderPoly $ polyToTris vs
+  where
+    zl :: RenderType -> [(Int,RenderType)]
+    zl rt = [(0,rt)]
 
 polysToPic :: [Polyhedra] -> Picture
 polysToPic = pictures . concatMap polyToPics