Minor cleanups

This commit is contained in:
2022-02-10 10:50:29 +00:00
parent 0a860e6f68
commit 700ab8d930
8 changed files with 26 additions and 36 deletions
+1 -1
View File
@@ -119,7 +119,7 @@ polyToPics :: Polyhedra -> [Picture]
polyToPics = map helpPoly3D . _pyFaces
helpPoly3D :: [(Point3, Point4)] -> Picture
helpPoly3D vs = map f $ polyToTris vs
helpPoly3D = map f . polyToTris
where
f (pos,col) = Verx pos col [] 0 polyNum