nodelist.sml

# nodelist.sml

array numeric nodelist[100];
numeric numnodes, node;
clear();
tin Tout;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");

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

numnodes = TINGetConnectedNodeList(Tout, node, nodelist);
print("number of nodes connected to node: ", node, " = ", numnodes);
numeric i;
for i = 1 to numnodes {
	print(nodelist[i]);
	}