function cote(x,n) {
	if (n>0) {
		p = Avancer(x/3)[0]; Cacher(p);
		points.push(p);
		forme.push(0);
		TournerGauche(90);
		cote(x/3,n-1);
		TournerDroite(90);
		cote(x/3,n-1);
		TournerDroite(90);
		cote(x/3,n-1);
		TournerGauche(90);
		p = Avancer(x/3)[0]; Cacher(p);
		points.push(p);
		forme.push(1);
	}
}

AttacherTortue("A");
LeverStylo();
VitesseTortue(50);

points=[];
forme=[];
segments=[];
pour i allant de 1 à 4 {
	cote(1,4);
	TournerDroite(90);
}

for (i=0; i<points.length; i++){
	segments[i]=1;
}

nbPtsCarres=0;
for (i=0; i<points.length; i++){
	if (forme[i]==1) {
		nbPtsCarres++;
	}
	else {
		if ((nbPtsCarres>2)&&(i>1)) {
			ExécuterMacro("quartCercle",points[i-2]+","+points[i-1]+","+points[i]);
			segments[i]=0;
			segments[i-1]=0;
		}
		nbPtsCarres=0;
	}
}

if (forme[0]==1) nbPtsCarres++;
else {
	if (nbPtsCarres>2) {
		ExécuterMacro("quartCercle",points[points.length-2]+","+points[points.length-1]+","+points[0]);

		segments[points.length-1]=0;
		segments[0]=0;
		nbPtsCarres=0;
	}
}

if (forme[1]==1) nbPtsCarres++;
else {
	if (nbPtsCarres>2) {
		ExécuterMacro("quartCercle",points[points.length-1]+","+points[0]+","+points[1]);
		segments[1]=0;
		segments[0]=0;
		nbPtsCarres=0;
	}
}

if (segments[0]==1) Segment("A",points[0]);
for (i=1; i<points.length; i++){
	if (segments[i]==1) Segment(points[i-1],points[i]);
}