0.24049485 6.85673858 0.00000000 0.22301850 7.35643306 -1.14960632 0.22301850 7.35643306 1.14960632 0.25797120 6.35704411 1.14960632 0.25797120 6.35704411 -1.14960632 1La1 0.25283244 6.52155627 2.11898215 0.23535609 7.35204186 1.18005565 0.23535609 6.64154605 3.36673682 0.27030879 5.69107068 3.05790864 0.27030879 6.40156649 0.87122747 1Lb1 0.28512925 5.54848088 4.03120748 0.26765290 6.62846386 3.39486948 0.26765290 5.27702054 5.25497157 0.30260560 4.46849791 4.66754547 0.30260560 5.81994123 2.80744338 1Lc1 0.32504349 4.03202776 5.54961042 0.30756714 5.25579186 5.27815013 0.30756714 3.39568972 6.62959337 0.34251984 2.80826366 5.82107071 0.34251984 4.66836580 4.46962747 1Ld1 0.35732927 2.12011122 6.52503217 0.33985292 3.36786589 6.64502201 0.33985292 1.18118469 7.35551771 0.37480562 0.87235655 6.40504233 0.37480562 3.05903775 5.69454662 1Le1 0.36966004 -0.00000030 6.86125602 0.35218369 1.14960600 7.36095054 0.35218369 -1.14960665 7.36095044 0.38713639 -1.14960660 6.36156149 0.38713639 1.14960605 6.36156159 1Lf1 0.35732926 -2.12011179 6.52503198 0.33985291 -1.18118533 7.35551761 0.33985291 -3.36786647 6.64502171 0.37480562 -3.05903825 5.69454636 0.37480562 -0.87235711 6.40504225 1Lg1 0.32504348 -4.03202825 5.54961007 0.30756713 -3.39569030 6.62959307 0.30756713 -5.25579233 5.27814967 0.34251983 -4.66836619 4.46962706 0.34251983 -2.80826417 5.82107046 1Lh1 0.28512924 -5.54848124 4.03120699 0.26765289 -5.27702100 5.25497111 0.26765289 -6.62846416 3.39486890 0.30260559 -5.81994147 2.80744288 0.30260559 -4.46849831 4.66754508 1Li1 0.25283243 -6.52155645 2.11898157 0.23535608 -6.64154635 3.36673624 0.23535608 -7.35204196 1.18005501 0.27030878 -6.40156656 0.87122691 0.27030878 -5.69107095 3.05790814 1Lj1 0.24049485 -6.85673858 -0.00000060 0.22301850 -7.35643316 1.14960568 0.22301850 -7.35643296 -1.14960697 0.25797120 -6.35704401 -1.14960688 0.25797120 -6.35704421 1.14960577 1Lk1 0.25283244 -6.52155608 -2.11898272 0.23535609 -7.35204175 -1.18005629 0.23535609 -6.64154576 -3.36673740 0.27030879 -5.69107042 -3.05790914 0.27030879 -6.40156641 -0.87122803 1Ll1 0.28512926 -5.54848053 -4.03120796 0.26765291 -6.62846356 -3.39487006 0.26765291 -5.27702008 -5.25497203 0.30260561 -4.46849750 -4.66754586 0.30260561 -5.81994098 -2.80744389 1Lm1 0.32504350 -4.03202728 -5.54961077 0.30756715 -5.25579140 -5.27815059 0.30756715 -3.39568914 -6.62959366 0.34251985 -2.80826315 -5.82107095 0.34251985 -4.66836541 -4.46962788 1Ln1 0.35732928 -2.12011065 -6.52503235 0.33985293 -3.36786530 -6.64502230 0.33985293 -1.18118404 -7.35551782 0.37480563 -0.87235599 -6.40504241 0.37480563 -3.05903725 -5.69454689 1Lo1 0.36966004 0.00000090 -6.86125602 0.35218369 -1.14960536 -7.36095064 0.35218369 1.14960729 -7.36095034 0.38713639 1.14960716 -6.36156139 0.38713639 -1.14960549 -6.36156169 1Lp1 0.35732926 2.12011236 -6.52503180 0.33985291 1.18118597 -7.35551751 0.33985291 3.36786705 -6.64502142 0.37480561 3.05903874 -5.69454609 0.37480561 0.87235767 -6.40504218 1Lq1 0.32504347 4.03202873 -5.54960971 0.30756712 3.39569088 -6.62959277 0.30756712 5.25579279 -5.27814921 0.34251982 4.66836658 -4.46962665 0.34251982 2.80826467 -5.82107022 1Lr1 0.28512923 5.54848159 -4.03120651 0.26765288 5.27702146 -5.25497064 0.26765288 6.62846445 -3.39486832 0.30260558 5.81994172 -2.80744237 0.30260558 4.46849872 -4.66754469 1Ls1 0.25283242 6.52155664 -2.11898100 0.23535607 6.64154664 -3.36673566 0.23535607 7.35204206 -1.18005436 0.27030877 6.40156664 -0.87122635 0.27030877 5.69107122 -3.05790764 1Lt1 * end * Wed Dec 6 08:57:41 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