R=4; h=0.1;
x=0; y=0;z=0;
a=Point("x(O)+_x*(x(X)-x(O))+_y*(x(Y)-x(O))+_z*(x(Z)-x(O))",
"y(O)+_x*(y(X)-y(O))+_y*(y(Y)-y(O))+_z*(y(Z)-y(O))");
SetHide(a,true);
while (x*x+y*y+z*z<R){
	t=3*Math.random(); 
	s=Math.floor(2*Math.random())*2-1; 
	if (t<1){
		x+=s*h;
		x=Math.round(10000*x)/10000;
	}
	else{
		if (t>2){
			z+=s*h;
			z=Math.round(10000*z)/10000;
		}
		else{
			y+=s*h;
			y=Math.round(10000*y)/10000;
		}
	}
	b=Point("x(O)+_x*(x(X)-x(O))+_y*(x(Y)-x(O))+_z*(x(Z)-x(O))",
	"y(O)+_x*(y(X)-y(O))+_y*(y(Y)-y(O))+_z*(y(Z)-y(O))");
	SetHide(b,true);
	r=Segment(a,b);
	a=b;
}