GUI: allow to draw kdSquares

2014-11-29 19:21:46 +01:00
parent 0b36b4acb9
commit 3b61d21549
2 changed files with 6 additions and 1 deletions
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -23,6 +23,10 @@ diag p obj@(Object _)
      mkDiag (mconcat [quadPathSquare, squares, coordPointsText,
                       coordPoints, polyLines, plotterBG])
             p obj
+  | algo p == 5 =
+      mkDiag (mconcat [kdSquares, coordPointsText,
+                       coordPoints, plotterBG])
+             p obj
  | otherwise = mempty
 diag p objs@(Objects _)
  | algo p == 2 =