0.24049485 6.85673858 0.00000000 0.24049485 6.85673858 -0.64960630 0.24049485 6.85673858 0.64960630 0.24049485 6.85673858 0.64960630 0.24049485 6.85673858 -0.64960630 1La1 0.25283244 6.52155627 2.11898215 0.25283244 6.72229566 1.50116985 0.25283244 6.32081688 2.73679444 0.25283244 6.32081688 2.73679444 0.25283244 6.72229566 1.50116985 1Lb1 0.28512925 5.54848088 4.03120748 0.28512925 5.93030989 3.50566495 0.28512925 5.16665187 4.55675000 0.28512925 5.16665187 4.55675000 0.28512925 5.93030989 3.50566495 1Lc1 0.32504349 4.03202776 5.54961042 0.32504349 4.55757030 5.16778143 0.32504349 3.50648522 5.93143941 0.32504349 3.50648522 5.93143941 0.32504349 4.55757030 5.16778143 1Ld1 0.35732927 2.12011122 6.52503217 0.35732927 2.73792353 6.32429281 0.35732927 1.50229891 6.72577153 0.35732927 1.50229891 6.72577153 0.35732927 2.73792353 6.32429281 1Le1 0.36966004 -0.00000030 6.86125602 0.36966004 0.64960600 6.86125605 0.36966004 -0.64960660 6.86125599 0.36966004 -0.64960660 6.86125599 0.36966004 0.64960600 6.86125605 1Lf1 0.35732926 -2.12011179 6.52503198 0.35732926 -1.50229950 6.72577140 0.35732926 -2.73792408 6.32429257 0.35732926 -2.73792408 6.32429257 0.35732926 -1.50229950 6.72577140 1Lg1 0.32504348 -4.03202825 5.54961007 0.32504348 -3.50648573 5.93143910 0.32504348 -4.55757076 5.16778103 0.32504348 -4.55757076 5.16778103 0.32504348 -3.50648573 5.93143910 1Lh1 0.28512924 -5.54848124 4.03120699 0.28512924 -5.16665227 4.55674955 0.28512924 -5.93031020 3.50566443 0.28512924 -5.93031020 3.50566443 0.28512924 -5.16665227 4.55674955 1Li1 0.25283243 -6.52155645 2.11898157 0.25283243 -6.32081712 2.73679389 0.25283243 -6.72229579 1.50116926 0.25283243 -6.72229579 1.50116926 0.25283243 -6.32081712 2.73679389 1Lj1 0.24049485 -6.85673858 -0.00000060 0.24049485 -6.85673864 0.64960570 0.24049485 -6.85673853 -0.64960690 0.24049485 -6.85673853 -0.64960690 0.24049485 -6.85673864 0.64960570 1Lk1 0.25283244 -6.52155608 -2.11898272 0.25283244 -6.72229553 -1.50117043 0.25283244 -6.32081664 -2.73679500 0.25283244 -6.32081664 -2.73679500 0.25283244 -6.72229553 -1.50117043 1Ll1 0.28512926 -5.54848053 -4.03120796 0.28512926 -5.93030959 -3.50566547 0.28512926 -5.16665148 -4.55675046 0.28512926 -5.16665148 -4.55675046 0.28512926 -5.93030959 -3.50566547 1Lm1 0.32504350 -4.03202728 -5.54961077 0.32504350 -4.55756985 -5.16778183 0.32504350 -3.50648470 -5.93143971 0.32504350 -3.50648470 -5.93143971 0.32504350 -4.55756985 -5.16778183 1Ln1 0.35732928 -2.12011065 -6.52503235 0.35732928 -2.73792297 -6.32429305 0.35732928 -1.50229832 -6.72577166 0.35732928 -1.50229832 -6.72577166 0.35732928 -2.73792297 -6.32429305 1Lo1 0.36966004 0.00000090 -6.86125602 0.36966004 -0.64960540 -6.86125610 0.36966004 0.64960720 -6.86125593 0.36966004 0.64960720 -6.86125593 0.36966004 -0.64960540 -6.86125610 1Lp1 0.35732926 2.12011236 -6.52503180 0.35732926 1.50230009 -6.72577127 0.35732926 2.73792463 -6.32429233 0.35732926 2.73792463 -6.32429233 0.35732926 1.50230009 -6.72577127 1Lq1 0.32504347 4.03202873 -5.54960971 0.32504347 3.50648625 -5.93143879 0.32504347 4.55757121 -5.16778063 0.32504347 4.55757121 -5.16778063 0.32504347 3.50648625 -5.93143879 1Lr1 0.28512923 5.54848159 -4.03120651 0.28512923 5.16665267 -4.55674910 0.28512923 5.93031051 -3.50566391 0.28512923 5.93031051 -3.50566391 0.28512923 5.16665267 -4.55674910 1Ls1 0.25283242 6.52155664 -2.11898100 0.25283242 6.32081736 -2.73679334 0.25283242 6.72229592 -1.50116867 0.25283242 6.72229592 -1.50116867 0.25283242 6.32081736 -2.73679334 1Lt1 * end * Wed Dec 6 08:56:20 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