PRO cip_other_plots
; Make plots of all the non-grating CIP files...

cip_dir = '/nfs/spectra/d6/CIP/'

; HRMA
hrma = rdb_read(cip_dir+'hrma.rdb')
; ACIS
acis_qe = rdb_read(cip_dir+'acis_qe.rdb')
acis_fil = rdb_read(cip_dir+'acis_fil.rdb')
; HRC
hrc_qe = rdb_read(cip_dir+'hrc_qe.rdb')
hrc_uvis = rdb_read(cip_dir+'hrc_uvis.rdb')
hrc_hesf = rdb_read(cip_dir+'hrc_hesf.rdb')

pre_print_sqr
!p.multi = 0

plot_oo, hrma.energy, hrma.all, XRANGE=[0.05, 10.], XSTYLE=1, $
	TITLE = 'hrma.rdb', XTITLE='Energy (keV)', $
	YTITLE = 'Area (cm^2)'
oplot, hrma.energy, hrma.shell1
oplot, hrma.energy, hrma.shell3, LINESTYLE=1
oplot, hrma.energy, hrma.shell4, LINESTYLE=2
oplot, hrma.energy, hrma.shell6

device, /close
SPAWN, 'cp idl.ps hrma.ps'

; - - - - -

pre_print_2to3
!p.multi = [0,1,2]

plot_oo, acis_qe.energy, acis_qe.fi, $
	XRANGE=[0.05, 10.], XSTYLE=1, $
	TITLE = 'acis_qe.rdb', XTITLE='Energy (keV)', $
	YTITLE= 'Quantum Efficiency', YRANGE=[1.E-3,1.0], $
	CHARSIZE=1.4
oplot, acis_qe.energy, acis_qe.bi, LINESTYLE=2
	
xyouts, 0.26, 0.003, 'fi',CHARSIZE=1.5
xyouts, 0.1, 0.2, 'bi', CHARSIZE=1.5

plot_oo, acis_fil.energy, acis_fil.i, $
	XRANGE=[0.05, 10.], XSTYLE=1, $
	TITLE = 'acis_fil.rdb', XTITLE='Energy (keV)', $
	YTITLE = 'Filter Transmission',YRANGE=[1.E-3,1.0], $
	CHARSIZE=1.4
oplot, acis_fil.energy, acis_fil.s, LINESTYLE=2
xyouts, 0.1, 0.022, 'i',CHARSIZE=1.5
xyouts, 0.1, 0.0025, 's', CHARSIZE=1.5

device, /close
SPAWN, 'cp idl.ps acis.ps'

; - - - - -

pre_print_2to3
!p.multi = [0,1,3]

plot_oo, hrc_qe.energy, hrc_qe.i, $
	XRANGE=[0.05, 10.], XSTYLE=1, $
	TITLE = 'hrc_qe.rdb', XTITLE='Energy (keV)', $
	YTITLE= 'Quantum Efficiency', YRANGE=[0.03,1.0], YSTYLE=1, $
	CHARSIZE=1.4
oplot, hrc_qe.energy, hrc_qe.s, LINESTYLE=2
xyouts, 3.0, 0.2, 'i',CHARSIZE=1.5
xyouts, 2.4, 0.07, 's', CHARSIZE=1.5

plot_oo, hrc_uvis.energy, hrc_uvis.i, $
	XRANGE=[0.05, 10.], XSTYLE=1, $
	TITLE = 'hrc_uvis.rdb', XTITLE='Energy (keV)', $
	YTITLE = 'Filter Transmission',YRANGE=[1.E-3,1.0], $
	CHARSIZE=1.4
xyouts, 0.1, 0.005, 'i',CHARSIZE=1.5
oplot, hrc_uvis.energy, hrc_uvis.st, LINESTYLE=2
oplot, hrc_uvis.energy, hrc_uvis.si, LINESTYLE=1
xyouts, 0.1, 0.027, 'st', CHARSIZE=1.5
xyouts, 0.1, 0.1, 'si', CHARSIZE=1.5
oplot, hrc_uvis.energy, hrc_uvis.so, LINESTYLE=2
oplot, hrc_uvis.energy, hrc_uvis.sst, LINESTYLE=1
xyouts, 0.1, 0.19, 'so', CHARSIZE=1.5
xyouts, 0.13, 0.002, 'sst', CHARSIZE=1.5

plot_oo, hrc_hesf.energy, hrc_hesf.refly, $
	XRANGE=[0.05, 10.], XSTYLE=1, $
	TITLE = 'hrc_hesf.rdb', XTITLE='Energy (keV)', $
	YTITLE = 'HESF Reflectivity', YRANGE=[1.E-3,1.0], $
	CHARSIZE=1.4

device, /close
SPAWN, 'cp idl.ps hrc.ps'

RETURN
END