Cleanup redundant modules

2021-07-25 02:21:55 +02:00
parent f5873db68d
commit 4f44b748bf
6 changed files with 44 additions and 139 deletions
@@ -85,6 +85,7 @@ boxABC a b c =
 polyToPics :: Polyhedra -> [Picture]
 polyToPics = map helpPoly3D . _pyFaces

+helpPoly3D :: [(Point3, Point4)] -> [(Int, RenderType)]
 helpPoly3D vs = zl $ RenderPoly $ polyToTris vs
  where
    zl :: RenderType -> [(Int,RenderType)]