pro LOAD_LUT, lut_id

;+******************************************************************************
;
;.Name:     LOAD_LUT
;
;.Type:     IDL procedure
;
;.Filename: CAM_PRO_DIR:CQ_LOAD_LUT.PRO
;
;.Purpose:
;           This procedure loads the CAM specific color tables.
;           containing the 4 reserved color indices.
; 
;.History:
;           0.0 20-DEC-1993  P. Gallais  - First writting
;	    0.1 10-SEP-1997  C. Maurel   - get lut files from QLROOT
;
;.Calling sequence:
;           LOAD_LUT, lut_id
;
;.Arguments:
;           lut_id         input           ???    the IDL id of the lut   
;                                                 to load
;
;.Include files:  
;
;.Inputs:    
;           none
;
;.Outputs:   
;           r_orig         colors          bytarr      Red color indices
;           g_orig         colors          bytarr      Green color indices
;           b_orig         colors          bytarr      Blue color indices
;
;.Calling:
;           none
;
;.Called by:
; 
;-******************************************************************************

common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr

colorpath = getenv ('QLROOT')
IF (!version.os EQ 'vms') THEN sep ='' $
ELSE sep = '/'
lut_name =colorpath + sep+'ql_lut_'+strcompress(string(lut_id), /remove_all)+'.lut'

restore, lut_name

r_curr = r_orig
g_curr = g_orig
b_curr = b_orig

tvlct, r_orig, g_orig, b_orig

return

end