x=Findgen(100)*.01*2*!pi y=sin(x) XInterAnimate, set=[800, 600, 50], /showload for j=0, 49 do begin $ i=(j+1)*5 plot, x, y*5/i, yrange=[-.1, .1] XInterAnimate, frame=j, window=!d.window endfor XInterAnimate end