From d5aa5efbf225b942cb0cda7efe5de263690e7d03 Mon Sep 17 00:00:00 2001
From: sasgis <>
Date: Sat, 12 Dec 1970 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
z77Wx0<SHsCgolPgG)<f^0Vvg7Sq?V?W*<-(sIauK(8AO-Hahyo_N}5KB3xWtbu~3W
z1e5~C-G<rqsQPy7*Z~ywa&@h*s%&a(SUYdtyGh+H=Acvn2SBYaR!+yJ4=4lF3REZ|
zE`Ft^tR+4U$ObyKHYXd%$j;1wYXUOB?mRPpD$q%mmX@=pPXjW5PQ9HTv#YcK$aZyb
zs7Ou%>I1q7L*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<u23ir5^8~COw
z?`Ej&+Twg*I0MnN(qgoT1pDtvb>*YNqECg{Up<ZPSnAv^OGh&ulM9PKOd0$l^w$Rf
DMuj0G

literal 0
HcmV?d00001

diff --git a/eatlas_new.zmp/24.bmp b/eatlas_new.zmp/24.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..757538fb0ffd507cca95f1aa2a6a9c8621abace2
GIT binary patch
literal 1782
zcmZ?r{l>-s24+A~1BfM{m=VlkU^oDk2P=XS{~7*|5cEk;{hFW2eJA}FRz_Eod?Dyo
zq8|`FO7wl47VtbfjL4vP=ivxZd8<DEKz{DF+LrB|t-G5VA?Rpz`THsL1daN>XV;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}mXack<Fwfh0t6b$0ff^!T%rCqlFXJ@xh8
zo!;6Spe#@X=qY4Ffb8WnX8@&u;aOT*di%;{h_OJGD<<~ebTfZ8Z355>Km{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