; Make sets of three plots from the different
; grating-aperture combinations.
; Use Pete's data except for cases where it seems
; to have a problem...

p1d_dir = '/nfs/spectra/d6/p1d/'
; dd's ROI data:
p1d = rdb_read('/spectra/d6/p1d/p1d_wflux.rdb')
; Pete Ratzlaff's XSPEC fits
mgk = rdb_read('/spectra/d6/p1d/Mg-K.rdb')


pre_print_landscape
!p.multi=[0,3,1]
p1d_anal, mgk, 109056
p1d_anal, mgk, 109057
p1d_anal, mgk, 109058
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'HEG10v.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
p1d_anal, mgk, 109061
p1d_anal, mgk, 109062
p1d_anal, mgk, 109063
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'MEG10v.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
p1d_anal, mgk, 109082
p1d_anal, mgk, 109083
p1d_anal, mgk, 109084
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'LEG10v.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
p1d_anal, mgk, 109064
p1d_anal, mgk, 109065
p1d_anal, mgk, 109066
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'HEG80v.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
p1d_anal, mgk, 109068
p1d_anal, mgk, 109069
p1d_anal, mgk, 109070
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'MEG80v.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
p1d_anal, mgk, 109085
p1d_anal, mgk, 109086
p1d_anal, mgk, 109087
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'LEG80v.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
;p1d_anal, mgk, 109078
;p1d_anal, mgk, 109079
;p1d_anal, mgk, 109080
hist_play, p1d_dir+'p1d109078_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
hist_play, p1d_dir+'p1d109079_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
hist_play, p1d_dir+'p1d109080_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'HEG10h.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
;p1d_anal, mgk, 109072
;p1d_anal, mgk, 109076
;p1d_anal, mgk, 109075
hist_play, p1d_dir+'p1d109072_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
hist_play, p1d_dir+'p1d109076_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
hist_play, p1d_dir+'p1d109075_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'MEG10h.ps'
$rm idl.ps

pre_print_landscape
!p.multi=[0,3,1]
;p1d_anal, mgk, 109088
;p1d_anal, mgk, 109089
;p1d_anal, mgk, 109090
hist_play, p1d_dir+'p1d109088_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
hist_play, p1d_dir+'p1d109089_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
hist_play, p1d_dir+'p1d109090_hist.rdb', /LOG, /NORM, /CENTER, /GAUS, $
	XRANGE=[-0.25,0.25], YRANGE=[0.0001,0.5]
device,/close
SPAWN, 'cp idl.ps '+p1d_dir+'LEG10h.ps'
$rm idl.ps




set_plot, 'X'