DIAGRAM: only show coordinates for intersections

This commit is contained in:
hasufell 2014-10-28 18:51:19 +01:00
parent 61e0063d78
commit ea06fe4fa1
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions

View File

@ -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