瀏覽代碼

update zmp

master
sasbot 4 年之前
父節點
當前提交
ead2c4432a
共有 4 個檔案被更改,包括 196 行新增0 行删除
  1. 二進制
      eatlas_new.zmp/18.bmp
  2. 二進制
      eatlas_new.zmp/24.bmp
  3. +173
    -0
      eatlas_new.zmp/GetUrlScript.txt
  4. +23
    -0
      eatlas_new.zmp/params.txt

二進制
eatlas_new.zmp/18.bmp 查看文件

Before After

二進制
eatlas_new.zmp/24.bmp 查看文件

Before After

+ 173
- 0
eatlas_new.zmp/GetUrlScript.txt 查看文件

@@ -0,0 +1,173 @@
var a:array[0..35] of char;
max:array[0..20] of byte;
x1,x2,x3:integer;
y1,y2,y3:integer;
px1,px2,px3:integer;
py1,py2,py3:integer;
ppx1,ppx2,ppx3:integer;
ppy1,ppy2,ppy3:integer;
dx3,dx2,dx1:integer;
dy3,dy2,dy1:integer;
sxy:string;
strx1,strx2,strx3:string;
stry1,stry2,stry3:string;
begin
a[0]:= '0';
a[1]:= '1';
a[2]:= '2';
a[3]:= '3';
a[4]:= '4';
a[5]:= '5';
a[6]:= '6';
a[7]:= '7';
a[8]:= '8';
a[9]:= '9';
a[10]:='A';
a[11]:='B';
a[12]:='C';
a[13]:='D';
a[14]:='E';
a[15]:='F';
a[16]:='G';
a[17]:='H';
a[18]:='I';
a[19]:='J';
a[20]:='K';
a[21]:='L';
a[22]:='M';
a[23]:='N';
a[24]:='O';
a[25]:='P';
a[26]:='Q';
a[27]:='R';
a[28]:='S';
a[29]:='T';
a[30]:='U';
a[31]:='V';
a[32]:='W';
a[33]:='X';
a[34]:='Y';
a[35]:='Z';
max[0]:= 15;
max[1]:= 15;
max[2]:= 15;
max[3]:= 15;
max[4]:= 15;
max[5]:= 15;
max[6]:= 16;
max[7]:= 16;
max[8]:= 16;
max[9]:= 16;
max[10]:=16;
max[11]:=16;
max[12]:=16;
max[13]:=16;
max[14]:=16;
max[15]:=16;
max[16]:=16;
max[17]:=16;
max[18]:=16;
max[19]:=16;
sxy:='';
strx1:='';
strx2:='';
strx3:='';
stry1:='';
stry2:='';
stry3:='';
x3:=0;
y3:=0;
x2:=0;
y2:=0;
x1:=0;
y1:=0;
px3:=0;
py3:=0;
px2:=0;
py2:=0;
px1:=0;
py1:=0;
if (gety>=round(intpower(2,GetZ-1)/2)) and (getx >=round(intpower(2,GetZ-1)/2)) then sxy:='/A';
if (gety>=round(intpower(2,GetZ-1)/2)) and (getx < round(intpower(2,GetZ-1)/2)) then sxy:='/B';
if (gety< round(intpower(2,GetZ-1)/2)) and (getx >= round(intpower(2,GetZ-1)/2))then sxy:='/D';
if (gety< round(intpower(2,GetZ-1)/2)) and (getx < round(intpower(2,GetZ-1)/2))then sxy:='/C';
dx3:=round(intpower(2,GetZ-1)/2)-GetX;
if dx3<0 then dx3:=-dx3;
dy3:=round(intpower(2,GetZ-1)/2)-GetY;
if dy3<0 then dy3:=-dy3;
if GetZ>3 then
begin
dx2:=dx3 div max[getz];
dy2:=dy3 div max[getz];
dx1:=dx2 div max[getz];
dy1:=dy2 div max[getz];
end;
px3:=dx3 div 35;
py3:=dy3 div 35;
ppx3:=px3 div 35;
ppy3:=py3 div 35;
x3:=dx3 mod 35;
y3:=dy3 mod 35;
px3:=px3-ppx3*35;
py3:=py3-ppy3*35;
px2:=dx2 div 35;
py2:=dy2 div 35;
ppx2:=px2 div 35;
ppy2:=py2 div 35;
x2:=dx2 mod 35;
y2:=dy2 mod 35;
px2:=px2-ppx2*35;
py2:=py2-ppy2*35;
px1:=dx1 div 35;
py1:=dy1 div 35;
ppx1:=px1 div 35;
ppy1:=py1 div 35;
x1:=dx1 mod 35;
y1:=dy1 mod 35;
px1:=px1-ppx1*35;
py1:=py1-ppy1*35;
strx3:=a[x3];
stry3:=a[y3];
if px3>0 then strx3:=a[px3]+strx3;
if py3>0 then stry3:=a[py3]+stry3;
if ppx3>0 then strx3:=a[ppx3]+strx3;
if ppy3>0 then stry3:=a[ppy3]+stry3;
strx2:=a[x2];
stry2:=a[y2];
if px2>0 then strx2:=a[px2]+strx2;
if py2>0 then stry2:=a[py2]+stry2;
if ppx2>0 then strx2:=a[ppx2]+strx2;
if ppy2>0 then stry2:=a[ppy2]+stry2;
strx1:=a[x1];
stry1:=a[y1];
if px1>0 then strx1:=a[px1]+strx1;
if py1>0 then stry1:=a[py1]+stry1;
if ppx1>0 then strx1:=a[ppx1]+strx1;
if ppy1>0 then stry1:=a[ppy1]+stry1;
ResultURL:=GetURLBase+'Z'+inttostr(19-GetZ)+sxy+'/L1'+strx1+'Z'+stry1+'/L2'+strx2+'Z'+stry2+'/'+strx3+'Z'+stry3+'.png';
end.

+ 23
- 0
eatlas_new.zmp/params.txt 查看文件

@@ -0,0 +1,23 @@
[PARAMS]
pnum=104
GUID={A8B5CADE-FA15-492D-9BC2-BCBA7DCE888F}
asLayer=0
name=E_ATLAS
name_9=E_Atlas
NameInCache=Eatlas_New
DefURLBase=http://www.eatlas.ru/IMAGES/
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6356752
separator=0
UseDwn=1
Usestick=1
UseGenPrevious=1
Usedel=1
Usesave=1
UseAntiBan=0
Sleep=0
DefHotKey=0
BanIfLen=0

Loading…
取消
儲存