zporuchik
Silver 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';
if getz=12 then zoom:='0_25';
ResultURL:=GetURLBase+''+inttostr(GetX-round(intpower(2,getz-1)/2))+'/'+inttostr(round(GetY-intpower(2,getz-1)/2))+'/'+zoom+'/tile.png';
end. |
