From ead2c4432a4c7cca3ccf55e02718040efe676cf3 Mon Sep 17 00:00:00 2001 From: sasbot <> Date: Sat, 6 Jun 2020 12:00:00 +0000 Subject: [PATCH] update zmp --- eatlas_new.zmp/18.bmp | Bin 0 -> 1062 bytes eatlas_new.zmp/24.bmp | Bin 0 -> 1782 bytes eatlas_new.zmp/GetUrlScript.txt | 173 ++++++++++++++++++++++++++++++++ eatlas_new.zmp/params.txt | 23 +++++ 4 files changed, 196 insertions(+) create mode 100644 eatlas_new.zmp/18.bmp create mode 100644 eatlas_new.zmp/24.bmp create mode 100644 eatlas_new.zmp/GetUrlScript.txt create mode 100644 eatlas_new.zmp/params.txt diff --git a/eatlas_new.zmp/18.bmp b/eatlas_new.zmp/18.bmp new file mode 100644 index 0000000000000000000000000000000000000000..dce7efc0519d7b4af9a70cfaa7bf602b2c72fb9f GIT binary patch literal 1062 zcmZ?rRbycQ12Z700mMR3%*Y@C7XQEurcj9g4FAbM3=Cvw0%{ppeeb-T9>)jVPYXYt z8F3;%@oYij#eyUt!t@KOJAW)*bN~$AtXTeh=FC@%7Cf0U5mOVA|BfCxY-(aGCo3Bj z77Wx0I1q7L*Ie;h?@Ldpfx~wBLn>-87c3D_`mpiXeuiMwQ6f>0;P~O!R$L29(3Bn z{#{bk$8{5cf%z^m<}Vx5O%KP6@GziBK;UU@flc3?Ah#nPPQMkHei*YNqECg{Up-s24+A~1BfM{m=VlkU^oDk2P=XS{~7*|5cEk;{hFW2eJA}FRz_Eod?Dyo zq8|`FO7wl47VtbfjL4vP=ivxZd8XV;fy zi{Q$B?ArBn&1#^?&mG(0g7_IzrcALkH#5-IcCfdb-ro&T+~4016w%YuYiVwRYd?1E z7*GvR+}F$N@s*2kaUi3zq5?TR0NFqhp!oV_%Q!eVfLt?Elh@CmL$oy3*FzMi#Kzp- zu?lVu(0n05L7-H4P|)^u>pEImT%4SM)*aoo>ts*6rm8AL7tjq51W^nW1ln?b>lC;- zKsN&gfwDl0)-GDOY2yYU0vi5(_s(|><)I!P5OdH-phXXl?1LKuWE2+UL)7r`^1_jv zv~*`d!TX6_Q*yK6CIDsOY@p*m_Ov3K0}mXackKm{sFN*6b7 z@U*oBvVno{@Zm#bb5704Jztv-4+Kc;0967-E*BNtHBkNH>kRQY(B#JQGN6BfvcMQe zHU!AN9_6*BD0jt-X+Zx%A_7RpMnzp|sQsiU`;C?PFAwX^zFvsefN=+5Oln058K61O z>T;LmX03@1dzu*aa?*rXTUNileFiB0w!Q{v!ap{~$Lb0|2LqER&>0W_H0t8)8EEbS zau3^CA9JwytibbKm*bC<3S7Y(BYmJbH+3|3P3!}@5M~SmFu)&I=E9Xh7_YJ-Zy0NB zO^N;@$o*H05$J}O+OpTZZGpM|z<~q6^mDg1{Hdo6(9MQAI=}!2dJUM&Zj~0HnFDnH zm9Wrr0U@u$Lw=eW{So1RF2r)hToY*W*U427#h=P!f$UG)wthT(;LG)0XeQv{zHY9? LBReWZY6t)T5P6NJ literal 0 HcmV?d00001 diff --git a/eatlas_new.zmp/GetUrlScript.txt b/eatlas_new.zmp/GetUrlScript.txt new file mode 100644 index 00000000..26099de6 --- /dev/null +++ b/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. + diff --git a/eatlas_new.zmp/params.txt b/eatlas_new.zmp/params.txt new file mode 100644 index 00000000..aab85bb6 --- /dev/null +++ b/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 \ No newline at end of file