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

DIAGRAM: rm obsolete maybeDiag calls

Browse Source 
We handle these conditions inside the functions themselves
by checking the DiagProp.
This commit is contained in:
hasufell 2014-10-25 15:44:59 +02:00
parent b85afda7e7
commit b67ef899c7
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Graphics/Diagram/Gtk.hs
View File

@ -14,25 +14,25 @@ diag :: DiagProp -> Object -> Diagram Cairo R2
diag p obj@(Object _)
| alg p == 0 =
mkDiag
(mconcat [maybeDiag (ct p) coordPointsText,
(mconcat [coordPointsText,
coordPoints, plotterBG])
p obj
| alg p == 1 =
mkDiag
(mconcat
[maybeDiag (ct p) convexHPText,
[convexHPText,
convexHP, convexHLs,
coordPoints, plotterBG])
p obj
| otherwise = mempty
diag p objs@(Objects _)
| alg p == 2 =
mkDiag (mconcat [polyLines, maybeDiag (ct p) coordPointsText, coordPoints,
mkDiag (mconcat [polyLines, coordPointsText, coordPoints,
plotterBG])
p objs
| alg p == 3 =
mkDiag (mconcat [maybeDiag (ct p) polyIntersectionText,
polyIntersection, maybeDiag (ct p) coordPointsText,
mkDiag (mconcat [polyIntersectionText,
polyIntersection, coordPointsText,
coordPoints, polyLines,
plotterBG])
p objs