aUCBLogo Demos and Tests / test_quad_tree

to test_quad_tree
   clearScreen
   setPC HSBA 0 0 0 0.5
   t1=triangle [200 200][200 -200][-200 0]
   updateGraph
end

be triangle p1 p2 p3
   PenUp
   setPos p3
   PenDown
   Polygon
   [   setPos p1
      setPos p2
      setPos p3
   ]
   PenUp
end

be quad_tree center polylist
   local [sub1 sub2 sub3 sub4]
end