// Bellenot 2 Jul 2014
//
function drawtwotothepie(n,wait,label)
scf(0);
clf
r=2^%pi;
plot([-r,r,r,-r],[-r,-r,r,r],'wo');
plot(r,0,'bo');
if label
	xstring(r,0,"n=0");
end
//n = 100;
for i = 1:n,
	plot(r*cos(2*%pi^2*i),r*sin(2*%pi^2*i),'bo')
	if label
		xstring(r*cos(2*%pi^2*i),r*sin(2*%pi^2*i),'n='+string(i))
	end
	sleep(wait);
end
endfunction

drawtwotothepie(100,500,%t)

