hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DIAGRAM: only show coordinates for intersections

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Graphics/Diagram/Gtk.hs
View File

@ -24,7 +24,7 @@ diag p objs@(Objects _)
mkDiag (mconcat [polyLines, coordPointsText, coordPoints, plotterBG]) mkDiag (mconcat [polyLines, coordPointsText, coordPoints, plotterBG])
p objs p objs
| alg p == 3 = | alg p == 3 =
mkDiag (mconcat [polyIntersectionText, polyIntersection, coordPointsText, mkDiag (mconcat [polyIntersectionText, polyIntersection,
coordPoints, polyLines, plotterBG]) coordPoints, polyLines, plotterBG])
p objs p objs
| otherwise = mempty | otherwise = mempty