col[] = [ 000 900 090 009 909 099 990 999 ]
w = 100 / len col[]
for i = 1 to len col[]
gcolor col[i]
grect w * (i - 1) 0 w 100
.