DIAGRAM: only show coordinates for intersections

2014-10-28 18:51:19 +01:00
parent 61e0063d78
commit ea06fe4fa1
1 changed files with 1 additions and 1 deletions
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -24,7 +24,7 @@ diag p objs@(Objects _)
      mkDiag (mconcat [polyLines, coordPointsText, coordPoints, plotterBG])
             p objs
  | alg p == 3 =
-      mkDiag (mconcat [polyIntersectionText, polyIntersection, coordPointsText,
+      mkDiag (mconcat [polyIntersectionText, polyIntersection,
                      coordPoints, polyLines, plotterBG])
             p objs
  | otherwise = mempty