More scripts: TIN

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes
# triext.sml
tin Tout;
numeric numtriangles, triangle;
numeric x1, y1, x2, y2;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");
# pick a triangle less than or equal
# to number of triangle
numtriangles = TINNumberTriangles(Tout);
triangle = floor(numtriangles / 2);
TINGetTriangleExtents(Tout, triangle, x1, y1, x2, y2);
print("node, x1, y1, x2, y2 ", triangle, x1, y1, x2, y2);