// Macros :
$macros={};
$macros["CnkBifocDFe"]={
	name:"Cnk Bifoc. DFe",
	parameters:["line","point","expression"],
	exec:
	function (dir,F,e){
Perp1=Perpendicular("Perp1",dir,F);
C1=Circle1("C1",F,"e");
K=OrderedIntersection("K",Perp1,dir,0);
Perp2=Perpendicular("Perp2",Perp1,F);
P5=OrderedIntersection("P5",Perp2,C1,0);
U3=OrderedIntersection("U3",Perp2,C1,1);
C2=Circle1("C2",K,"1");
U1=Point("U1","K+U3-F","0");
P3=OrderedIntersection("P3",dir,C2,0);
P4=Point("P4","F+(e/(1+e))*(U1-F)","0");
P7=Point("P7","F-(e/(1-e))*(U1-F)","0");
Perp3=Perpendicular("Perp3",dir,U1);
S1=Segment("S1",P3,P5);
Symc2=Symmetry("Symc2",P3,K);
M2=MidPoint("M2",P4,P7);
S=OrderedIntersection("S",S1,Perp1,0);
L2=Line("L2",Symc2,F);
C3=Circle("C3",M2,P4);
L1=Line("L1",Symc2,S);
Perp4=Perpendicular("Perp4",L2,F);
bf1=OrderedIntersection("bf1",Perp3,C3,0);
P9=OrderedIntersection("P9",Perp3,C3,1);
Syma3=Reflection("Syma3",Perp4,S);
bf2=Reflection("bf2",Perp1,bf1);
bf4=Reflection("bf4",Perp1,P9);
L3=Line("L3",F,Syma3);
bf3=OrderedIntersection("bf3",L3,L1,0);
Quad=Quadric("Quad",bf1,S,bf2,bf3,bf4);
STL(Quad,"c:#00adff;s:2;f:30;p:500");
return [Quad];
}};

// Coordinates System :
SetCoords(732.8114143504247,273.07673439849566,42.29868834669511);


// Geometry :
P1=Point("P1",-9.308183763317937,-4.831485181819467);
P2=Point("P2",-4.960234526204114,5.817597282959772);
F=Point("F",-3.9200131453574945,0.04909689826488248);
dir=Line("dir",P1,P2);
e=Expression("e","","0","3","0.555","-14.48771671895838","0.07273829328412383");
Perp11=Perpendicular("Perp11",dir,F);
C1=Circle1("C1",F,"e");
Perp1=Perpendicular("Perp1",dir,F);
Perp2=Perpendicular("Perp2",Perp1,F);
K=OrderedIntersection("K",Perp1,dir,0);
U3=OrderedIntersection("U3",Perp2,C1,1);
C2=Circle1("C2",K,"1");
P5=OrderedIntersection("P5",Perp2,C1,0);
U1=Point("U1","K+U3-F","0");
P3=OrderedIntersection("P3",dir,C2,0);
Symc1=Symmetry("Symc1",U1,K);
P4=Point("P4","F+(e/(1+e))*(U1-F)","0");
P7=Point("P7","F-(e/(1-e))*(U1-F)","0");
Perp3=Perpendicular("Perp3",dir,U1);
S1=Segment("S1",P3,P5);
Symc2=Symmetry("Symc2",P3,K);
M2=MidPoint("M2",P4,P7);
L2=Line("L2",Symc2,F);
S=OrderedIntersection("S",S1,Perp1,0);
C3=Circle("C3",M2,P4);
L1=Line("L1",Symc2,S);
Perp4=Perpendicular("Perp4",L2,F);
bf1=OrderedIntersection("bf1",Perp3,C3,0);
P9=OrderedIntersection("P9",Perp3,C3,1);
Syma3=Reflection("Syma3",Perp4,S);
bf2=Reflection("bf2",Perp1,bf1);
bf4=Reflection("bf4",Perp1,P9);
L3=Line("L3",F,Syma3);
bf3=OrderedIntersection("bf3",L3,L1,0);
Quad=Quadric("Quad",bf1,S,bf2,bf3,bf4);


// Styles :
STL(P1,"c:#0000b2;s:6;f:18");
STL(P2,"c:#0000b2;s:6;f:18");
STL(F,"c:#0000b2;s:6;sn:true;f:18");
STL(dir,"c:#0000b2;s:1;sn:true;f:30;p:0");
STL(e,"c:#505567;s:5;sn:true;f:20;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxOA==");
STL(Perp11,"c:#780013;h:2;s:1;f:30;p:0");
STL(C1,"c:#cc66cc;h:1;s:1;f:30;p:0");
STL(Perp1,"c:#780013;s:1;f:30;p:0");
STL(Perp2,"c:#780013;h:1;s:1;f:30;p:0");
STL(K,"c:#0000b2;s:6;sn:true;f:18");
STL(U3,"c:#0000b2;h:1;s:6;sn:true;f:18");
STL(C2,"c:#cc66cc;h:1;s:1;f:30;p:0");
STL(P5,"c:#0000b2;h:1;s:6;f:18");
STL(U1,"c:#0000b2;h:1;s:6;sn:true;f:18");
STL(P3,"c:#0000b2;s:6;f:18");
STL(Symc1,"c:#0000b2;h:1;s:6;f:18");
STL(P4,"c:#0000b2;h:1;s:6;f:18");
STL(P7,"c:#0000b2;h:1;s:6;f:18");
STL(Perp3,"c:#780013;h:1;s:1;f:30;p:0");
STL(S1,"c:#006633;h:1;s:1;f:24");
STL(Symc2,"c:#0000b2;s:6;f:18");
STL(M2,"c:#0000b2;h:1;s:6;f:18");
STL(L2,"c:#780013;s:1;sn:true;f:30;p:0");
STL(S,"c:#0000b2;s:6;sn:true;f:18");
STL(C3,"c:#cc66cc;h:1;s:1;f:30;p:0");
STL(L1,"c:#780013;s:1;f:30;p:0");
STL(Perp4,"c:#780013;s:1;f:30;p:0");
STL(bf1,"c:#0000b2;s:6;sn:true;f:18");
STL(P9,"c:#0000b2;s:6;f:18");
STL(Syma3,"c:#0000b2;s:6;f:18");
STL(bf2,"c:#0000b2;s:6;sn:true;f:18");
STL(bf4,"c:#0000b2;s:6;sn:true;f:18");
STL(L3,"c:#780013;s:1;f:30;p:0");
STL(bf3,"c:#0000b2;s:6;sn:true;f:18");
STL(Quad,"c:#00adff;s:2;f:30;p:500");
SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");