m_mov_c.pro

pro m_mov_c
wx=128
wy=128
openr,1,'fan.128_ascii'
openw,2,'fan128_c.byt'
u=intarr(wx,wy)
p=assoc(2,bytarr(wx,wy))
window,1,xsize=wx,ysize=wy
px=!x.window*!d.x_vsize
py=!y.window*!d.y_vsize
sz=size(u)
!x.ticks=1
!y.ticks=1
for i=1,62 do begin
readf,1,u
contour,u,nlevels=25,BACK=255,COLOR=0,xstyle=1,ystyle=1$
	 ,position=[px(0),py(0),px(0)+sz(1)-1,py(0)+sz(2)-1]
p(i)=tvrd(0,0,wx,wy)
endfor
close,1
close,2
return
end