pro mk_timing, code, tit, npart, lab_part, tlab, integ, $
		blank=blank, sample=sample, eps=eps, file=file, hc=hc, sxt=sxt, hxt=hxt, $
		wbs_times=wbs_times
;
;
;
if (keyword_set(hc)) then set_plot,'ps
if (!d.name eq 'X') then begin
    win_xsiz=625
    win_ysiz=200
    qmake_window = 0
    if (!d.window eq -1) then qmake_window = 1
    if ((!d.x_size ne win_xsiz) or (!d.y_size ne win_ysiz)) then qmake_window=1
    if (qmake_window) then wdef, win, win_xsiz, win_ysiz, /ur else wshow
    f = 1
end else begin
    set_plot, 'ps'
    device, xsize=6.25, ysize=2.00, /inch
    if (keyword_set(eps)) then device, /encapsulated
    if (keyword_set(file)) then device, file=file
    f = 0.75
end
;
region = 0
;
if (keyword_set(sxt)) then npart = 1
code_str = ['   Hi/Hi', '   Med/Med', '   Hi/Med', '   Med/Hi']
code_sec = [2, 16, 2, 16]	;what is it for the last two
if (keyword_set(sample)) then begin
    tit = 'HXT PC Data'
    npart = 8
    lab_part = strarr(npart)
    tlab = strarr(npart)
    integ = strarr(npart)
    tlab(0) = 'T1-4.5'		& tlab(1) = 'T1-4.0'	& tlab(2) = 'T1-3.5'	& tlab(3) = 'T1-3.0'
    tlab(4) = 'T2-4.5'		& tlab(5) = 'T2-4.0'	& tlab(6) = 'T2-3.5'	& tlab(7) = 'T2-3.0'
    lab_part = lab_part + '4x64'
    integ = integ+'0.5 s'
end
if (keyword_set(hxt)) then begin
    tit = 'HXT PC Data'
    npart = 8
    lab_part = strarr(npart)
    tlab = strarr(npart)
    integ = strarr(npart)
    lab_part = lab_part + '4x64'
    case code of
	0: begin	;hi/hi
		tlab(0) = 'T1-4.5'		& tlab(1) = 'T1-4.0'	& tlab(2) = 'T1-3.5'	& tlab(3) = 'T1-3.0'
		tlab(4) = 'T2-4.5'		& tlab(5) = 'T2-4.0'	& tlab(6) = 'T2-3.5'	& tlab(7) = 'T2-3.0'
		integ = integ+'0.5 s'
	   end
	1: begin	;med/med
		tlab(0) = 'T1-8.5'		& tlab(1) = 'T1-4.5'	& tlab(2) = 'T1-0.5'	& tlab(3) = 'T1+3.5'
		tlab(4) = 'T2-8.5'		& tlab(5) = 'T2-4.5'	& tlab(6) = 'T2-0.5'	& tlab(7) = 'T2+3.5'
		integ = integ+'4.0 s'
	   end
	2: begin
		tlab(0) = 'T1-4.5'		& tlab(1) = 'T1-4.0'	& tlab(2) = 'T1-3.5'	& tlab(3) = 'T1-3.0'
		tlab(4) = 'T2-8.5'		& tlab(5) = 'T2-4.5'	& tlab(6) = 'T2-0.5'	& tlab(7) = 'T2+3.5'
		integ(0:3) = '0.5 s'
		integ(5:7) = '4.0 s'
		lab_part(4) = 'Dummy'
	   end
	3: begin
		tlab(0) = 'T1-8.5'		& tlab(1) = 'T1-4.5'	& tlab(2) = 'T1-0.5'	& tlab(3) = 'T1+3.5'
		tlab(4) = 'T2-4.5'		& tlab(5) = 'T2-4.0'	& tlab(6) = 'T2-3.5'	& tlab(7) = 'T2-3.0'
		integ(0:3) = '4.0 s'
		integ(5:7) = '0.5 s'
	   end
    endcase
end
if (keyword_set(wbs_times)) then begin
    times = (indgen(npart)) * code_sec(code)*2/npart - wbs_times
    sign = strarr(npart) + '+'
    ss = where(times lt 0)
    if (ss(0) ne -1) then sign(ss) = '-'
    tlab = 'T1' + sign + string(abs(times), format='(f4.1)') 	;+ ' ?'
end
if (n_elements(lab_part) eq 1) and (npart ne 1) then lab_part = strarr(npart) + lab_part
if (n_elements(integ) eq 1) and (npart ne 1) then integ = strarr(npart) + integ
if (n_elements(tlab) eq 1) and (npart ne 1) then tlab = strarr(npart) + tlab
if (n_elements(code) ne 0) then tit = tit + code_str(code)
if (keyword_set(blank)) then begin
    npart = 8
    lab_part = strarr(npart)
    tlab = strarr(npart)
    integ = strarr(npart)
    tit = '_________'
end
;
case region of
    0: !p.region = [0,0,1,1]
    1: !p.region = [0,.66,1,1.0]
    2: !p.region = [0,.33,1,.66]
    3: !p.region = [0,.00,1,.33]
endcase
;
!p.position = [0,0,1,1]
!x.range = [-0.1,1.1]
!y.range = [0,1]
;
erase
plot, fltarr(2), fltarr(2), /nodata, xstyle=1+4, ystyle=1+4
;
y1 = .5
y2 = y1+.2
xyouts, 0.5, y2+.2, tit, siz=2.*f, align=.5, charthick=2
oplot, [0,1], [1,1]*y1, thick=3
oplot, [0,1], [1,1]*y2, thick=3
oplot, [0,0], [y1,y2], thick=3
oplot, [1,1], [y1,y2], thick=3
oplot, [0.5,0.5], [y1,y2], thick=3
;
xyouts, 0.25, y2+.01, 'Major Frame #1', align=.5, size=1.2*f
xyouts, 0.75, y2+.01, 'Major Frame #2', align=.5, size=1.2*f
;
t1 = ' T1'
t2 = ' T2'
if (n_elements(code) ne 0) then begin
    if ((code mod 0) eq 0) then t2 = ' T2=T1+2.' $
			   else t2 = ' T2=T1+16.'
end
xyouts,   0, y2+.085, T1, size=1.2*f, align=.5		& arrow, 0.0, y2+.08, 0.0, y2+.005, thick=2, hthick=2, /data
xyouts, 0.5, y2+.085, T2, size=1.2*f, align=.5		& arrow, 0.5, y2+.08, 0.5, y2+.005, thick=2, hthick=2, /data
;
if (keyword_set(sxt)) then begin
    dx1 = 0.03	;sxte-u delay
    dx2 = 0.03	;sxte-j delay
    dx3 = 0.12	;integrate
    dx4 = 0.20	;readout
    ;
    xx0 = 0.5 + dx1
    oplot, [1,1]*xx0, [y1,y2], linestyle=1
    arrow, xx0, y1-.20, xx0, y1-.01, thick=2, hthick=2, /data
    xyouts, xx0, y1-.25, 'Time tagged in INDEX/ROADMAP (SXTE-J Delayed)', siz=1.2*f
    ;
    xx0 = xx0 + dx2
    oplot, [1,1]*xx0, [y1,y2], linestyle=1
    arrow, xx0, y1-.15, xx0, y1-.01, thick=2, hthick=2, /data
    xyouts, xx0, y1-.20, 'True Exposure Start (SXTE-U Delayed)', siz=1.2*f
    xyouts, xx0+dx3/2, y1+(y2-y1)/2., 'Integrate', align=0.5, siz=1*f
    ;
    xx0 = xx0 + dx3
    oplot, [1,1]*xx0, [y1,y2], linestyle=1
    xyouts, xx0+dx4/2, y1+(y2-y1)/2., 'Readout', align=0.5, siz=1*f
    ;
    xx0 = xx0 + dx4
    oplot, [1,1]*xx0, [y1,y2], linestyle=1
    ;
    xyouts, 0.5, 0.10, 'True time for start of integration is:', siz=1.2*f, align=0.5
    xyouts, 0.5, 0.04, 'start = anytim2ints(index, off=gt_explat(index)/1000.)', siz=1.2*f, align=0.5
end else begin
    xf = 1/(float(npart))
    for i=0,npart-1 do begin
	xx0 = i*xf
	if (i gt 0) then oplot, [1,1]*xx0, [y1,y2], linestyle=1
	xyouts, xx0+xf/2., y1+(y2-y1)/2., lab_part(i), align=0.5, siz=1*f
	arrow, xx0, y1-.10, xx0, y1-.01, thick=2, hthick=2, /data
    end
    ;
    g = .05
    xx0 = .25
    yy0 = y1-.2
    xyouts, 0.3, y1-.15, 'Time for start of integration for data in MF', siz=1.2*f
    xyouts, -0.08, yy0-1*g, 'Start:', siz=f
    xyouts, -0.08, yy0-2*g, 'Integ:', siz=f
    ;
    for j=0,npart-1 do begin
	xyouts, j*xf, yy0-(1)*g, tlab(j), siz=f
	xyouts, j*xf, yy0-(2)*g, integ(j), siz=f
    end
end
;
if (!d.name eq 'PS') then device,/close
end