just some more comments

noinia · Dec 15, 2024 · d1f5ce1 · d1f5ce1
1 parent d193c1e
commit d1f5ce1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/hgeometry-examples/lowerEnv/Main.hs b/hgeometry-examples/lowerEnv/Main.hs
@@ -108,7 +108,10 @@ myRect = let m = 100 in Box (Point2 (negate m) (negate m)) (Point2 m m)
 
 type Vtx r = (Int, Point 3 r :+ VertexAttributes 'Coloured)
 
-
+-- | Triangulate the faces.
+--
+-- maybe actually move this into the ply-writer, since both blender and the weird online
+-- viewer apparently could not deal well with non-triangular faces to begin with.
 triangulate'        :: (ConvexPolygon_ convexPolygon point r, Ord r, Num r)
                     => (plane, convexPolygon)
                     -> NonEmpty (plane, ConvexPolygon point)

diff --git a/hgeometry/src/HGeometry/PlaneGraph/Class.hs b/hgeometry/src/HGeometry/PlaneGraph/Class.hs
@@ -203,7 +203,6 @@ edgeSegments = theFold
         draw ei _ = let seg = uncurry ClosedLineSegment $ g^.endPointsOf (getPositiveDart g ei)
                     in seg >$ indexed pSegFSeg ei seg
 
--- TODO: Make this into a IndexedFold1
 
 -- | Renders all interior faces as simple polygons.
 interiorFacePolygons :: forall planeGraph vertex r.