More scripts: TIN

Syntax Highlighing:

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