ソースを参照

update zmp

master
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


読み込み中…
キャンセル
保存