$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.8","-4.2");
P31=Point("P31","P21+unitVector(crossProduct(P2-P4,P2-P3))","0");
n=Expression("n","","","","P31-P21","-2.7","-4.2");
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.6","-0.6");
STL(E1,"c:#07371e;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};