$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];
}};