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?
;-

@hess_common


; Rowland diameter
hs_X = DOUBLE(339.909 * 25.4)  ; from mm009

; On-axis vertex location at Xg = Xoff
hs_Xoff = DOUBLE(1.6 * 25.4)   ; from mm009

;   HYPERBOLA specification
; Hyperbola Axial distance to focus, front
hs_HAf = DOUBLE(10018.0) + FLTARR(6)
; Hyperbola Axial distance to focus, back
hs_HAb = DOUBLE(9179.8) + FLTARR(6)
; Hyperbola Radius, front
hs_HRf = DOUBLE([598.52343,0., 481.77216, 425.27403, 0., 316.02294])
; Hyperbola Radius, back
hs_HRb = DOUBLE([560.86506, 0., 451.45717, 398.51324, 0., 296.13584])

;   GRATING FRAME parameters
; Distance from grating center to hole centerline
; Positive when hole is at a larger radius than the center.
hs_Doff = DOUBLE( [0.6755, 0., 0.6755, -0.6180, 0., -0.6180]*DOUBLE(25.4) )
; Distance from grating membrane to mounting surface
hs_Dthk = DOUBLE(0.187*25.4) + FLTARR(6)
; Spacing between grating mounting hole
hs_Dspc = DOUBLE( [1.115, 0., 1.115, 1.000, 0., 1.000]*DOUBLE(25.4) )
; Dispersion angle offset from Y axis:
hs_Disp = DOUBLE( [+5.0, 0., +5.0, -5.0, 0., -5.0]*!DTOR )

;   SEGMENT parameters
; Names of all the segments
hs_Segs = ['A','B','C','D','E','F','AA','BB','CC','DD','EE','FF']
; Gratings per segment
hs_GpS = [9, 0, 7, 7, 0, 5]
; Gluing angles: (each segment), add hs_Disp for gluing angle
hs_Tglu = DOUBLE([75.,45.,15.,-15.,-45.,-75., $
			-105.,-135.,-165.,-195.,-225.,-255.] * !DTOR)

; Default to inches for hess_plot and hess_out
hs_use_inches = 1

RETURN
END