pro read_sav
;device,retain=2,decomposed=0
;window,0,xs=904,ys=904
;window,1,xs=904,ys=904
pth='/tmp/0827/sav/'
file=file_search(pth+'HrHa*full.sav',count=n)

for i=0,n-1 do begin
restore,file[i]
wset,0&tvscl,rebin(img,904,904)
wset,1&tvscl,rebin(imgc,904,904)
endfor
end


wset,0&tvscl,rebin(simi_v[*,*,0],904,904)
wset,1&tvscl,rebin(simi_v[*,*,1],904,904)
save,filename='simi_v.sav',simi_v
save,file=name+'sav',img,imgc,time,radius,xcyc


DIST_CIRCLE,IM,[2712, 2712],1356,1356,/DOUBLE
xcyc=1356