Add explicit layer datatype

2022-04-10 10:48:17 +01:00
parent edd82fb3ac
commit 77c3f83d20
27 changed files with 75 additions and 70 deletions
@@ -121,7 +121,7 @@ polyToPics = map helpPoly3D . _pyFaces
 helpPoly3D :: [(Point3, Point4)] -> Picture
 helpPoly3D = map f . polyToTris
  where
-    f (pos,col) = Verx pos col [] (LayNum 0) polyNum
+    f (pos,col) = Verx pos col [] BottomLayer polyNum

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