More scripts: TIN

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes
# setz.sml
tin Tout;
numeric numnodes, node;
numeric zvalue;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");
# pick a node less than or equal
# to number of nodes
numnodes = TINNumberNodes(Tout);
node = floor(numnodes / 2);
zvalue = TINGetNodeZValue(Tout, node);
print("origional node, value ", node, zvalue);
TINSetNodeZValue(Tout, node, 100);
zvalue = TINGetNodeZValue(Tout, node);
print("new node, value ", node, zvalue);