find_poly_test.sml

$warnings 3  # Set warning level 3
clear();

vector Vpoly;

GetInputVector(Vpoly);

numeric i;
for i = 1 to 10
{
	print("element #", Vpoly.poly.Internal[@i].ElemNum);
	numeric x = Vpoly.poly.POLYSTATS[@i].PointInPolyX;
	numeric y = Vpoly.poly.POLYSTATS[@i].PointInPolyY;

	print("closest poly #", FindClosestPoly(Vpoly, x, y));
}