    0.0780    6.6954    0.5392    0.2416    7.3540    0.7146 -0.034479  0.965352  0.258665  211.3885    0.005   1A1
    0.0822    6.4786    1.7359    0.2455    7.1370    1.9123 -0.034953  0.965336  0.258661  211.3924    0.006   1A2
    0.0923    6.0684    2.8809    0.2559    6.7265    3.0583 -0.034479  0.965352  0.258665  211.4028    0.017   1A3
    0.1114    5.5297    3.8153    0.2750    6.0124    4.2965 -0.034479  0.706686  0.706686  211.4219    0.010   1B1
    0.1317    4.7439    4.7439    0.2950    5.2258    5.2258 -0.034953  0.706675  0.706675  211.4419    0.017   1B2
    0.1526    3.8162    5.5309    0.3162    4.2973    6.0135 -0.034479  0.706686  0.706686  211.4631    0.023   1B3
    0.1759    2.8821    6.0711    0.3395    3.0596    6.7291 -0.034479  0.258665  0.965352  211.4865    0.009   1C1
    0.1924    1.7369    6.4823    0.3557    1.9133    7.1407 -0.034953  0.258661  0.965336  211.5026    0.011   1C2
    0.2028    0.5396    6.6997    0.3664    0.7150    7.3583 -0.034479  0.258665  0.965352  211.5134    0.012   1C3
    0.2071   -0.5397    6.6999    0.3707   -0.7150    7.3585 -0.034479 -0.258665  0.965351  211.5177    0.006   1D1
    0.2036   -1.7370    6.4827    0.3669   -1.9134    7.1411 -0.034953 -0.258661  0.965336  211.5138    0.006   1D2
    0.1928   -2.8824    6.0716    0.3564   -3.0598    6.7297 -0.034479 -0.258665  0.965351  211.5034    0.005   1D3
    0.1738   -3.8166    5.5315    0.3374   -4.2978    6.0142 -0.034479 -0.706686  0.706686  211.4843    0.021   1E1
    0.1541   -4.7444    4.7444    0.3174   -5.2264    5.2264 -0.034953 -0.706675  0.706675  211.4643    0.017   1E2
    0.1326   -5.5303    3.8158    0.2962   -6.0130    4.2969 -0.034479 -0.706686  0.706686  211.4431    0.012   1E3
    0.1092   -6.0690    2.8812    0.2728   -6.7270    3.0586 -0.034479 -0.965352  0.258665  211.4197    0.021   1F1
    0.0934   -6.4790    1.7360    0.2567   -7.1373    1.9124 -0.034953 -0.965336  0.258661  211.4036    0.011   1F2
    0.0823   -6.6955    0.5392    0.2459   -7.3541    0.7146 -0.034479 -0.965352  0.258665  211.3928    0.001   1F3
    0.0780   -6.6954   -0.5392    0.2416   -7.3540   -0.7146 -0.034479 -0.965351 -0.258665  211.3885    0.005   1AA1
    0.0822   -6.4786   -1.7359    0.2455   -7.1370   -1.9123 -0.034953 -0.965336 -0.258661  211.3924    0.006   1AA2
    0.0923   -6.0684   -2.8809    0.2559   -6.7265   -3.0583 -0.034479 -0.965351 -0.258665  211.4028    0.017   1AA3
    0.1114   -5.5297   -3.8153    0.2750   -6.0124   -4.2965 -0.034479 -0.706686 -0.706686  211.4219    0.010   1BB1
    0.1317   -4.7439   -4.7439    0.2950   -5.2258   -5.2258 -0.034953 -0.706675 -0.706675  211.4419    0.017   1BB2
    0.1526   -3.8162   -5.5309    0.3162   -4.2973   -6.0135 -0.034479 -0.706686 -0.706686  211.4631    0.023   1BB3
    0.1759   -2.8821   -6.0711    0.3395   -3.0596   -6.7291 -0.034479 -0.258665 -0.965352  211.4865    0.009   1CC1
    0.1924   -1.7369   -6.4823    0.3557   -1.9133   -7.1407 -0.034953 -0.258661 -0.965336  211.5026    0.011   1CC2
    0.2028   -0.5396   -6.6997    0.3664   -0.7150   -7.3583 -0.034479 -0.258665 -0.965352  211.5134    0.012   1CC3
    0.2071    0.5397   -6.6999    0.3707    0.7150   -7.3585 -0.034479  0.258665 -0.965351  211.5177    0.006   1DD1
    0.2036    1.7370   -6.4827    0.3669    1.9134   -7.1411 -0.034953  0.258661 -0.965336  211.5138    0.006   1DD2
    0.1928    2.8824   -6.0716    0.3564    3.0598   -6.7297 -0.034479  0.258665 -0.965351  211.5034    0.005   1DD3
    0.1738    3.8166   -5.5315    0.3374    4.2978   -6.0142 -0.034479  0.706686 -0.706686  211.4843    0.021   1EE1
    0.1541    4.7444   -4.7444    0.3174    5.2264   -5.2264 -0.034953  0.706675 -0.706675  211.4643    0.017   1EE2
    0.1326    5.5303   -3.8158    0.2962    6.0130   -4.2969 -0.034479  0.706686 -0.706686  211.4431    0.012   1EE3
    0.1092    6.0690   -2.8812    0.2728    6.7270   -3.0586 -0.034479  0.965352 -0.258665  211.4197    0.021   1FF1
    0.0934    6.4790   -1.7360    0.2567    7.1373   -1.9124 -0.034953  0.965336 -0.258661  211.4036    0.011   1FF2
    0.0823    6.6955   -0.5392    0.2459    7.3541   -0.7146 -0.034479  0.965352 -0.258665  211.3928    0.001   1FF3
    0.0803    6.7510    0.5541    0.2459    7.3541    0.7146 -0.034479  0.965352  0.258665  211.3928    0.001   2A1
    0.0914    6.5345    1.7509    0.2567    7.1373    1.9124 -0.034953  0.965336  0.258661  211.4036    0.011   2A2
    0.1072    6.1245    2.8960    0.2728    6.7270    3.0586 -0.034479  0.965352  0.258665  211.4197    0.021   2A3
    0.1306    5.5709    3.8564    0.2962    6.0130    4.2969 -0.034479  0.706686  0.706686  211.4431    0.012   2B1
    0.1521    4.7851    4.7851    0.3174    5.2264    5.2264 -0.034953  0.706675  0.706675  211.4643    0.017   2B2
    0.1718    3.8572    5.5721    0.3374    4.2978    6.0142 -0.034479  0.706686  0.706686  211.4843    0.021   2B3
    0.1909    2.8972    6.1271    0.3564    3.0598    6.7297 -0.034479  0.258665  0.965352  211.5034    0.005   2C1
    0.2016    1.7519    6.5382    0.3669    1.9134    7.1411 -0.034953  0.258661  0.965336  211.5138    0.006   2C2
    0.2052    0.5545    6.7554    0.3707    0.7150    7.3585 -0.034479  0.258665  0.965352  211.5177    0.006   2C3
    0.2008   -0.5545    6.7552    0.3664   -0.7150    7.3583 -0.034479 -0.258665  0.965351  211.5134    0.012   2D1
    0.1904   -1.7518    6.5378    0.3557   -1.9133    7.1407 -0.034953 -0.258661  0.965336  211.5026    0.011   2D2
    0.1740   -2.8970    6.1266    0.3395   -3.0596    6.7291 -0.034479 -0.258665  0.965351  211.4865    0.009   2D3
    0.1506   -3.8568    5.5715    0.3162   -4.2973    6.0135 -0.034479 -0.706686  0.706686  211.4631    0.023   2E1
    0.1297   -4.7845    4.7845    0.2950   -5.2258    5.2258 -0.034953 -0.706675  0.706675  211.4419    0.017   2E2
    0.1094   -5.5703    3.8560    0.2750   -6.0124    4.2965 -0.034479 -0.706686  0.706686  211.4219    0.010   2E3
    0.0903   -6.1239    2.8958    0.2559   -6.7265    3.0583 -0.034479 -0.965352  0.258665  211.4028    0.017   2F1
    0.0802   -6.5341    1.7508    0.2455   -7.1370    1.9123 -0.034953 -0.965336  0.258661  211.3924    0.006   2F2
    0.0760   -6.7509    0.5541    0.2416   -7.3540    0.7146 -0.034479 -0.965352  0.258665  211.3885    0.005   2F3
    0.0803   -6.7510   -0.5541    0.2459   -7.3541   -0.7146 -0.034479 -0.965351 -0.258665  211.3928    0.001   2AA1
    0.0914   -6.5345   -1.7509    0.2567   -7.1373   -1.9124 -0.034953 -0.965336 -0.258661  211.4036    0.011   2AA2
    0.1072   -6.1245   -2.8960    0.2728   -6.7270   -3.0586 -0.034479 -0.965351 -0.258665  211.4197    0.021   2AA3
    0.1306   -5.5709   -3.8564    0.2962   -6.0130   -4.2969 -0.034479 -0.706686 -0.706686  211.4431    0.012   2BB1
    0.1521   -4.7851   -4.7851    0.3174   -5.2264   -5.2264 -0.034953 -0.706675 -0.706675  211.4643    0.017   2BB2
    0.1718   -3.8572   -5.5721    0.3374   -4.2978   -6.0142 -0.034479 -0.706686 -0.706686  211.4843    0.021   2BB3
    0.1909   -2.8972   -6.1271    0.3564   -3.0598   -6.7297 -0.034479 -0.258665 -0.965352  211.5034    0.005   2CC1
    0.2016   -1.7519   -6.5382    0.3669   -1.9134   -7.1411 -0.034953 -0.258661 -0.965336  211.5138    0.006   2CC2
    0.2052   -0.5545   -6.7554    0.3707   -0.7150   -7.3585 -0.034479 -0.258665 -0.965352  211.5177    0.006   2CC3
    0.2008    0.5545   -6.7552    0.3664    0.7150   -7.3583 -0.034479  0.258665 -0.965351  211.5134    0.012   2DD1
    0.1904    1.7518   -6.5378    0.3557    1.9133   -7.1407 -0.034953  0.258661 -0.965336  211.5026    0.011   2DD2
    0.1740    2.8970   -6.1266    0.3395    3.0596   -6.7291 -0.034479  0.258665 -0.965351  211.4865    0.009   2DD3
    0.1506    3.8568   -5.5715    0.3162    4.2973   -6.0135 -0.034479  0.706686 -0.706686  211.4631    0.023   2EE1
    0.1297    4.7845   -4.7845    0.2950    5.2258   -5.2258 -0.034953  0.706675 -0.706675  211.4419    0.017   2EE2
    0.1094    5.5703   -3.8560    0.2750    6.0124   -4.2965 -0.034479  0.706686 -0.706686  211.4219    0.010   2EE3
    0.0903    6.1239   -2.8958    0.2559    6.7265   -3.0583 -0.034479  0.965352 -0.258665  211.4028    0.017   2FF1
    0.0802    6.5341   -1.7508    0.2455    7.1370   -1.9123 -0.034953  0.965336 -0.258661  211.3924    0.006   2FF2
    0.0760    6.7509   -0.5541    0.2416    7.3540   -0.7146 -0.034479  0.965352 -0.258665  211.3885    0.005   2FF3
* end *
Mon Dec  4 14:17:49 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.
;-

@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
