pro rescol
print,'color order'
colors=['white','brown','red','orange','yellow','green','blue','violet','grey','black']
colorindex=[0,1,2,3,4,5,6,7,8,9]
print,[transpose(string(colorindex)),transpose(colors)]

r=[255,150,255,255,100,  0,  0,255,100,0]
g=[255,150,  0,128,200,255,  0,  0,100,0]
b=[255,  0,  0,  0,  0,  0,255,255,100,0]
r=[r,r]
r=[r,r]
r=[r,r]
r=[r,r]
r=[r,r]
g=[g,g]
g=[g,g]
g=[g,g]
g=[g,g]
g=[g,g]
b=[b,b]
b=[b,b]
b=[b,b]
b=[b,b]
b=[b,b]
r=r(0:255)
g=g(0:255)
b=b(0:255)
r(127:255)=0
g(127:255)=0
b(127:255)=0
tvlct,r,g,b
return
end