ALGO: implement the quad tree

2014-11-13 23:05:56 +01:00
parent b1280ac958
commit 62d7c9ffcd
8 changed files with 251 additions and 2 deletions
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -18,6 +18,10 @@ diag p obj@(Object _)
  | alg p == 1 =
      mkDiag (mconcat [convexHPText, convexHP, convexHLs, coordPoints, plotterBG])
             p obj
+  | alg p == 4 =
+      mkDiag (mconcat [squares, coordPointsText, coordPoints, polyLines,
+                       plotterBG])
+             p obj
  | otherwise = mempty
 diag p objs@(Objects _)
  | alg p == 2 =