// Coordinates System :
SetCoords(420,315,5);


// Geometry :
O=Point("O",-58.6,24.5);
A16=Point("A16",-33.4,25.9);
B16=Point("B16",-54.6,52.8);
S1=Segment("S1",O,B16);
S2=Segment("S2",O,A16);


// Styles :
STL(O,"c:#0000b2;s:6;f:30");
STL(A16,"c:#0000b2;s:6;f:30");
STL(B16,"c:#0000b2;s:6;f:30");
STL(S1,"c:#006633;s:1;f:24");
STL(S2,"c:#006633;s:1;f:24");


for(pas=16; pas>1; pas/=2){
	for(n=pas/2; n<16; n+=pas){
		a=n-pas/2;
		if (a==0) {a="O"} else {a="A"+a;}
		b=n+pas/2;
		b="A"+b;
		m=MidPoint("A"+n,a,b);
		STL(m,"h:1");
		a=n-pas/2;
		if (a==0) {a="O"} else {a="B"+a;}
		b=n+pas/2;
		b="B"+b;
		m=MidPoint("B"+n,a,b);
		STL(m,"h:1");
	}
}

for(n=1; n<16; n++){
	Segment("A"+(16-n),"B"+n);
}