;------------------------------------------------------------- ;+ ; NAME: ; SUN_COLORS ; PURPOSE: ; Load sun color table ; CATEGORY: ; CALLING SEQUENCE: ; sun_colors ; INPUTS: ; KEYWORD PARAMETERS: ; OUTPUTS: ; COMMON BLOCKS: ; NOTES: ; Notes: loads color table from sun_colors_xdr.res ; in routine source directory. ; Colors above index 180 are untouched. ; MODIFICATION HISTORY: ; R. Sterner, 1996 Sep 17 ; ; Copyright (C) 1996, Johns Hopkins University/Applied Physics Laboratory ; This software may be used, copied, or redistributed as long as it is not ; sold and this copyright notice is reproduced on each copy made. This ; routine is provided as is without any express or implied warranties ; whatsoever. Other limitations apply as described in the file disclaimer.txt. ;- ;------------------------------------------------------------- pro sun_colors, help=hlp if keyword_set(hlp) then begin print,' Load sun color table' print,' sun_colors' print,' No args.' print,' Notes: loads color table from sun_colors_xdr.res' print,' in routine source directory.' print,' Colors above index 180 are untouched.' return endif whoami, dir f = filename(dir,'sun_colors_xdr.res',/nosym) resopen,f,/xdr resget,'red',r resget,'gre',g resget,'blu',b resclose tvlct,r,g,b tvlct,0,0,0,!d.n_colors-1 ; Make last color black. return end