TheGarl
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
var
zoom:string;
begin
zoom:='';
if getz= 2 then zoom:='256';
if getz= 3 then zoom:='128';
if getz= 4 then zoom:='64';
if getz= 5 then zoom:='32';
if getz= 6 then zoom:='16';
if getz= 7 then zoom:='8';
if getz= 8 then zoom:='4';
if getz= 9 then zoom:='2';
if getz=10 then zoom:='1';
if getz=11 then zoom:='0_5';
ResultURL:=GetURLBase+''+inttostr(GetX-round(intpower(2,getz-1)/2)-1*round(intpower(2,getz-1)) )+'!'+inttostr(GetY-round(intpower(2,getz-1)/2)-1*round(intpower(2,getz-1)))+'!'+zoom+'.tile';
end.
тут
красным - это коэффициент уровня,
синим - изначальный сдвиг на 1ом масштабе....
|
