$macros={};
$macros["IsoBar_3pts"]={
	name:"IsoBar_3pts",
	parameters:["point","point","point"],
	exec:
	function (A,B,C){
I=MidPoint("I",A,B);
J=MidPoint("J",B,C);
S1=Segment("S1",I,C);
S2=Segment("S2",A,J);
G=OrderedIntersection("G",S2,S1,0);
STL(G,"c:#0000b2;s:6;sn:true;f:30");
return [G];
}};