Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -127,7 +127,7 @@ helpPoly3D = picFormat . map f . polyToTris
    f (pos,col) = Verx pos col [] BottomLayer polyNum

 polysToPic :: [Polyhedra] -> Picture
-polysToPic = pictures . concatMap polyToPics
+polysToPic = fold . concatMap polyToPics

 polyToEdges :: Polyhedra -> [(Point3,Point3,Point3,Point3)]
 polyToEdges = map denormalEdges . constructEdges . map (map fst) . _pyFaces