|
|
@@ -0,0 +1,17 @@ |
|
|
|
var
|
|
|
|
Step:integer;
|
|
|
|
shiftx,shifty:integer;
|
|
|
|
y:integer;
|
|
|
|
begin
|
|
|
|
shiftx:=225280;
|
|
|
|
shifty:=5632000;
|
|
|
|
|
|
|
|
step:=round(225280/round(intpower(2,getz-3)))
|
|
|
|
if gety<3 then step:=225280;
|
|
|
|
|
|
|
|
y:=round(intpower(2,getz-1))-GetY-1;
|
|
|
|
if y<=0 then y:=1;
|
|
|
|
|
|
|
|
ResultURL:=GetURLBase+inttostr(shiftx+getx*step)+','+inttostr(shifty+Y*step)+','+inttostr(shiftx+getx*step+step)+','+inttostr(shifty+Y*step+step);
|
|
|
|
end.
|
|
|
|
|