dbasepts.sml

# This was written by Jason Rader on Jan 13 1999.  

vector V;
class FILE f;
GetInputVector(V);
numeric numPoints = NumVectorPoints(V);

f=GetOutputTextFile("c:/default.txt", "Select text file for output.", "txt");
fprintf(f,"%4s %8s %8s\n","num","X","Y");
numeric i, x, y;
for i = 1 to numPoints{
  x = V.Point[i].Internal.x;
  y = V.Point[i].Internal.y;
  fprintf(f,"%4d %8.3f %8.3f\n",i, x, y);
}
fclose(f);