This commit is contained in:
2024-09-30 21:32:51 +01:00
parent 74b518e10b
commit 48b8cfe7ef
9 changed files with 28 additions and 53 deletions
+1 -1
View File
@@ -124,7 +124,7 @@ polyToPics = map helpPoly3D . _pyFaces
helpPoly3D :: [(Point3, Point4)] -> Picture
helpPoly3D = picFormat . map f . polyToTris
where
f (pos,col) = Verx pos col [] BottomLayer polyNum
f (pos,col) = Verx pos col [] BottomLayer PolyShad
polysToPic :: [Polyhedra] -> Picture
polysToPic = fold . concatMap polyToPics