Minor cleanups
This commit is contained in:
+1
-1
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user