浏览代码

update zmp

master
sasbot 4 年前
父节点
当前提交
8b8feb78f7
共有 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

正在加载...
取消
保存