PRO hess_plot
;+
; Plot the coords for visual checks.
;
; 11/25/94 dd
; 10/11/95 dd TOGA design: use shells 1,2; use +/- 10 inches plot range
; 12/4/95 dd For LEGs use only shell 1
;-

@hess_common

; use inches?
sf = DOUBLE(1.0)
if (hs_use_inches NE 0) then sf = DOUBLE(1./25.4)

; setup plot window
limits = [-250.,250.]*sf
units = ' (mm)'
if (hs_use_inches NE 0) then units = ' (inches)'


plot, limits,limits, $
	TITLE='TOGA design (TMA side view)', $
	PSYM=3, $
	XTITLE='Y axis'+units, YTITLE='Z axis'+units

char_size = 0.75
; Put the time in lower right corner
xyouts,0.75,0.01, systime(), /NORMAL, SIZE=char_size


out_shells = [1]

FOR imap = 0, n_elements(out_shells)-1 DO BEGIN
shell = out_shells(imap)
is = shell-1

  FOR iseg = 0, n_elements(hs_Segs)-1 DO BEGIN

    FOR ig = 0, hs_GpS(is)-1 DO BEGIN

ygc = sf*hs_YC(is,iseg,ig)
zgc = sf*hs_ZC(is,iseg,ig)
Dspc2 = sf*hs_Dspc(is)/2.0
yul = Dspc2*hs_YUL(is,iseg,ig)
zul = Dspc2*hs_ZUL(is,iseg,ig)
yud = Dspc2*hs_YUD(is,iseg,ig)
zud = Dspc2*hs_ZUD(is,iseg,ig)
; plot the grating-line and disersion unit directions crossing at the 
; grating active are center
oplot, [ygc-yul, ygc+yul], [zgc-zul, zgc+zul]
oplot, [ygc-yud, ygc+yud], [zgc-zud, zgc+zud]


; plot mounting hole location
oplot, sf*[hs_YMH(is,iseg,ig)], sf*[hs_ZMH(is,iseg,ig)], PSYM=3

    END ;gratings

  END ;segments

END ;shells



RETURN
END