edgelist.sml

# edgelist.sml

clear();
tin Tout;
array numeric edgelist[100];
numeric numnodes, node, numedges;

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

numedges = TINGetConnectedEdgeList(Tout, node, edgelist);
print("number of edges connected to node: ", node, " = ", numedges);
numeric i;
for i = 1 to numedges {
	print(edgelist[i]);
	}