// Coordinates System :
SetCoords(480,381,40);


// Geometry :
O=Point("O",-2.95,-0.925);
A=Point("A",2.95,3.15);
D=Point("D","O-i*(A-O)","0");
k=Expression("k","","0","0.3","0.0195","0","8.275");
B=Point("B","O+i*(A-O)","0");
C=Point("C","2*O-A","0");
iter=Expression("iter","","20","100","52","-11","8.275");
E1=Expression("E1","","","","var m=A;var n=B;var p=C;var q=D;var tab=[];for (i=0; i<iter; i=i+1){var m2=[m[0]+k*(n[0]-m[0]),m[1]+k*(n[1]-m[1])];var n2=[n[0]+k*(p[0]-n[0]),n[1]+k*(p[1]-n[1])];var p2=[p[0]+k*(q[0]-p[0]),p[1]+k*(q[1]-p[1])];var q2=[q[0]+k*(m[0]-q[0]),q[1]+k*(m[1]-q[1])];tab.push(m2,n2,p2,q2);m=m2;n=n2;p=p2;q=q2};tab","-11.75","6.525");
Poly1=Polygon("Poly1","_D,_A,_B,_C");
List1=List("List1",E1);


// Styles :
STL(O,"c:#cf0928;s:6;f:30;sp:1");
STL(A,"c:#cf0928;o:1;s:6;f:30");
STL(D,"c:#0000b2;h:1;s:6;sn:true;f:30");
STL(k,"c:#2d5f46;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(B,"c:#0000b2;h:1;s:6;sn:true;f:30");
STL(C,"c:#0000b2;h:1;s:6;sn:true;f:30");
STL(iter,"c:#23005e;s:7;sn:true;f:24;p:1;i:1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMDtpOjE=");
STL(E1,"c:#035175;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(Poly1,"c:#e49ce2;o:0.2;s:1;f:30");
STL(List1,"c:#4633db;o:0.16;s:0;f:30;p:0;sg:1");
SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");
SetGeneralStyle("background-color:#FAFAFA");