diff --git a/eatlas_new.zmp/18.bmp b/eatlas_new.zmp/18.bmp new file mode 100644 index 000000000..dce7efc05 Binary files /dev/null and b/eatlas_new.zmp/18.bmp differ diff --git a/eatlas_new.zmp/24.bmp b/eatlas_new.zmp/24.bmp new file mode 100644 index 000000000..757538fb0 Binary files /dev/null and b/eatlas_new.zmp/24.bmp differ diff --git a/eatlas_new.zmp/GetUrlScript.txt b/eatlas_new.zmp/GetUrlScript.txt new file mode 100644 index 000000000..26099de62 --- /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 000000000..aab85bb63 --- /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