pro ted7c, seq, item, ipos
;
;
infil = map_filnam(seq, 0, 0, item=item)
;
if (n_elements(item) eq 1) then begin
    img = rfits(infil, h=h)
end else begin
    amp = rfits(infil(0), h=h)
    offset = rfits(infil(1))
    img = offset+amp
end
;
!p.multi = [0,1,2]
tit = arr2str(infil)
plot, total(img,1)>.1, xtit='(Column Plot) Row Num', tit=tit, /ytype, /ynoz, psym=-1
plot, total(img,2)>.1, xtit='(Line Plot) Col Num', tit=tit, /ytype, /ynoz, psym=-1
plottime
pause

end
;------------------------------------------------------------------------------
;
  dir = '$MDI_CAL_DATA'
  ff = file_list(dir, '*_m1_*', /cd, file=file)
  seq = strmid(file, 0, 13)
  ss = where((seq ge '940316_041320') and (seq le '940316_043822'))
seq = seq(ss)
nseq = n_elements(seq)
;
for i=0,nseq-1 do begin
     ted7c, seq(i), '_o1', i
    ;ted7c, seq(i), '_m1', i
    ;ted7c, seq(i), ['_a1', '_o1'], i

     ted7c, seq(i), '_o2', i
    ;ted7c, seq(i), '_m2', i
    ;ted7c, seq(i), ['_a2', '_o2'], i
end

end