More scripts: TIN

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes
# nodetri.sml
tin Tout;
numeric numedges, edge;
numeric edge, nodefrom, nodeto, lefttriangle, righttriangle;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");
# pick an edge less than or equal
# to number of edges
numedges = TINNumberEdges(Tout);
edge = floor(numedges / 2);
TINGetEdgeNodesAndTriangles(Tout, edge, nodefrom, nodeto,lefttriangle, righttriangle);
string temp$ = "edge, nodefrom, nodeto, lefttriangle, righttriangle ";
print(temp$, edge, nodefrom, nodeto, lefttriangle, righttriangle);