clear all;

%the=linspace(0,100,2*pi);
the=0:2*pi/99:2*pi;
x=cos(the);
y=sin(the);

scale=2;
scrsz = get(0,'ScreenSize');
scrsz(1:2) = round([scrsz(3),scrsz(4)]*(.5-.5/scale));
scrsz(3:4) = round([scrsz(3),scrsz(4)]/scale);
figure('Position',scrsz)
set(gcf,'Color',[1,1,1])
axes('position',[0  0  1  1])


for i=1:100
    plot([0,x(i)],[0,y(i)]);
    axis([-1,1,-1,1]);
    F(i) = getframe;
    %pause;
end

movie(F,20,25);