;
; dark current tests 13 mar
;
othertemp=strarr(100)
itime2=[0.299,0.599,0.999,1.8,3.0,6.0,10.,18.,30.,60.,100.,180.]

;flist=file_search('20050313/dark/dark*.fit',count=numfiles)
flist=file_search('20050313/dark/Hdark*.fit',count=numfiles)
window,0,xs=512,ys=512,retain=2
;
filetimes=fltarr(numfiles)
counts=fltarr(numfiles)
itime=fltarr(numfiles)
;data=fltarr(1024,1024,numfiles)

for i=0,numfiles-1 do begin
 print,flist(i)
 r=fitshline(file=flist(i),error=e,KEY='ITIME')
 itime(i)=float(strmid(r,11,8))
 r=fitshline(file=flist(i),error=e,KEY='OTHERT')
 othertemp(i)=r
 temp=readfits(flist(i))
; data(*,*,i)=temp
; tvhist,rebin(temp,512,512)
; wait,1.0
 counts(i)=mean(temp)
endfor

c=poly_fit(itime, counts,1,yfit)
print,c

the_end:
end