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