Refactor vertex poking

2021-08-10 02:29:17 +02:00
parent 79eb031637
commit 51b8fab214
4 changed files with 57 additions and 66 deletions
@@ -88,7 +88,7 @@ polyToPics = map helpPoly3D . _pyFaces
 helpPoly3D :: [(Point3, Point4)] -> [Verx]
 helpPoly3D vs = map f $ polyToTris vs
  where
-    f (pos,col) = Verx pos col PolyV 0 polyNum
+    f (pos,col) = Verx pos col [] 0 polyNum

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