m_many.pro

pro m_many
wx=128
wy=128
openr,1,'fan.128_ascii'
window,1,xsize=wx,ysize=wx,xpos=100,ypos=100
for i=1,62 do begin
openw,2,'temp.dat'
if (i lt 10) then printf,2,format='(i1)',i
if((i ge 10) and (i lt 100) then printf,2,format='(i2)',i
if (i lt 100) then printf,2,format='(i3)',i
close,2
openr,2,'temp.dat'
mm=string('')
readf,2,mm
if (i lt 10) then pp="fan00"+mm+".byt"
if((i ge 10) and (i lt 100)then pp="fan0"+mm+".byt"
if (i lt 100) then pp="fan"+mm+".byt"
wdelete,0
window,0,xsize=200,ysize=50,xpos=100,ypos=400
xyouts,10,30,pp,/device,size=1.3
close,2
openw,3,pp
p=assoc(3,bytarr(wx,wy))
c=intarr(wx,wy)
readf,1,c
b=rebin(c,wx,wy)
wset,1
tvscl,b
p(0)=tvrd(0,0,wx,wy)
close,3
empty
endfor
close,1
close,2
spawn,'rm temp.dat'
return
end