|
|
@@ -0,0 +1,37 @@ |
|
|
|
var
|
|
|
|
sx,sy,sz:string;
|
|
|
|
lx,ty:extended;
|
|
|
|
rx,by:extended;
|
|
|
|
res:array[0..24] of extended;
|
|
|
|
|
|
|
|
begin
|
|
|
|
res[0]:= 0;
|
|
|
|
res[1]:= 50000;
|
|
|
|
res[2]:= 49500;
|
|
|
|
res[3]:= 25500;
|
|
|
|
res[4]:= 9783;
|
|
|
|
res[5]:= 4891.96980999999959749402;
|
|
|
|
res[6]:= 2445;
|
|
|
|
res[7]:= 1222;
|
|
|
|
res[8]:= 611;
|
|
|
|
res[9]:= 305;
|
|
|
|
res[10]:=152;
|
|
|
|
res[11]:=76;
|
|
|
|
res[12]:=38;
|
|
|
|
res[13]:=19;
|
|
|
|
res[14]:=9.5;
|
|
|
|
res[15]:=4.79999999999999982236;
|
|
|
|
res[16]:=2.39999999999999991118;
|
|
|
|
res[17]:=0;
|
|
|
|
res[18]:=0;
|
|
|
|
res[19]:=0;
|
|
|
|
|
|
|
|
lx:=-20037508+(getx*res[getz]*256);
|
|
|
|
rx:=-20037508+((getx+1)*res[getz]*256);
|
|
|
|
|
|
|
|
ty:=-15496570+((round(intpower(2,getz-1))-gety-1)*res[getz]*256);
|
|
|
|
by:=-15496570+((round(intpower(2,getz-1))-gety+0)*res[getz]*256);
|
|
|
|
|
|
|
|
|
|
|
|
ResultURL:=GetUrlBase+inttostr(getz)+'&BBOX='+RoundEX(lx,2)+','+RoundEX(by,2)+','+RoundEX(rx,2)+','+RoundEX(ty,2);
|
|
|
|
end. |