pro eit_colors,table,r,g,b,_extra=extra ; ;+ ; Name: eit_colors ; ; Purpose: load EIT color tables ; ; Input Parameters: ; table - EIT table number or associated wavelength ; ; Output Parameters: ; r,g,b - optional return RGB ; ; Calling Examples: ; eit_colors,0 ; load the first EIT table (relative) ; eit_colors,41 ; load the first EIT table (absolute) ; eit_colors,284,r,g,b ; map wavelenght-> table, return RGB ; ; Method: ; call ssw_colors ; contains links to SSW color table files ; ; History: ; 18-Feb-1996 (S.L.Freeland) ; 21-Feb-2007 Zarro (ADNET) - added _extra and check color table is a number ; ;- if is_number(table) then table=fix(table) waves=[171,195,284,304] case 1 of n_elements(table) eq 0: itable=0 is_member(table(0),waves): itable=(where(table(0) eq waves))(0)+1 else:itable=table(0) ; pass table through (absolute) endcase ssw_colors,/eit,itable,r,g,b,_extra=extra return end
Last revised: - Wed May 9 21:45:14 2007- F. Auchère