// Macros :
$macros={};
$macros["Div3AB_parC"]={
	name:"Div3AB_parC",
	parameters:["point","point","point"],
	exec:
	function (A,B,C){
S1=Segment("S1",B,A);STL(S1,"h:1");
M1=MidPoint("M1",C,A);STL(M1,"h:1");
Symc1=Symmetry("Symc1",C,M1);STL(Symc1,"h:1");
S2=Segment("S2",Symc1,B);STL(S2,"h:1");
Par1=Parallel("Par1",S2,M1);STL(Par1,"h:1");
P1=OrderedIntersection("P1",S1,Par1,0);
Symc2=Symmetry("Symc2",P1,A);
return [P1,Symc2];
}};

// Coordinates System :
SetCoords(566,355.5,40);


// Geometry :
A=Point("A",-5.5,-1.8625);
B=Point("B",2.4,-0.5625);
Ca=Circle(A,B);Cb=Circle(B,A);
STL(Ca,"h:1");STL(Cb,"h:1");
C=OrderedIntersection(Ca,Cb,0);
STL(C,"h:1");

function KochGeom(P,Q,R,n){
	var a,b,c,u, v, w, Cu,Cv
a=P;b=Q;c=R;
if (n==0) {Segment(a,b)}
	else {	
[u,v]=$macros["Div3AB_parC"].exec(P,Q,R);
STL(u,"h:1");STL(v,"h:1");
Cu=Circle(u,v);Cv=Circle(v,u);
STL(Cu,"h:1");STL(Cv,"h:1");
w=OrderedIntersection(Cu,Cv,0);
STL(w,"h:1");	
KochGeom(a,u,w,n-1);KochGeom(u,w,a,n-1);
	KochGeom(w,v,b,n-1);KochGeom(v,b,w,n-1);
	}

}

// Styles :
STL(A,"c:#0000b2;s:6;sn:true;f:20");
STL(B,"c:#0000b2;s:6;sn:true;f:20");


SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");

KochGeom(A,B,C,3)