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

ALGO: improve function names

Browse Source
This commit is contained in:
hasufell
2014-10-13 19:50:02 +02:00
parent 7cdb867cf4
commit edde93ec77
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Graphics/Diagram/Plotter.hs
View File

@@ -87,7 +87,7 @@ convexHullLines = Diag chl
convexHullLinesIntervalLower :: DiagProp -> [PT] -> [Diagram Cairo R2]
convexHullLinesIntervalLower p xs =
fmap mkChDiag (grahamGetLowerHullSteps xs)
fmap mkChDiag (grahamLHSteps xs)
where
mkChDiag vt =
(strokeTrail .
@@ -101,7 +101,7 @@ convexHullLinesIntervalLower p xs =
convexHullLinesIntervalUpper :: DiagProp -> [PT] -> [Diagram Cairo R2]
convexHullLinesIntervalUpper p xs =
fmap mkChDiag (grahamGetUpperHullSteps xs)
fmap mkChDiag (grahamUHSteps xs)
where
mkChDiag vt =
(strokeTrail .