PRO it_savecolor,filename

filename=filename+'.lut'

_r = intarr(256)
_g = intarr(256)
_b = intarr(256)

temp=intarr(4,256)
temp(0,*)=lindgen(256)

tvlct,_r,_g,_b,/GET

temp(1,*)=_r
temp(2,*)=_g
temp(3,*)=_b

openw,unit,filename,/GET_LUN
printf,unit,temp
close,unit,/ALL

END