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

DIAG: simplify by using drawP

Browse Source
This commit is contained in:
hasufell 2014-11-30 20:24:10 +01:00
parent 78a3dd8b95
commit 562f7a58e8
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Graphics/Diagram/Plotter.hs
View File

@ -87,9 +87,8 @@ polyLines = Diag pp
polyIntersection :: Diag polyIntersection :: Diag
polyIntersection = Diag pi' polyIntersection = Diag pi'
where where
pi' p (Objects (x:y:_)) = position (zip vtpi (repeat dot)) pi' p (Objects (x:y:_)) = drawP vtpi (dotSize p) red
where where
dot = (circle $ dotSize p :: Diagram Cairo R2) # fc red # lc red
vtpi = intersectionPoints vtpi = intersectionPoints
. sortLexPolys . sortLexPolys
$ (sortLexPoly x, $ (sortLexPoly x,
@ -120,12 +119,7 @@ polyIntersectionText = Diag pit'
convexHP :: Diag convexHP :: Diag
convexHP = Diag chp convexHP = Diag chp
where where
chp p (Object vt) = chp p (Object vt) = drawP (grahamCH vt) (dotSize p) red
position (zip vtch
(repeat dot))
where
dot = (circle $ dotSize p :: Diagram Cairo R2) # fc red # lc red
vtch = grahamCH vt
chp _ _ = mempty chp _ _ = mempty