Move towards removing renderStrategy data

2021-07-29 15:58:35 +02:00
parent 25a6186e7b
commit 72f57b6ccf
6 changed files with 69 additions and 7 deletions
@@ -102,3 +102,6 @@ polyToRender = map (Render3 . flat4) . polyToEdges
 -- rendering for shape
 polyToGeoRender :: Polyhedra -> [RenderType]
 polyToGeoRender = map (Render3 . polyToTris . map fst) . _pyFaces
+
+polyToGeoRender' :: Polyhedra -> [Point3]
+polyToGeoRender' = concatMap (polyToTris . map fst) . _pyFaces