nodetri.sml

# nodetri.sml

clear();
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);