find_poly_test.sml

Download

More scripts: Vector

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes

$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));
}