vlabel.sml

# vlabel.sml

clear();
vector V;
array numeric labelList[10];
string label$;
numeric height;
numeric x1, y1, x2, y2;
numeric numLabels;

GetOutputVector(V, "VectorToolkit");

label$ = "abcdEFG";
height = 20;

x1 = 20;
y1 = 10;
x2 = 40;
y2 = 10;

numLabels = NumVectorLabels(V);
print("number of labels: ", numLabels);

# add 4 labels
numeric i;
for i = 1 to 4 {
	VectorAddLabel(V, label$, height, x1, y1, x2, y2);
	y1 += 25;
	y2 += 25;
	height /= 2;
	}
numLabels = NumVectorLabels(V);
print("number of labels: ", numLabels);

VectorDeleteLabel(V, 1);
numLabels = NumVectorLabels(V);
print("number of labels: ", numLabels);

labelList[1] = 1;
labelList[2] = 2;
VectorDeleteLabels(V, labelList, 2);
numLabels = NumVectorLabels(V);
print("number of labels: ", numLabels);