0.0780    6.6954    0.5392   1A1
    0.0822    6.4786    1.7359   1A2
    0.0923    6.0684    2.8809   1A3
    0.1114    5.5297    3.8153   1B1
    0.1317    4.7439    4.7439   1B2
    0.1526    3.8162    5.5309   1B3
    0.1759    2.8821    6.0711   1C1
    0.1924    1.7369    6.4823   1C2
    0.2028    0.5396    6.6997   1C3
    0.2071   -0.5397    6.6999   1D1
    0.2036   -1.7370    6.4827   1D2
    0.1928   -2.8824    6.0716   1D3
    0.1738   -3.8166    5.5315   1E1
    0.1541   -4.7444    4.7444   1E2
    0.1326   -5.5303    3.8158   1E3
    0.1092   -6.0690    2.8812   1F1
    0.0934   -6.4790    1.7360   1F2
    0.0823   -6.6955    0.5392   1F3
    0.0780   -6.6954   -0.5392   1AA1
    0.0822   -6.4786   -1.7359   1AA2
    0.0923   -6.0684   -2.8809   1AA3
    0.1114   -5.5297   -3.8153   1BB1
    0.1317   -4.7439   -4.7439   1BB2
    0.1526   -3.8162   -5.5309   1BB3
    0.1759   -2.8821   -6.0711   1CC1
    0.1924   -1.7369   -6.4823   1CC2
    0.2028   -0.5396   -6.6997   1CC3
    0.2071    0.5397   -6.6999   1DD1
    0.2036    1.7370   -6.4827   1DD2
    0.1928    2.8824   -6.0716   1DD3
    0.1738    3.8166   -5.5315   1EE1
    0.1541    4.7444   -4.7444   1EE2
    0.1326    5.5303   -3.8158   1EE3
    0.1092    6.0690   -2.8812   1FF1
    0.0934    6.4790   -1.7360   1FF2
    0.0823    6.6955   -0.5392   1FF3
    0.0803    6.7510    0.5541   2A1
    0.0914    6.5345    1.7509   2A2
    0.1072    6.1245    2.8960   2A3
    0.1306    5.5709    3.8564   2B1
    0.1521    4.7851    4.7851   2B2
    0.1718    3.8572    5.5721   2B3
    0.1909    2.8972    6.1271   2C1
    0.2016    1.7519    6.5382   2C2
    0.2052    0.5545    6.7554   2C3
    0.2008   -0.5545    6.7552   2D1
    0.1904   -1.7518    6.5378   2D2
    0.1740   -2.8970    6.1266   2D3
    0.1506   -3.8568    5.5715   2E1
    0.1297   -4.7845    4.7845   2E2
    0.1094   -5.5703    3.8560   2E3
    0.0903   -6.1239    2.8958   2F1
    0.0802   -6.5341    1.7508   2F2
    0.0760   -6.7509    0.5541   2F3
    0.0803   -6.7510   -0.5541   2AA1
    0.0914   -6.5345   -1.7509   2AA2
    0.1072   -6.1245   -2.8960   2AA3
    0.1306   -5.5709   -3.8564   2BB1
    0.1521   -4.7851   -4.7851   2BB2
    0.1718   -3.8572   -5.5721   2BB3
    0.1909   -2.8972   -6.1271   2CC1
    0.2016   -1.7519   -6.5382   2CC2
    0.2052   -0.5545   -6.7554   2CC3
    0.2008    0.5545   -6.7552   2DD1
    0.1904    1.7518   -6.5378   2DD2
    0.1740    2.8970   -6.1266   2DD3
    0.1506    3.8568   -5.5715   2EE1
    0.1297    4.7845   -4.7845   2EE2
    0.1094    5.5703   -3.8560   2EE3
    0.0903    6.1239   -2.8958   2FF1
    0.0802    6.5341   -1.7508   2FF2
    0.0760    6.7509   -0.5541   2FF3
* end *
Tue May 14 10:42:52 1996
 
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.
;-

@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(2)   ; Podgorski
; Hyperbola Axial distance to finite focus, back
hs_HAb = DOUBLE(6469.55 - 801.82) + FLTARR(2)   ; Podgorski
; Hyperbola Radius, front
hs_HRf = DOUBLE(209.07069) + FLTARR(2)  ; LVS 6/17/93
; Hyperbola Radius, back
hs_HRb = DOUBLE(199.87773) + FLTARR(2)  ; 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 "shell 1" is MEGs and shell 2 is HEGs
; all mounting holes are on inside (is this best?)
hs_Doff = DOUBLE( [-0.6755, -0.6180]*DOUBLE(25.4) )
; Distance from grating membrane to mounting surface
hs_Dthk = DOUBLE(0.187*25.4) + FLTARR(2)
; Spacing between grating mounting hole
hs_Dspc = DOUBLE( [1.115, 1.000]*DOUBLE(25.4) )
; Dispersion angle offset from Y axis:
hs_Disp = DOUBLE( [+5.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
; Three gratings per segment, spaced +/- 9.45 degrees
hs_GpS = [3,3]
; 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