clear; close all
%
%  Draw the Olympic logo
%
xyc = [-2  0
       -1  -0.5
        0   0
        1  -0.5
        2   0];
rad = 1.2;
colors = 'rgbck';
for ring = 1:5
    [xc,yc] = circle(xyc(ring,1),xyc(ring,2),rad,1);
    hc(ring) = plot (xc,yc,'LineWidth',3,'Color',colors(1));
    colors(1) = [];
    hold on
end
axis equal
axis off
set(gcf,'Color',[1 1 1])
many = 10000;
rr = 0.02*rad*(1-2*rand(2,5,many));
ht = text(0,-2,num2str(0),'FontSize',18);
for i=1:many
    for ring = 1:5
        mover(hc(ring),rr(1,ring,i),rr(2,ring,i));
    end
    set(ht,'String',num2str(i));
    axis(4*[-1 1 -1 1])
    pause(0.03)
end