From d1f5ce1b15ecd7e843e12d010d372134de8b52dd Mon Sep 17 00:00:00 2001
From: Frank Staals <frank@fstaals.net>
Date: Sun, 15 Dec 2024 11:09:00 +0100
Subject: [PATCH] just some more comments

---
 hgeometry-examples/lowerEnv/Main.hs         | 5 ++++-
 hgeometry/src/HGeometry/PlaneGraph/Class.hs | 1 -
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/hgeometry-examples/lowerEnv/Main.hs b/hgeometry-examples/lowerEnv/Main.hs
index abbbb4d0a..3215f80cb 100644
--- 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
index ad9612888..d4e9bfd66 100644
--- 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.