PRO hess_setup
;+
; Fill hess_common variables with data
;
; NOTE:  All lengths are in mm
;
; 11/21/94 dd Started
; 11/22/94 dd added sign to hs_Doff to indicate hole in or out board
; 11/25/94 dd Added gluing angles, inches, etc.  Finished?
;  3/9/95 dd Changed hs_Xoff to be 1.7 inches.
; 10/10/95 dd Modified for TOGA (TMA support structure) design.
; 10/16/95 dd Modify for three-gratings per segment.
; 12/4/95 dd Change spacing between gratings to +/- 9.45 degrees.
; 12/4/95 dd *** Modify for LEG design of 5 modules per quadrant
; 12/6/95 dd  LEG membrane is 0.5 mm above mounting surface.
;-

@hess_common


; Rowland diameter
				; TMA finite source focal-length
				; from Podgorski ray-trace and e-mail 9/1/95
hs_X = DOUBLE(6469.55 - $
				; shutter blade plane
				; shutter to grating envelope
	(947.00 + 150.0) )      ;  Podgorski,   Norton

; On-axis vertex location at Xg = Xoff
hs_Xoff = DOUBLE(0.5 * 25.4)   ; 1/2" plate?

; TMA parameters!!!  Use two shells (of same values) for HEGs and MEGs
;   HYPERBOLA specification
; Hyperbola Axial distance to finite focus, front
hs_HAf = DOUBLE(6469.55 - 441.37) + FLTARR(1)   ; Podgorski
; Hyperbola Axial distance to finite focus, back
hs_HAb = DOUBLE(6469.55 - 801.82) + FLTARR(1)   ; Podgorski
; Hyperbola Radius, front
hs_HRf = DOUBLE(209.07069) + FLTARR(1)  ; LVS 6/17/93
; Hyperbola Radius, back
hs_HRb = DOUBLE(199.87773) + FLTARR(1)  ; LVS 6/17/93

;   GRATING FRAME parameters
; Distance from grating center to hole centerline
; Positive when hole is at a larger radius than the center.
; For TOGA_LEG "shell 1" is LEGs
; all mounting holes are on inside (is this best?)
hs_Doff = DOUBLE( [-13.50] )
; Distance from grating membrane to mounting surface
hs_Dthk = DOUBLE(0.5) + FLTARR(1)
; Spacing between grating mounting hole - NOT USED
hs_Dspc = DOUBLE( [50.0] )
; Dispersion angle offset from Y axis:
hs_Disp = DOUBLE( [0.0]*!DTOR )

;   SEGMENT parameters
; Names of all the segments
hs_Segs = ['La','Lb','Lc','Ld','Le','Lf','Lg','Lh','Li','Lj', $
		'Lk','Ll','Lm','Ln','Lo','Lp','Lq','Lr','Ls','Lt']
; Gratings per segment
; One module pre segment
hs_GpS = [1]
; Gluing angles: (each segment), add hs_Disp for gluing angle
hs_Tglu = DOUBLE( (90.0-18.0*indgen(20)) * !DTOR)

; Default to inches for hess_plot and hess_out
hs_use_inches = 1

RETURN
END