pro create_ct

r = [2*indgen(128),bytarr(128)+255]
g = [2*indgen(128),255-2*indgen(128)]
b = [bytarr(128)+255,255-2*indgen(128)]
r[0] = 0
g[0] = 0
b[0] = 0
tvlct,r,g,b
modifyct,255,'blue-red anomaly',r,g,b

end