pro show_obs2, structure, selimg, ss ; ; ref_tim = structure(0) x = int2secarr(structure, ref_tim) xrange = [min(x), max(x)] dummy = fmt_tim(structure(0), day_str) ; parts = [.18, .30, .45] ; usersym,[-0.5,0.5],[0,0] !p.region = [0,0, .95,parts(0)] dp_mode = gt_dp_mode(structure) ytickv = indgen(7)+8 ytickname = [' ', 'FL', ' ', 'BCS', 'NGT', 'QT', ' '] utplot, x, dp_mode, ref_tim, psym=8, $ yrange = [8,14], ytitle = 'DP Mode', $ yticks = 6, ytickv=ytickv, ytickname=ytickname, ystyle=1, ymargin=[4,0], $ xrange = xrange, xstyle=8, xticklen=.2 ;UTPLOT has a problem with ticklengths? ;;xtitle='Hour of day starting ' + day_str, $ !p.region = [0,parts(0)+.01, .95,parts(1)] dp_rate = gt_dp_rate(structure) ytickv = indgen(6) ytickname = [' ', 'Low', 'Med', ' ', 'High', ' '] utplot, x, dp_rate, ref_tim, psym=8, /noerase, $ yrange = [0,5], ytitle = 'DP Rate', $ yticks = 5, ytickv=ytickv, ytickname=ytickname, ystyle=1, ymargin=[0,0], $ xrange = xrange, xstyle=4 !p.region = [0,parts(1)+.01, .95,parts(2)] utplot, x, gt_seq_tab(structure), ref_tim, /noerase, $ xrange = xrange, xstyle=4, $ ystyle = 1, psym=10, ymargin=[1,1], $ ytitle = 'Seq Table Ser#', $ yrange = [min(gt_seq_tab(structure))-1, max(gt_seq_tab(structure))+1] usersym,[0,0],[-1.5,1.5] !p.region = [0,parts(2)+.01, .95,.95] y = gt_seq_num(structure) ors = y(uniq(y,sort(y))) utplot, x, y, ref_tim, /noerase, $ xrange=xrange, xstyle=4, $ ystyle=8, psym=8, title='Image Start Times!c', $ yrange=[min(y)-1, $ max(y)+1], $ ; ytickname=[string(ors)], $ yticklen=-.01,$ ytickv=ors, $ ; ytickname=[string(ors)], $ yticks=n_elements(ors)+2, $ ytitle='Sequence Number', ymargin=[1,2] ; if (n_params(0) ge 2) then begin selimg = bytarr(n_elements(x)) get_boxcorn, x0, y0, x1, y1, /data draw_boxcorn, x0, y0, x1, y1, /data print, 'X Range: ', x0, x1 print, 'Y Range: ', y0, y1 ss = where( (x ge x0) and (x le x1) and (y ge y0) and (y le y1)) if (ss(0) ne -1) then selimg(ss) = 1 print, 'There are ', strtrim(fix(total(selimg)),2), ' images selected' end ; !p.region = 0 end