R = 80;
picture pict;

color c[];
c1 = (0.82,0.13,0.56); % VioletRed;
c2 = (0.21,0.39,0.55); 

pict := image (
    fill fullcircle scaled 2R withcolor 0.5[c1,white];
    draw fullcircle scaled 2R withcolor c1 withpen pencircle scaled 2;
    );

pair P,Q;
P := (0,R);

for i=0 upto 72:
    beginfig(i+1);
	draw pict;
	
	Q := R*(cosd(i*5+90),sind(i*5+90));
	
	draw fullcircle scaled 2abs(Q-P) shifted Q
	    withpen pencircle scaled 0.5
	    withcolor 0.6white;
	
	pict := currentpicture;
	
	draw Q withpen pencircle scaled 5 withcolor c2;
	
	draw (-3R,2R)--(-3R,-3R)--(3R,-3R)--(3R,2R)--cycle
	    withcolor white;
    endfig;
endfor;
    
end