dbasepts.sml

  Download

More scripts: Vector

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes
            
# 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);