//dessin des équidistantes du haut
for(n=1;n<=20;n++){
	e=Arc3pts("I1","G"+n,"I2"); // une équidistante passe par I1 et I2, points à l'infini
	SetColor(e,"red");
	DPSymmetry("G"+(n+1),"G"+n,"G"+(n-1));
	SetHide("G"+(n+1),true);
}
//dessin des équidistantes du bas
DPSymmetry("E1","G0","G1");
SetHide("E1",true);
e=Arc3pts("I1","E1","I2");
SetColor(e,"red");
DPSymmetry("E2","E1","G0");
SetHide("E2",true);
for(n=2;n<=20;n++){
	e=Arc3pts("I1","E"+n,"I2");
	SetColor(e,"red");
	DPSymmetry("E"+(n+1),"E"+n,"E"+(n-1));
	SetHide("E"+(n+1),true);
}