Add HACK notes

2014-12-03 21:20:34 +01:00
parent 0f0362322e
commit 9fca3ccaa9
3 changed files with 4 additions and 0 deletions
--- a/Algorithms/KDTree/KDTree.hs
+++ b/Algorithms/KDTree/KDTree.hs
@@ -138,6 +138,7 @@ rangeSearch kd' sq' = (goPt kd' sq', goTree kd' sq' True)
                     (goTree rn sq False)]
        where
          treeText
+            -- HACK: in order to give specific nodes a specific color
            | vis && inRange sq pt = "** " ++ (show . unp2 $ pt)
            | vis                  = "* " ++ (show . unp2 $ pt)
            | otherwise            = show . unp2 $ pt