// Macros :
$macros={};
$macros["CoordNormal"]={
	name:"Coord Normal",
	parameters:["area"],
	exec:
	function (Poly1){
P3=DefinitionPoint("P3",Poly1,2);
P2=DefinitionPoint("P2",Poly1,0);
P4=DefinitionPoint("P4",Poly1,1);
P21=Point("P21","Poly1.barycenter3D()","0");
P31=Point("P31","P21+unitVector(crossProduct(P2-P4,P2-P3))","0");
n=Expression("n","","","","P31-P21","-2.763130020576872","-4.265307849223822");
STL(n,"c:#255355;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [n];
}};

$macros["DistancePtPlan"]={
	name:"Distance Pt Plan",
	parameters:["area","point"],
	exec:
	function (Poly1,P5){
P3=DefinitionPoint("P3",Poly1,2);
P2=DefinitionPoint("P2",Poly1,0);
P4=DefinitionPoint("P4",Poly1,1);
v=Expression("v","AB vect AC ","","","unitVector(crossProduct(P2-P4,P3-P4))","-1.2353666434556096","-1.9925268442832418");
E2=Expression("E2","","","","var _a=P4,_c=-v[0]*_a[0]-v[1]*_a[1]-v[2]*_a[2],_m=P5,_k=(-_c-v[0]*_m[0]-v[1]*_m[1]-v[2]*_m[2])/(v[0]*v[0]+v[1]*v[1]+v[2]*v[2]);[_k*v[0]+_m[0],_k*v[1]+_m[1],_k*v[2]+_m[2]]","-1.2353666434556096","-2.7895375819965382");
P21=Point("P21","E2","0");
E1=Expression("E1","","","","d(P5,P21)","-1.3303959358333088","-0.9758673485370699");
STL(E1,"c:#154561;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};

$macros["EqPlanparExpnp"]={
	name:"Eq Plan par Exp n p",
	parameters:["expression","expression"],
	exec:
	function (n,p){
E1=Expression("E1","ABC :","","","n[0]+\"x + (\"+n[1]+\")y + (\"+n[2]+\")z = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])","-2.6169326649907942","-0.6103739595718751");
STL(E1,"c:#07371e;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};

$macros["EqplanparPoly"]={
	name:"Eq plan par Poly",
	parameters:["area"],
	exec:
	function (Poly1){
P3=DefinitionPoint("P3",Poly1,2);
P2=DefinitionPoint("P2",Poly1,0);
P4=DefinitionPoint("P4",Poly1,1);
P21=Point("P21","Poly1.barycenter3D()","0");
p=Expression("p","","","","P21","0.8187051912820361","-4.192209171430783");
P31=Point("P31","P21+unitVector(crossProduct(P2-P4,P2-P3))","0");
n=Expression("n","","","","P31-P21","-2.763130020576872","-4.265307849223822");
E1=Expression("E1","ABC :","","","n[0]+\"x + (\"+n[1]+\")y + (\"+n[2]+\")z = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])","-2.6169326649907942","-0.6103739595718751");
STL(E1,"c:#07371e;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};

$macros["Equationdedroite"]={
	name:"Equation de droite",
	parameters:["point","point"],
	exec:
	function (M,R){
CdR=Expression("CdR","","","","R","-4.241584599414012","-3.994466192317718");
CdM=Expression("CdM","","","","M","-4.241584599414012","-4.289532947059563");
E1=Expression("E1","Equation (MR) = ","","","\"[\"+CdM[0]+\"+(\"+(CdR[0]-CdM[0])+\")*t,\"+CdM[1]+\"+(\"+(CdR[1]-CdM[1])+\")*t,\"+CdM[2]+\"+(\"+(CdR[2]-CdM[2])+\")*t]\"","-4.610418042841318","-0.5274318241010468");
STL(E1,"c:#b40000;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNw==");
return [E1];
}};

// Coordinates System :
SetCoords(635,18.5,135.562544262217,true);


// Geometry :
P11=Point("P11","[1,1,-1]","1");
P1=Point("P1",-2.972797554024082,-2.2019356572610134);
P12=Point("P12","[1,-1,-1]","1");
P14=Point("P14","[-1,-1,-1]","1");
X=Point("X","[1,0,0]","1");
Z=Point("Z","[0,0,1]","1");
Y=Point("Y","[0,1,0]","1");
P13=Point("P13","[-1,1,-1]","1");
S31=Segment("S31",P1,Z);
angl210=Angle("angl210",P11,P13,P14);
angl111=Angle("angl111",P13,P14,P12);
Symc3=Symmetry("Symc3",P1,P13);
angl26=Angle("angl26",P13,P14,P12);
S106=Segment("S106",P14,P13);
S1011=Segment("S1011",P14,P12);
S107=Segment("S107",P12,P11);
S11=Segment("S11",P1,X);
Symc4=Symmetry("Symc4",P1,P14);
Symc2=Symmetry("Symc2",P1,P12);
angl17=Angle("angl17",P14,P12,P11);
S1010=Segment("S1010",P13,P11);
Symc1=Symmetry("Symc1",P1,P11);
S21=Segment("S21",P1,Y);
angl211=Angle("angl211",P12,P14,Symc1);
angl29=Angle("angl29",Symc4,Symc2,P13);
angl21=Angle("angl21",P13,Symc2,Symc1);
Poly2=Polygon("Poly2","_Symc1,_Symc3,_Symc4,_Symc2");
A=PointOn("A",S106,0.6017723937450595);
angl11=Angle("angl11",Symc4,Symc2,P13);
angl22=Angle("angl22",P14,Symc1,Symc3);
S101=Segment("S101",Symc2,P13);
B=PointOn("B",S1011,0.6771406529717611);
angl2=Angle("angl2",P11,Symc4,Symc2);
S103=Segment("S103",Symc3,P12);
angl1=Angle("angl1",Symc3,Symc4,P11);
angl13=Angle("angl13",Symc1,Symc3,P12);
S10=Segment("S10",Symc4,P11);
angl12=Angle("angl12",Symc2,Symc1,P14);
angl23=Angle("angl23",P12,Symc3,Symc4);
S104=Segment("S104",Symc3,Symc4);
angl14=Angle("angl14",P12,Symc3,Symc4);
angl24=Angle("angl24",Symc4,Symc3,Symc1);
S105=Segment("S105",Symc1,Symc2);
angl15=Angle("angl15",Symc3,Symc1,Symc2);
angl25=Angle("angl25",Symc2,Symc1,P14);
angl16=Angle("angl16",Symc1,P14,P13);
angl27=Angle("angl27",P11,P12,Symc3);
S108=Segment("S108",Symc1,Symc3);
angl18=Angle("angl18",P14,Symc1,Symc3);
angl28=Angle("angl28",Symc3,Symc1,Symc2);
S109=Segment("S109",Symc2,Symc4);
angl19=Angle("angl19",Symc1,Symc2,Symc4);
S102=Segment("S102",Symc1,P14);
angl110=Angle("angl110",Symc2,P13,P11);
E39=Expression("E39","","","","S109.setDash((angl19>\u03C0)&&(angl29>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E311=Expression("E311","","","","S1011.setDash((angl111>\u03C0)&&(angl211>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
R=PointOn("R",Poly2,[-0.18393766892620006,0.562802559191247]);
E310=Expression("E310","","","","S1010.setDash((angl110>\u03C0)&&(angl210>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E33=Expression("E33","","","","S103.setDash((angl13>\u03C0)&&(angl23>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E31=Expression("E31","","","","S101.setDash((angl11>\u03C0)&&(angl21>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E35=Expression("E35","","","","S105.setDash((angl15>\u03C0)&&(angl25>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E3=Expression("E3","","","","S10.setDash((angl1>\u03C0)&&(angl2>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E37=Expression("E37","","","","S107.setDash((angl17>\u03C0)&&(angl27>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E36=Expression("E36","","","","S106.setDash((angl16>\u03C0)&&(angl26>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E38=Expression("E38","","","","S108.setDash((angl18>\u03C0)&&(angl28>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
E32=Expression("E32","","","","S102.setDash((angl12>\u03C0)&&(angl22>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
C=PointOn("C",S10,0.4757555667333682);
E34=Expression("E34","","","","S104.setDash((angl14>\u03C0)&&(angl24>\u03C0));\"Dash code\"","-3.4271312765814144","-0.6177474479469206");
v=Expression("v","AB vect AC ","","","unitVector(crossProduct(B-C,A-C))","-3.1129532420384503","-2.1435155530149346");
Poly1=Polygon("Poly1","_B,_C,_A");
M=PointOn("M",Poly1,[0.19030072476897608,0.2874035235826265]);
L1=Line("L1",R,M);
f1=Expression("f1","","","","[M[0]+(R[0]-M[0])*t,M[1]+(R[1]-M[1])*t,M[2]+(R[2]-M[2])*t]","-4.610418042841318","-0.15859838067374135");
CdR=Expression("CdR","","","","R","-4.241584599414012","-3.994466192317718");
CdM=Expression("CdM","","","","M","-4.241584599414012","-4.289532947059563");
E1=Expression("E1","Equation (MR) = ","","","\"[\"+CdM[0]+\"+(\"+(CdR[0]-CdM[0])+\")*t,\"+CdM[1]+\"+(\"+(CdR[1]-CdM[1])+\")*t,\"+CdM[2]+\"+(\"+(CdR[2]-CdM[2])+\")*t]\"","-4.610418042841318","-0.5274318241010468");


// Styles :
STL(P11,"c:#0000b2;h:1;s:6;f:17");
STL(P1,"c:#b40000;s:5;f:17;fl:true");
STL(P12,"c:#0000b2;h:1;s:6;f:17");
STL(P14,"c:#0000b2;h:1;s:6;f:17");
STL(X,"c:#0000b2;h:1;o:1;s:4;sn:true;f:17");
STL(Z,"c:#0000b2;h:1;o:1;s:4;sn:true;f:17");
STL(Y,"c:#0000b2;h:1;o:1;s:4;sn:true;f:17");
STL(P13,"c:#0000b2;h:1;s:6;f:17");
STL(S31,"c:#117dad;h:1;s:1;f:24");
STL(angl210,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl111,"c:#006633;h:2;s:4;f:24;p:1");
STL(Symc3,"c:#0000b2;h:1;s:6;f:17");
STL(angl26,"c:#006633;h:2;s:4;f:24;p:1");
STL(S106,"c:#006633;s:1;f:24");
STL(S1011,"c:#006633;s:1;f:24;dh:true");
STL(S107,"c:#006633;s:1;f:24;dh:true");
STL(S11,"c:#117dad;h:1;s:1;f:24");
STL(Symc4,"c:#0000b2;h:1;s:6;f:17");
STL(Symc2,"c:#0000b2;h:1;s:6;f:17");
STL(angl17,"c:#006633;h:2;s:4;f:24;p:1");
STL(S1010,"c:#006633;s:1;f:24");
STL(Symc1,"c:#0000b2;h:1;s:6;f:17");
STL(S21,"c:#117dad;h:1;s:1;f:24");
STL(angl211,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl29,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl21,"c:#006633;h:2;s:4;f:24;p:1");
STL(Poly2,"c:#0026ff;h:1;o:0.06;s:1;f:30");
STL(A,"c:#0000b2;o:0.83;s:6;sn:true;f:17;np:3.520582904778641");
STL(angl11,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl22,"c:#006633;h:2;s:4;f:24;p:1");
STL(S101,"c:#006633;s:1;f:24");
STL(B,"c:#0000b2;o:1;s:6;sn:true;f:17;np:5.438208894501161");
STL(angl2,"c:#006633;h:2;s:4;f:24;p:1");
STL(S103,"c:#006633;s:1;f:24;dh:true");
STL(angl1,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl13,"c:#006633;h:2;s:4;f:24;p:1");
STL(S10,"c:#006633;s:1;f:24");
STL(angl12,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl23,"c:#006633;h:2;s:4;f:24;p:1");
STL(S104,"c:#006633;s:1;f:24");
STL(angl14,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl24,"c:#006633;h:2;s:4;f:24;p:1");
STL(S105,"c:#006633;s:1;f:24");
STL(angl15,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl25,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl16,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl27,"c:#006633;h:2;s:4;f:24;p:1");
STL(S108,"c:#006633;s:1;f:24");
STL(angl18,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl28,"c:#006633;h:2;s:4;f:24;p:1");
STL(S109,"c:#006633;s:1;f:24");
STL(angl19,"c:#006633;h:2;s:4;f:24;p:1");
STL(S102,"c:#006633;s:1;f:24");
STL(angl110,"c:#006633;h:2;s:4;f:24;p:1");
STL(E39,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E311,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(R,"c:#b40000;o:1;s:6;sn:true;f:17");
STL(E310,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E33,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E31,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E35,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E3,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E37,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E36,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E38,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E32,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(C,"c:#0000b2;o:1;s:6;sn:true;f:17;np:0.6856459153448841");
STL(E34,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(v,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(Poly1,"c:#966400;o:0.2;s:1;f:30");
STL(M,"c:#b40000;o:0.88;s:6;sn:true;f:17");
STL(L1,"c:#780013;s:1;f:30;p:0");
STL(f1,"c:#137220;s:7;sn:true;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNw==");
STL(CdR,"c:#7c6072;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(CdM,"c:#70445e;s:7;sn:true;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E1,"c:#b40000;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNw==");
SetCoordsStyle("3Dmode:true;isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:true;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");