;*****************************************************************************
;+
;*NAME:
;
;    	CAMTRACE     (RDAF General Production Library)       January 28, 1987
;  
;*CLASS:
;
;	Graphics
;  
;*CATEGORY:
;  
;*PURPOSE:
;
;    	Set up default tracings for large or small aperture spectra when called
;       by MISDAT.
;  
;*CALLING SEQUENCE:
;
;    	CAMTRACE,NC,APNAME
;  
;*PARAMETERS:
;
;    	NC      (REQ) (I) (1) (I)
;    		Camera number, i.e. for LWP = 1, LWR = 2, and SWP = 3.
;
;    	APNAME  (REQ) (I) (1) (S)
;    		Aperture type, i.e. 'LARGE'.
;  
;*EXAMPLES:
;
;    	camtrace,2,'large'
;
;*SYSTEM VARIABLES USED:
;
;	None.
;   
;*INTERACTIVE INPUT:
;
;       none
;  
;*FILES USED:
;
;       none
;  
;*SUBROUTINES CALLED:
;
;       PARCHECK
;
;*SIDE EFFECTS:
;  
;*NOTES:
;  
;*PROCEDURE:
;  
;*I_HELP nn:
;
;*MODIFICATION HISTORY:
;
;      	See MISDAT.PRO
;      	5-10-88 HAA add RDAF Prolog
;       7-21-88 RWT correct error in LWP large aperture labels
;       1-09-90 RWT UNIX mods: lower case used and XYOUTS command modified
;       8 July 1991  LLT clean up, add parcheck, update prolog
;       15 Feb 94  PJL  update prolog;  remove '&'
;
;-
;******************************************************************************
 pro camtrace,nc,apname
;    
;  set up default tracings for large or small aperture spectra
;
 npar = n_params(0)
 if (npar eq 0) then begin
    print,'CAMTRACE,NC,APNAME'
    retall
 endif  ; npar eq 0
 parcheck,npar,2,'CAMTRACE'
;
 apname = strlowcase(apname)
 s = fltarr(2)
 l = s 
 minlab = '1850'
 maxlab = '3350'
 if (nc eq 3) then begin             ; swp
    minlab = '1150'
    maxlab = '1950'
    if (apname eq 'large') then begin
       s([0,1]) = [495,55]
       l([0,1]) = [85,465]
    endif  ; swp large aperture
    if (apname eq 'small') then begin
       s([0,1]) = [518,56]
       l([0,1]) = [113,485]
    endif  ; swp small aperture
 endif else if (nc eq 2) then begin    ; lwr
     if (apname eq 'large') then begin
        s([0,1]) = [175,685]
        l([0,1]) = [150,515]
     endif ;  lwr large aperture
     if (apname eq 'small') then begin
        s([0,1]) = [196,709]
        l([0,1]) = [138,522]
     endif ;  lwr small aperture
 endif else if (nc eq 1) then begin    ; lwp
    if (apname eq 'large') then begin
      s([0,1]) = [575,100]
      l([0,1]) = [165,575] 
    endif ;  lwp large aperture
    if (apname eq 'small') then begin
      s([0,1]) = [550,75]
      l([0,1]) = [150,550]
    endif ;  lwp small aperture
 endif
;
 oplot,s,-l,psym=0
 xyouts,s(0)+10,-l(0),minlab
 xyouts,s(1)+10,-l(1),maxlab
;
 return
 end  ; camtrace