DIAGRAM: only show coordinates for intersections
This commit is contained in:
parent
61e0063d78
commit
ea06fe4fa1
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user