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

Add HACK notes

This commit is contained in:
hasufell 2014-12-03 21:20:34 +01:00
parent 0f0362322e
commit 9fca3ccaa9
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
3 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Algorithms/KDTree/KDTree.hs
View File

@ -138,6 +138,7 @@ rangeSearch kd' sq' = (goPt kd' sq', goTree kd' sq' True)
(goTree rn sq False)] (goTree rn sq False)]
where where
treeText treeText
-- HACK: in order to give specific nodes a specific color
| vis && inRange sq pt = "** " ++ (show . unp2 $ pt) | vis && inRange sq pt = "** " ++ (show . unp2 $ pt)
| vis = "* " ++ (show . unp2 $ pt) | vis = "* " ++ (show . unp2 $ pt)
| otherwise = show . unp2 $ pt | otherwise = show . unp2 $ pt

1
Algorithms/QuadTree/QuadTree.hs
View File

@ -214,6 +214,7 @@ quadTreeToRoseTree z' = go (rootNode z')
, go (fromJust . goSE $ z)] , go (fromJust . goSE $ z)]
where where
markAndPrintOrigin markAndPrintOrigin
-- HACK: in order to give specific nodes a specific color
| z' == z = "* " ++ printOrigin | z' == z = "* " ++ printOrigin
| otherwise = printOrigin | otherwise = printOrigin
printOrigin printOrigin

2
Graphics/Diagram/Plotter.hs
View File

@ -222,6 +222,7 @@ kdTreeDiag = Diag f
where where
f _ (Object []) = mempty f _ (Object []) = mempty
f p (Object vt) = f p (Object vt) =
-- HACK: in order to give specific nodes a specific color
renderTree (\n -> case n of renderTree (\n -> case n of
'*':'*':_ -> (text n # fontSizeL 5.0) '*':'*':_ -> (text n # fontSizeL 5.0)
<> rect 50.0 20.0 # fc green <> rect 50.0 20.0 # fc green
@ -300,6 +301,7 @@ treePretty = Diag f
Left x -> getCurQT qs (fromMaybe z (goQuad x z)) Left x -> getCurQT qs (fromMaybe z (goQuad x z))
prettyRoseTree :: Tree String -> Diagram Cairo R2 prettyRoseTree :: Tree String -> Diagram Cairo R2
prettyRoseTree tree = prettyRoseTree tree =
-- HACK: in order to give specific nodes a specific color
renderTree (\n -> case head n of renderTree (\n -> case head n of
'*' -> (text n # fontSizeL 5.0) '*' -> (text n # fontSizeL 5.0)
<> rect 50.0 20.0 # fc red <> rect 50.0 20.0 # fc red