0.2405    6.8567    0.0000    0.2416    7.3886    0.0000 -0.034953  0.999389  0.000000  211.3885    0.000   1La1
    0.2528    6.5216    2.1190    0.2539    7.0274    2.2833 -0.034953  0.950475  0.308828  211.4008    0.010   1Lb1
    0.2851    5.5485    4.0312    0.2862    5.9788    4.3438 -0.034953  0.808523  0.587426  211.4331    0.017   1Lc1
    0.3250    4.0320    5.5496    0.3261    4.3446    5.9799 -0.034953  0.587426  0.808523  211.4731    0.017   1Ld1
    0.3573    2.1201    6.5250    0.3584    2.2845    7.0309 -0.034953  0.308828  0.950475  211.5054    0.010   1Le1
    0.3697   -0.0000    6.8613    0.3708   -0.0000    7.3931 -0.034953 -0.000000  0.999389  211.5177    0.000   1Lf1
    0.3573   -2.1201    6.5250    0.3584   -2.2845    7.0309 -0.034953 -0.308828  0.950475  211.5054    0.010   1Lg1
    0.3250   -4.0320    5.5496    0.3261   -4.3446    5.9799 -0.034953 -0.587426  0.808523  211.4731    0.017   1Lh1
    0.2851   -5.5485    4.0312    0.2862   -5.9788    4.3438 -0.034953 -0.808523  0.587426  211.4331    0.017   1Li1
    0.2528   -6.5216    2.1190    0.2539   -7.0274    2.2833 -0.034953 -0.950475  0.308828  211.4008    0.010   1Lj1
    0.2405   -6.8567   -0.0000    0.2416   -7.3886   -0.0000 -0.034953 -0.999389 -0.000000  211.3885    0.000   1Lk1
    0.2528   -6.5216   -2.1190    0.2539   -7.0274   -2.2833 -0.034953 -0.950475 -0.308828  211.4008    0.010   1Ll1
    0.2851   -5.5485   -4.0312    0.2862   -5.9788   -4.3438 -0.034953 -0.808523 -0.587426  211.4331    0.017   1Lm1
    0.3250   -4.0320   -5.5496    0.3261   -4.3446   -5.9799 -0.034953 -0.587426 -0.808523  211.4731    0.017   1Ln1
    0.3573   -2.1201   -6.5250    0.3584   -2.2845   -7.0309 -0.034953 -0.308828 -0.950475  211.5054    0.010   1Lo1
    0.3697    0.0000   -6.8613    0.3708    0.0000   -7.3931 -0.034953  0.000000 -0.999389  211.5177    0.000   1Lp1
    0.3573    2.1201   -6.5250    0.3584    2.2845   -7.0309 -0.034953  0.308828 -0.950475  211.5054    0.010   1Lq1
    0.3250    4.0320   -5.5496    0.3261    4.3446   -5.9799 -0.034953  0.587426 -0.808523  211.4731    0.017   1Lr1
    0.2851    5.5485   -4.0312    0.2862    5.9788   -4.3438 -0.034953  0.808523 -0.587426  211.4331    0.017   1Ls1
    0.2528    6.5216   -2.1190    0.2539    7.0274   -2.2833 -0.034953  0.950475 -0.308828  211.4008    0.010   1Lt1
* end *
Wed Dec  6 08:51:10 1995
 
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