;
; these are single capture frames
;
;look at the light transfer test data
; test3.8.fit, test3.8.fit.fe
; test3.9.fit, test3.9.fit.fe
;
;

fname=['test3.8.fit', 'test3.8.fit.fe',$
       'test3.9.fit', 'test3.9.fit.fe',$
       'test3.10.fit', 'test3.10.fit.fe',$
       'test3.11.fit', 'test3.11.fit.fe',$
       'test3.12.fit', 'test3.12.fit.fe',$
       'test3.13.fit', 'test3.13.fit.fe',$
       'test3.14.fit', 'test3.14.fit.fe',$
       'test3.15.fit', 'test3.15.fit.fe',$
       'test3.16.fit', 'test3.16.fit.fe']

exposuretime=[0.3, 0.6, 1.0, 1.8, 3.0, 6.0, 10.0, 18.0, 30.0]

img_mean=fltarr(9)
img_diff=fltarr(9)

for i=0,8 do begin
 img1=swap_endian(rfits(fname(i*2)))
 img2=swap_endian(rfits(fname(i*2+1)))
 imgmean=(img1+img2)/2.
 imgdiff=(img1-img2)
 img_mean(i)=mean(imgmean)
 img_diff(i)=mean((imgdiff))
endfor

;plot,img_mean, img_diff, psym=2,xtit='Signal [ADU]',$
;     ytit='Diff [ADU]',chars=1.6

plot,exposuretime, img_diff, psym=2,xtit='Exposure Time [sec]',$
     ytit='Image Diff [ADU]',chars=1.6,yran=[0,360],ystyl=1,$
     tit='Test3 Data - Single Read'



the_end:
end