;+
;
; NAME: ALL3
;	
;
; PURPOSE: This is a special purpose one-time code to support
;	the production of the ang_cov, mod_amp, and effective area
;	figures on a single page using Postscript.
;
;
; CATEGORY: HESSI
;
;
; CALLING SEQUENCE: HESSI
;
;
; CALLS:
;	none
;
; INPUTS:
;       none explicit, everything is hard-coded and expected to break
;	if it is run at a later time.
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	Version 1, richard.schwartz@gsfc.nasa.gov, 21-jan-1998.
;-

!p.multi = [0,1,3]
if !d.name eq 'X' then $
	if !d.window eq -1 or !d.x_size ne 408 or !d.y_size ne 984 then wdef,0,408, 984
set_logenv,'MORE_GDFILE','T',/quiet
set_logenv,'XMARGIN', '14,8',/quiet
charsz = 1.4
set_logenv,'CHARSZ', string(charsz), /quiet
if !d.name eq 'PS' then device,file='all3.ps'
plot_angc_all3, /nodimes, gdfile=get_gdfile(9), def_scr=!d.name, /nosetup
init_linecolors,col,/do_color
xycharsz = ch_scale(charsz,/xy)
xyouts,/norm, 0.10, 0.68, charsiz=xycharsz, color=col.black,$
	'Figure G.3.a-1. The angular coverage provided by the HESSI grids versus the energy'+$
	'!cof the incident photons. The smaller boxes represent the coverages provided by the'+$
	'!cYohkoh SXT and HXT.  The dashed lines within the thick lines represent the coverage'+$
	'!cgiven by the grid thicknesses in the HESSI SMEX proposal.'

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

@special_mod_amp_code

xyouts,/norm, 0.10, 0.375, charsiz=xycharsz, color=col.black,$
	'Figure G.3.a-2. The modulation amplitude provided by the HESSI grids versus the energy'+$
	'!cof the incident photons. Each trace represents the modulation of the photon flux by each'+$
	'!cgrid pair.  At high energy the modulation decreases as the photo-electric cross-section is'+$
	'!cdiminished while below 10 keV diffraction limits the modulation.  The dashed lines represent'+$
	'!cthe modulation for grids 1&2 for a thickness of 70 microns of gold.'

@new_effective_areas_code

xyouts,/norm, 0.10, 0.09, charsiz=xycharsz, color=col.black,$
	'Figure G.3.a-3. The effective area of the HESSI detectors versus the energy of the incident'+$
	'!cphotons. The two solid curves represent the photopeak areas of front and rear segments. '+$
	'!cThe dashed curves represent the photopeak areas for all possible combinations of the shutter'+$
	'!cattenuators.'

if !d.name eq 'PS' then device,/cl

end