delnode.sml

# delnode.sml

clear();
tin Tout;
numeric numnodes, node;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");

# pick a node less than or equal
# to number of nodes
numnodes = TINNumberNodes(Tout);
node = floor(numnodes / 2);

TINDeleteNode(Tout, node);
print("node deleted ", node);