#use with cb_wells to connect the dots

clear();
vector vect1, vect2;
class Georef georef;

GetInputVector(vect1);

GetOutputVector(vect2);
VectorToolkitInit(vect2);

numeric numpoints = vect1.$Info.NumPoints;

array numeric x[numpoints], y[numpoints];

numeric i;
for i = 1 to numpoints
{
	print(vect1.point.Internal[@i].ElemNum);
	x[i] = vect1.point.Internal[@i].x;
	y[i] = vect1.point.Internal[@i].y;
	print(x[i], ",", y[i]);

}

x[numpoints] = x[1];
y[numpoints] = y[1];

georef = GetLastUsedGeorefObject(vect1);
CopyGeorefToObject(vect2, georef);

VectorAddLine(vect2, numpoints, x, y);
VectorValidate(vect2);
CloseVector(vect1);
CloseVector(vect2);