;+ ; Create and load YLA-Gold color table. ; IDL> lct_yla_gold ; just load. ; IDL> lct_yla_gold, rr,gg,bb ; load and return the table. ; ; History: Aki Takeda(MSU) 26-Sep-2012 : written. ;- PRO lct_yla_gold, rr,gg,bb ; ;***** red ***** work1=indgen(185)/185.*255 work2=replicate(255,71) rr=[work1,work2] ; ;***** green ***** gg=indgen(256)^1.25/255^1.25*255 ; ;***** blue ***** work1=replicate(0,185) work2=indgen(71)/71.*255 bb=[work1,work2] ; rr=bytscl(rr) gg=bytscl(gg) bb=bytscl(bb) ; tvlct,rr,gg,bb print,'% Loading table YLA-GOLD.' ; end