for(var x=-8; x<=8; x++){
	p=Point("A"+x,"x(O)+(x(I)-x(O))*"+x,"y(O)+(y(I)-y(O))*"+x);
	SetShowName(p,true);
	SetAlias(p,x);
}