ALGO: improve naming of functions

2015-01-09 03:58:05 +01:00
parent 825dd9baa9
commit 54284193cd
2 changed files with 14 additions and 13 deletions
--- a/Graphics/Diagram/AlgoDiags.hs
+++ b/Graphics/Diagram/AlgoDiags.hs
@@ -270,6 +270,9 @@ monotonePolys :: Diag
 monotonePolys = Diag f
  where
    f _ vts = foldl (\x y -> x <> strokePoly y) mempty
-               $ monotonize (concat vts)
+                    (concat
+                      . fmap triangulate
+                      . monotonePartitioning
+                      $ concat vts)
      where
        strokePoly x' = fromVertices $ x' ++ (maybeToList . headMay $ x')