Ivan30 писал(а):Tomytsch писал(а):Может как-то можно откалибровать карту
индусский код
скачивает с z3 до z11
DefURLBase=http://t1.skyvector.net/tiles/301/91311/
- Код: Выделить всё
begin
If GetZ = 3 then
ResultURL:=GetURLBase+'18/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 4 then
ResultURL:=GetURLBase+'16/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 5 then
ResultURL:=GetURLBase+'14/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 6 then
ResultURL:=GetURLBase+'12/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 7 then
ResultURL:=GetURLBase+'10/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 8 then
ResultURL:=GetURLBase+'8/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 9 then
ResultURL:=GetURLBase+'6/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 10 then
ResultURL:=GetURLBase+'4/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
If GetZ = 11 then
ResultURL:=GetURLBase+'2/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
Спасибо. Да, Масштаб получается у них через 1, ну и да ладно.
Вчера написал следующий скрипт, который работает так как надо.
begin
if (GetZ = 2) then
ResultURL:=GetURLBase+'/'+inttostr(20)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 3) then
ResultURL:=GetURLBase+'/'+inttostr(18)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 4) then
ResultURL:=GetURLBase+'/'+inttostr(16)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 5) then
ResultURL:=GetURLBase+'/'+inttostr(14)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 6) then
ResultURL:=GetURLBase+'/'+inttostr(12)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 7) then
ResultURL:=GetURLBase+'/'+inttostr(10)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 8) then
ResultURL:=GetURLBase+'/'+inttostr(8)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 9) then
ResultURL:=GetURLBase+'/'+inttostr(6)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 10) then
ResultURL:=GetURLBase+'/'+inttostr(4)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
if (GetZ = 11) then
ResultURL:=GetURLBase+'/'+inttostr(2)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
Но в итоге их крайний масштаб выбивается.
При добавление следующих строк тайлы грузятся, но сдвигаются.
if (GetZ =
12) then
ResultURL:=GetURLBase+'/'+inttostr(
1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
Такой вопрос: как подогнать их крайний масштаб на SASPlanet?