// Macros :
$macros={};
$macros["CarreItere"]={
	name:"CarreItere",
	parameters:["point","point","point","point","point","line","point"],
	exec:
	function (O,A,B,C,D,SegBC,A1){
Cerc2=Circle3("Cerc2",A,A1,B);STL(Cerc2,"h:1");
Ma1B=MidPoint("Ma1B",A1,B);STL(Ma1B,"h:1");
C1=Symmetry("C1",O,A1);STL(C1,"h:1");
B1=OrderedIntersection("B1",SegBC,Cerc2,0);STL(B1,"h:1");
U=Symmetry("U",Ma1B,A);STL(U,"h:1");
SegAB1=Segment("S8",A1,B1);STL(SegAB1,bleuclair);
S12=Segment("S12",B1,U);STL(S12,"h:1");
M3=MidPoint("M3",A1,B1);STL(M3,"h:1");
D1=Symmetry("D1",O,B1);STL(D1,"h:1");
SegBC1=Segment("S9",B1,C1);STL(SegBC1,bleuclair);
Par3=Parallel("Par3",S12,B);STL(Par3,"h:1");
SegCD1=Segment("S10",C1,D1);STL(SegCD1,bleuclair);
SegDA1=Segment("S11",D1,A1);STL(SegDA1,bleuclair);
P7=OrderedIntersection("P7",SegAB1,Par3,0);STL(P7,"h:1");
A2=Symmetry("A2",M3,P7);STL(A2,"h:1");
return [B1,C1,D1,SegAB1,SegBC1,SegCD1,SegDA1,A2];
}};

// Coordinates System :
SetCoords(433.0427802304212,451.9855129653366,0.9540031434480928);


// Geometry :
O=Point("O",45.897675354954984,36.93614869861789);
A=Point("A",267.4806713648148,115.51167919856817);
ox=X_axis("ox");
oy=Y_axis("oy");
bleuclair="c:#0044ff";
P1=Point("P1",-340.69393470479974,426.6707799783715);
P8=Point("P8",134.03657385749202,232.16973067239937);
Cerc1=Circle("Cerc1",O,A);
C=Symmetry("C",O,A);
Par1=Parallel("Par1",ox,P1);
S1=Segment("S1",C,A);
P2=PointOn("P2",Par1,166);
Perp1=Perpendicular("Perp1",S1,O);
SymCerc1=Symmetry("SymCerc1",P2,P1);
S2=Segment("S2",P2,P1);
D=OrderedIntersection("D",Perp1,Cerc1,1);
B=OrderedIntersection("B",Perp1,Cerc1,0);
SymCerc2=Symmetry("SymCerc2",SymCerc1,P2);
P3=PointOn("P3",S2,1);
P4=PointOn("P4",S2,0.41795861152213815);
Symc3=Symmetry("Symc3",SymCerc2,SymCerc1);
SegAB=Segment("SegAB",A,B);
SegBC=Segment("SegBC",B,C);
SegCD=Segment("SegCD",C,D);
SegDA=Segment("SegDA",D,A);
Symc4=Symmetry("Symc4",Symc3,SymCerc2);
Symc5=Symmetry("Symc5",Symc4,B);
M1=MidPoint("M1",Symc4,B);
Symc6=Symmetry("Symc6",M1,P3);
Symc7=Symmetry("Symc7",M1,P4);
S3=Segment("S3",Symc6,A);
Par2=Parallel("Par2",S3,Symc7);
A1=OrderedIntersection("A1",SegAB,Par2,0);

// initialisation
a0=A;b0=B;c0=C;d0=D;seg1b=SegBC;a1=A1;
for (i=1; i<38; i=i+1){
var t=$macros["CarreItere"].exec(O,a0,b0,c0,d0,seg1b,a1);

a0=a1;b0=t[0];c0=t[1];d0=t[2];seg1b=t[4];a1=t[7];
}


// Styles :
STL(O,"c:#b40000;s:5;o:1;f:17");
STL(A,"c:#b40000;s:5;o:1f:17");
STL(P1,"c:#0000b2;s:3;h:1;o:1;f:17");
STL(P8,"c:#0000b2;h:1;s:6;f:17");
STL(Cerc1,"c:#cc66cc;h:1;s:1;f:30;p:0");
STL(C,"c:#0000b2;s:6;h:1;sn:true;f:17");
STL(Par1,"c:#007c00;h:1;s:1;f:30;p:0");
STL(S1,"c:#007c00;h:1;s:1;f:24");
STL(P2,"c:#0000b2;s:3;h:1;o:1;f:17");
STL(Perp1,"c:#007c00;h:1;s:1;f:30;p:0");
STL(SymCerc1,"c:#0000b2;h:1;s:6;f:17");
STL(S2,"c:#b40000;s:1;f:24");
STL(D,"c:#0000b2;s:6;h:1;sn:true;f:17");
STL(B,"c:#0000b2;s:6;h:1;sn:true;f:17");
STL(SymCerc2,"c:#0000b2;h:1;s:6;f:17");
STL(P3,"c:#0000b2;s:3;h:1;o:1;f:17");
STL(P4,"c:#0000b2;s:4;o:1;f:17");
STL(Symc3,"c:#0000b2;h:1;s:6;f:17");
STL(SegAB,"c:#0044ff;s:1;sn:true;f:24");
STL(SegBC,"c:#0044ff;s:1;sn:true;f:24");
STL(SegCD,"c:#0044ff;s:1;sn:true;f:24");
STL(SegDA,"c:#0044ff;s:1;sn:true;f:24");
STL(Symc4,"c:#0000b2;h:1;s:6;f:17");
STL(Symc5,"c:#0000b2;s:6;f:17");
STL(M1,"c:#0000b2;h:1;s:6;f:17");
STL(Symc6,"c:#0000b2;h:1;s:6;f:17");
STL(Symc7,"c:#0000b2;h:1;s:6;f:17");
STL(S3,"c:#007c00;h:1;s:1;f:24");
STL(Par2,"c:#007c00;h:1;s:1;f:30;p:0");
STL(A1,"c:#0000b2;s:6;h:1;sn:true;f:17");

SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");