// Macros :
$macros={};
$macros["CnkpardirF1pt"]={
	name:"Cnk par dir F 1pt",
	parameters:["line","point","point"],
	exec:
	function (dir,F,A){
Perp1=Perpendicular("Perp1",dir,F);
P3=OrderedIntersection("P3",Perp1,dir,0);
C1=Circle("C1",P3,F);
P5=OrderedIntersection("P5",dir,C1,1);
P4=OrderedIntersection("P4",dir,C1,0);
Symc1=Symmetry("Symc1",P4,P3);
L21=Line("L21",P4,F);
L22=Line("L22",P5,F);
L12=Line("L12",P5,A);
L11=Line("L11",P4,A);
Perp22=Perpendicular("Perp22",L22,F);
Perp21=Perpendicular("Perp21",L21,F);
L1=Line("L1",Symc1,A);
M1=MidPoint("M1",P4,Symc1);
L2=Line("L2",Symc1,F);
Syma12=Reflection("Syma12",Perp22,A);
L13=Line("L13",M1,A);
L23=Line("L23",M1,F);
Syma11=Reflection("Syma11",Perp21,A);
Perp2=Perpendicular("Perp2",L2,F);
L31=Line("L31",F,Syma11);
Syma1=Reflection("Syma1",Perp2,A);
L32=Line("L32",F,Syma12);
Perp23=Perpendicular("Perp23",L23,F);
Syma13=Reflection("Syma13",Perp23,A);
B2=OrderedIntersection("B2",L32,L12,0);
B1=OrderedIntersection("B1",L31,L11,0);
L3=Line("L3",F,Syma1);
L33=Line("L33",F,Syma13);
B=OrderedIntersection("B",L3,L1,0);
B3=OrderedIntersection("B3",L33,L13,0);
Quad=Quadric("Quad",B,B3,B1,A,B2);
STL(Quad,"c:#00adff;s:2;f:30;p:1000");
return [Quad];
}};

$macros["PtCnkPtDirFA"]={
	name:"Pt Cnk PtDir F A",
	parameters:["point","point","point"],
	exec:
	function (Symc1,F,A){
L1=Line("L1",Symc1,A);
L2=Line("L2",Symc1,F);
Perp2=Perpendicular("Perp2",L2,F);
Syma1=Reflection("Syma1",Perp2,A);
L3=Line("L3",F,Syma1);
B=OrderedIntersection("B",L3,L1,0);
STL(B,"c:#0000b2;s:6;sn:true;f:30");
return [B];
}};

// Coordinates System :
SetCoords(605,306,40);


// Geometry :
P1=Point("P1",-5.375,-1.725);
P2=Point("P2",1.1,7.3);
A=Point("A",0.7,-0.125);
F=Point("F",-1.125,-1.85);
dir=Line("dir",P1,P2);
Perp1=Perpendicular("Perp1",dir,F);
P3=OrderedIntersection("P3",Perp1,dir,0);
C1=Circle("C1",P3,F);
P4=OrderedIntersection("P4",dir,C1,0);
P5=OrderedIntersection("P5",dir,C1,1);
Symc2=Symmetry("Symc2",P5,P3);
L21=Line("L21",P4,F);
L22=Line("L22",P5,F);
L12=Line("L12",P5,A);
L11=Line("L11",P4,A);
Symc1=Symmetry("Symc1",P4,P3);
Perp22=Perpendicular("Perp22",L22,F);
Perp21=Perpendicular("Perp21",L21,F);
L1=Line("L1",Symc1,A);
L24=Line("L24",Symc2,F);
M1=MidPoint("M1",P4,Symc1);
L2=Line("L2",Symc1,F);
L14=Line("L14",Symc2,A);
Syma12=Reflection("Syma12",Perp22,A);
L23=Line("L23",M1,F);
Syma11=Reflection("Syma11",Perp21,A);
Perp2=Perpendicular("Perp2",L2,F);
Perp24=Perpendicular("Perp24",L24,F);
L13=Line("L13",M1,A);
L31=Line("L31",F,Syma11);
Syma1=Reflection("Syma1",Perp2,A);
L32=Line("L32",F,Syma12);
Syma14=Reflection("Syma14",Perp24,A);
Perp23=Perpendicular("Perp23",L23,F);
Syma13=Reflection("Syma13",Perp23,A);
B2=OrderedIntersection("B2",L32,L12,0);
B1=OrderedIntersection("B1",L31,L11,0);
L3=Line("L3",F,Syma1);
L34=Line("L34",F,Syma14);
L33=Line("L33",F,Syma13);
B=OrderedIntersection("B",L3,L1,0);
B4=OrderedIntersection("B4",L34,L14,0);
B3=OrderedIntersection("B3",L33,L13,0);
Quad=Quadric("Quad",B,B3,B1,A,B2);


// Styles :
STL(P1,"c:#0000b2;s:6;f:30");
STL(P2,"c:#0000b2;s:6;f:30");
STL(A,"c:#0000b2;s:6;sn:true;f:30");
STL(F,"c:#0000b2;s:6;sn:true;f:30");
STL(dir,"c:#780013;s:1;sn:true;f:30;p:0");
STL(Perp1,"c:#780013;h:1;s:1;f:30;p:0");
STL(P3,"c:#0000b2;s:6;f:30");
STL(C1,"c:#cc66cc;s:1;f:30;p:0");
STL(P4,"c:#0000b2;s:6;f:30");
STL(P5,"c:#0000b2;s:6;f:30");
STL(Symc2,"c:#0000b2;s:6;f:30");
STL(L21,"c:#780013;h:2;s:1;f:30;p:0");
STL(L22,"c:#780013;h:2;s:1;f:30;p:0");
STL(L12,"c:#780013;h:2;s:1;f:30;p:0");
STL(L11,"c:#780013;h:2;s:1;f:30;p:0");
STL(Symc1,"c:#0000b2;s:6;f:30");
STL(Perp22,"c:#780013;h:2;s:1;f:30;p:0");
STL(Perp21,"c:#780013;h:2;s:1;f:30;p:0");
STL(L1,"c:#780013;s:1;f:30;p:0");
STL(L24,"c:#780013;h:2;s:1;f:30;p:0");
STL(M1,"c:#0000b2;s:6;f:30");
STL(L2,"c:#780013;h:1;s:1;f:30;p:0");
STL(L14,"c:#780013;h:2;s:1;f:30;p:0");
STL(Syma12,"c:#0000b2;h:2;s:6;f:30");
STL(L23,"c:#780013;h:2;s:1;f:30;p:0");
STL(Syma11,"c:#0000b2;h:2;s:6;f:30");
STL(Perp2,"c:#780013;h:1;s:1;f:30;p:0");
STL(Perp24,"c:#780013;h:2;s:1;f:30;p:0");
STL(L13,"c:#780013;h:2;s:1;f:30;p:0");
STL(L31,"c:#780013;h:2;s:1;f:30;p:0");
STL(Syma1,"c:#0000b2;h:1;s:6;f:30");
STL(L32,"c:#780013;h:2;s:1;f:30;p:0");
STL(Syma14,"c:#0000b2;h:2;s:6;f:30");
STL(Perp23,"c:#780013;h:2;s:1;f:30;p:0");
STL(Syma13,"c:#0000b2;h:2;s:6;f:30");
STL(B2,"c:#0000b2;s:6;sn:true;f:30");
STL(B1,"c:#0000b2;s:6;sn:true;f:30");
STL(L3,"c:#780013;h:1;s:1;f:30;p:0");
STL(L34,"c:#780013;h:2;s:1;f:30;p:0");
STL(L33,"c:#780013;h:2;s:1;f:30;p:0");
STL(B,"c:#0000b2;s:6;sn:true;f:30");
STL(B4,"c:#0000b2;s:6;sn:true;f:30");
STL(B3,"c:#0000b2;s:6;sn:true;f:30");
STL(Quad,"c:#00adff;s:2;f:30;p:1000");
SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");