瀏覽代碼

update zmp

pull/1/head
sasbot 4 年之前
父節點
當前提交
5ed8e6ae06
共有 1 個檔案被更改,包括 2 行新增2 行删除
  1. +2
    -2
      _Genshtab/ggc/karta_ggc_all.zmp/GetUrlScript.txt

+ 2
- 2
_Genshtab/ggc/karta_ggc_all.zmp/GetUrlScript.txt 查看文件

@@ -10,9 +10,9 @@ begin
end;
if GetZ < 13 then
ResultURL := BaseUrl+'2km.png'+'/z'+inttostr(GetZ-1)+'/'+inttostr(GetY)+'/'+inttostr(GetX)+'.png'
ResultURL := BaseUrl+'2km.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
else if getz <14 then
ResultURL := BaseUrl+'1km'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
ResultURL := BaseUrl+'1km.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
else if getz <15 then
ResultURL := BaseUrl+'500m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
else


Loading…
取消
儲存