edgehole.sml

# edgehole.sml

clear();
tin Tout;
numeric numedges, edge;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");

# pick a edge less than or equal
# to number of edges
numedges = TINNumberEdges(Tout);
edge = floor(numedges / 2);

TINDeleteEdgeAndMakeHole(Tout, edge);
print("edge deleted ", edge);