DIAG: Allow drawing the square the user path points to

2014-11-14 21:28:56 +01:00
parent 1387555de6
commit ecf203c825
5 changed files with 119 additions and 9 deletions
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -19,8 +19,8 @@ diag p obj@(Object _)
      mkDiag (mconcat [convexHPText, convexHP, convexHLs, coordPoints, plotterBG])
             p obj
  | alg p == 4 =
-      mkDiag (mconcat [squares, coordPointsText, coordPoints, polyLines,
-                       plotterBG])
+      mkDiag (mconcat [quadPathSquare, squares, coordPointsText,
+                       coordPoints, polyLines, plotterBG])
             p obj
  | otherwise = mempty
 diag p objs@(Objects _)