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