Continue shape rendering improvements

2021-09-21 02:04:41 +01:00
parent 464b0b16db
commit 2804d58a5a
12 changed files with 20 additions and 73 deletions
@@ -40,8 +40,7 @@ data ShapeObj = ShapeObj

 data ShapeType
    = TopPrism Int
-    | ListV
--    | TopHexahedron    -- ^ assumed convex, eight vertices
+--    | ListV

 -- edges are given by four consecutive points
 data ShapeV = ShapeV