JAXAの衛星CIRCが熱赤外線画像に利用しているような色合いの
カラーテーブルを呼び出す
pro ct_iron
r = Interpol([0, 0, 255, 255, 255], [0, 63, 127, 191, 255], Findgen(256))
g = Interpol([0, 0, 0, 255, 255], [0, 63, 127, 191, 255], Findgen(256))
b = Interpol([0,255, 0, 0, 255], [0, 63, 127, 191, 255], Findgen(256))
TVLCT, r, g, b
end