ソースを参照

update zmp

undefined
sasgis 54年前
コミット
70e3762bcf
4個のファイルの変更0行の追加77行の削除
  1. バイナリ
      geogarage.com.zmp/18.bmp
  2. バイナリ
      geogarage.com.zmp/24.bmp
  3. +0
    -52
      geogarage.com.zmp/GetUrlScript.txt
  4. +0
    -25
      geogarage.com.zmp/params.txt

バイナリ
geogarage.com.zmp/18.bmp ファイルの表示

変更前 変更後

バイナリ
geogarage.com.zmp/24.bmp ファイルの表示

変更前 変更後

+ 0
- 52
geogarage.com.zmp/GetUrlScript.txt ファイルの表示

@@ -1,52 +0,0 @@
var res:string;
i:byte;
osX,osY,prX,prY:integer;
begin
res:='t';
osX:=round(intpower(2,GetZ-1)) div 2;
osY:=round(intpower(2,GetZ-1)) div 2;
prX:=osX; prY:=osY;
for i:=2 to GetZ do
begin
prX:=prX div 2;
prY:=prY div 2;
if GetX<osX
then begin
osX:=osX-prX;
if GetY<osY then begin
osY:=osY-prY;
res:=res+'q';
end
else begin
osY:=osY+prY;
res:=res+'t';
end;
end
else begin
osX:=osX+prX;
if Gety<osy then begin
osY:=osY-prY;
res:=res+'r';
end
else begin
osY:=osY+prY;
res:=res+'s';
end;
end;
end;
if GetY <7 then insert('10',GetURLBase,13) else insert('8',GetURLBase,13);
case GetY of
7: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
8: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
9: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
10: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
11: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
12: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
13: ResultURL:=GetURLBase+COPY(res,1,6)+'/'+res+'.png';
else
ResultURL:=GetURLBase+res+'.png';
end
end.

+ 0
- 25
geogarage.com.zmp/params.txt ファイルの表示

@@ -1,25 +0,0 @@
[PARAMS]
pnum=28
GUID={822FDE8C-C357-47E6-ABA5-0D6BB8183838}
asLayer=0
name= Èñòîðè÷åñêàÿ êàðòà (geogarage.com)
name_en=history (geogarage.com)
NameInCache=geogarage.com
DefURLBase=http://tiles-proxy.geogarage.com/g4764015/
ContentType=image/png
ParentSubMenu=Èñòîðè÷åñêèå
ParentSubMenu_en=history
Ext=.png
projection=1
sradiusa=3396190
sradiusb=3396190
separator=0
UseDwn=1
Usestick=1
UseGenPrevious=1
Usedel=1
Usesave=1
UseAntiBan=0
Sleep=0
DefHotKey=0
BanIfLen=0

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