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

GUI: allow to draw kdSquares

Browse Source
This commit is contained in:
hasufell 2014-11-29 19:21:46 +01:00
parent 0b36b4acb9
commit 3b61d21549
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GUI/gtk2.glade
View File

@ -856,7 +856,8 @@ Public License instead of this License.
Show convex hull Show convex hull
Show polygons Show polygons
Show polygons intersection Show polygons intersection
Show quad tree squares</property> Show quad tree squares
Show kd tree squares</property>
</widget> </widget>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>

4
Graphics/Diagram/Gtk.hs
View File

@ -23,6 +23,10 @@ diag p obj@(Object _)
mkDiag (mconcat [quadPathSquare, squares, coordPointsText, mkDiag (mconcat [quadPathSquare, squares, coordPointsText,
coordPoints, polyLines, plotterBG]) coordPoints, polyLines, plotterBG])
p obj p obj
| algo p == 5 =
mkDiag (mconcat [kdSquares, coordPointsText,
coordPoints, plotterBG])
p obj
| otherwise = mempty | otherwise = mempty
diag p objs@(Objects _) diag p objs@(Objects _)
| algo p == 2 = | algo p == 2 =