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

DIAGRAM: fix unfiltered vtable for pointText functions

Browse Source
This commit is contained in:
hasufell 2014-10-10 23:59:02 +02:00
parent 60843e5879
commit ab2a0a331d
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Graphics/Diagram/Plotter.hs
View File

@ -36,9 +36,11 @@ pointToTextCoord pt =
coordPointsText :: Diag
coordPointsText = Diag cpt
where
cpt _ vt =
cpt p vt =
position $
zip vt (pointToTextCoord <$> vt) # translate (r2 (0, 10))
zip vtf (pointToTextCoord <$> vtf) # translate (r2 (0, 10))
where
vtf = filter (inRange (dX p) (dY p)) vt
-- |Create a diagram which shows the points of the convex hull.
@ -57,12 +59,12 @@ convexHullPoints = Diag chp
convexHullPointsText :: Diag
convexHullPointsText = Diag chpt
where
chpt _ vt =
chpt p vt =
position $
zip vtch
(pointToTextCoord <$> vtch) # translate (r2 (0, 10))
zip vtchf
(pointToTextCoord <$> vtchf) # translate (r2 (0, 10))
where
vtch = grahamGetCH vt
vtchf = grahamGetCH . filter (inRange (dX p) (dY p)) $ vt
-- |Create a diagram which shows the lines along the convex hull