// Macros :
$macros={};
$macros["Cnk5tangentes"]={
	name:"Cnk 5 tangentes",
	parameters:["line","line","line","line","line"],
	exec:
	function (d1,d2,d3,d4,d5){
P11=OrderedIntersection("P11",d5,d1,0);
P12=OrderedIntersection("P12",d2,d1,0);
P13=OrderedIntersection("P13",d3,d2,0);
P14=OrderedIntersection("P14",d4,d3,0);
P15=OrderedIntersection("P15",d5,d4,0);
L1=Line("L1",P11,P14);
L2=Line("L2",P15,P13);
L4=Line("L4",P12,P15);
L6=Line("L6",P11,P13);
L8=Line("L8",P12,P14);
P16=OrderedIntersection("P16",L2,L1,0);
P17=OrderedIntersection("P17",L4,L1,0);
P18=OrderedIntersection("P18",L4,L6,0);
P19=OrderedIntersection("P19",L8,L6,0);
P20=OrderedIntersection("P20",L8,L2,0);
L3=Line("L3",P12,P16);
L5=Line("L5",P13,P17);
L7=Line("L7",P14,P18);
L9=Line("L9",P15,P19);
L10=Line("L10",P11,P20);
T1=OrderedIntersection("T1",L3,d4,0);
T2=OrderedIntersection("T2",L5,d5,0);
T3=OrderedIntersection("T3",L7,d1,0);
T4=OrderedIntersection("T4",L9,d2,0);
T5=OrderedIntersection("T5",L10,d3,0);
Quad=Quadric("Quad",T1,T2,T3,T4,T5);
STL(Quad,"c:#ed00ff;s:2.5;f:30;p:500");
return [Quad];
}};

$macros["DivHarmoABCD"]={
	name:"DivHarmo ABC D",
	parameters:["point","point","point"],
	exec:
	function (A,B,C){
d1=Line("d1",B,A);
C1=Circle("C1",A,B);
Perp1=Perpendicular("Perp1",d1,A);
Perp2=Perpendicular("Perp2",d1,B);
P4=OrderedIntersection("P4",Perp1,C1,1);
L1=Line("L1",P4,C);
P5=OrderedIntersection("P5",Perp2,L1,0);
Symc1=Symmetry("Symc1",B,P5);
L2=Line("L2",P4,Symc1);
D=OrderedIntersection("D",L2,d1,0);
STL(C,"c:#0000b2;s:6;sn:true;f:30");
STL(D,"c:#b40000;s:6;sn:true;f:30;sp:2");
return [C,D];
}};

$macros["Polaire1pt"]={
	name:"Polaire 1 pt",
	parameters:["quadric","point"],
	exec:
	function (Quad,P4){
A=DefinitionPoint("A",Quad,0);
P3=DefinitionPoint("P3",Quad,4);
L1=Line("L1",P4,A);
L2=Line("L2",P4,P3);
P5=OrderedIntersection("P5",L1,Quad,1,A);
P6=OrderedIntersection("P6",L2,Quad,1,P3);
d1=Line("d1",P6,P3);
C1=Circle("C1",P3,P6);
d11=Line("d11",P5,A);
C11=Circle("C11",A,P5);
Perp1=Perpendicular("Perp1",d1,P3);
Perp2=Perpendicular("Perp2",d1,P6);
Perp11=Perpendicular("Perp11",d11,A);
Perp21=Perpendicular("Perp21",d11,P5);
P41=OrderedIntersection("P41",Perp1,C1,1);
P42=OrderedIntersection("P42",Perp11,C11,1);
L11=Line("L11",P41,P4);
L12=Line("L12",P42,P4);
P51=OrderedIntersection("P51",Perp2,L11,0);
P52=OrderedIntersection("P52",Perp21,L12,0);
Symc1=Symmetry("Symc1",P6,P51);
Symc11=Symmetry("Symc11",P5,P52);
L21=Line("L21",P41,Symc1);
L22=Line("L22",P42,Symc11);
D=OrderedIntersection("D",L21,d1,0);
D1=OrderedIntersection("D1",L22,d11,0);
L3=Line("L3",D,D1);
STL(L3,"c:#780013;s:1;f:30;p:0");
return [L3];
}};

$macros["Tgt1ptCnk"]={
	name:"Tgt 1 pt Cnk",
	parameters:["quadric","point"],
	exec:
	function (Quad,M){
B=DefinitionPoint("B",Quad,1);
P2=DefinitionPoint("P2",Quad,3);
P6=Point("P6","Quad.center()","0");
L1=Line("L1",P6,M);
Par1=Parallel("Par1",L1,B);
Par2=Parallel("Par2",L1,P2);
P4=OrderedIntersection("P4",Par1,Quad,1,B);
P5=OrderedIntersection("P5",Par2,Quad,0,P2);
M1=MidPoint("M1",P5,P2);
M2=MidPoint("M2",B,P4);
L2=Line("L2",M2,M1);
Par3=Parallel("Par3",L2,M);
STL(M,"c:#b40000;o:1;s:6;sn:true;f:30");
STL(Par3,"c:#780013;s:1;f:30;p:0");
return [M,Par3];
}};

// Coordinates System :
SetCoords(607,355,40);


// Geometry :
B=Point("B",2.175,-4.15);
A=Point("A",-5.575,-4.125);
P1=Point("P1",1.275,1.225);
P2=Point("P2",-1.35,0.7);
P3=Point("P3",-4.525,-0.975);
Quad=Quadric("Quad",A,B,P1,P2,P3);
M=PointOn("M",Quad,[0.3199443012925632,0.9713974686611688]);
P6=Point("P6","Quad.center()","0");
L1=Line("L1",P6,M);
Par1=Parallel("Par1",L1,B);
Par2=Parallel("Par2",L1,P2);
P4=OrderedIntersection("P4",Par1,Quad,1,B);
P5=OrderedIntersection("P5",Par2,Quad,0,P2);
M1=MidPoint("M1",P5,P2);
M2=MidPoint("M2",B,P4);
L2=Line("L2",M2,M1);
Par3=Parallel("Par3",L2,M);


// Styles :
STL(B,"c:#0000b2;s:6;sn:true;f:30");
STL(A,"c:#0000b2;s:6;sn:true;f:30");
STL(P1,"c:#0000b2;s:6;f:30");
STL(P2,"c:#0000b2;s:6;f:30");
STL(P3,"c:#0000b2;s:6;f:30");
STL(Quad,"c:#0000b2;s:3;f:30;p:500");
STL(M,"c:#b40000;o:1;s:6;sn:true;f:30");
STL(P6,"c:#0000b2;s:6;f:30");
STL(L1,"c:#780013;s:1;f:30;p:0");
STL(Par1,"c:#780013;s:1;f:30;p:0");
STL(Par2,"c:#780013;s:1;f:30;p:0");
STL(P4,"c:#0000b2;s:6;f:30");
STL(P5,"c:#0000b2;s:6;f:30");
STL(M1,"c:#0000b2;s:6;f:30");
STL(M2,"c:#0000b2;s:6;f:30");
STL(L2,"c:#780013;s:1;f:30;p:0");
STL(Par3,"c:#780013;s:1;f:30;p:0");
SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");