update zmp
After Width: | Height: | Size: 672 B |
After Width: | Height: | Size: 888 B |
|
@ -0,0 +1,50 @@
|
|||
var res:string;
|
||||
i:byte;
|
||||
osX,osY,prX,prY:integer;
|
||||
begin
|
||||
res:='';
|
||||
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+'1';
|
||||
end
|
||||
else begin
|
||||
osY:=osY+prY;
|
||||
res:=res+'3';
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
osX:=osX+prX;
|
||||
if Gety<osy then begin
|
||||
osY:=osY-prY;
|
||||
res:=res+'2';
|
||||
end
|
||||
else begin
|
||||
osY:=osY+prY;
|
||||
res:=res+'4';
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
res := Copy(res, 4, 99);
|
||||
ResultURL:=GetURLBase + inttostr(GetZ-1)+ '/' + res + '.jpg';
|
||||
|
||||
RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 +
|
||||
'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 +
|
||||
'Accept-Language: en-us,en;q=0.5' + #13#10 +
|
||||
'Accept-Encoding: gzip, deflate' + #13#10 +
|
||||
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 +
|
||||
'DNT: 1' + #13#10 +
|
||||
'Proxy-Connection: keep-alive' + #13#10 +
|
||||
'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10;
|
||||
end.
|
||||
|
|
@ -0,0 +1 @@
|
|||
<a href="http://mosday.ru/map/">http://mosday.ru/map/</a>
|
|
@ -0,0 +1,26 @@
|
|||
[PARAMS]
|
||||
pnum=
|
||||
GUID={9A360A5D-7A71-402D-1904-D670BD739B7B}
|
||||
name=Êàðòà Ìîñêâû 1904 (mosday.ru)
|
||||
name_en=Moscow Map 1904 (mosday.ru)
|
||||
name_uk=Êàðòà Ìîñêâû 1904 (mosday.ru)
|
||||
ParentSubMenu=Èñòîðè÷åñêèå
|
||||
ParentSubMenu_en=Historic
|
||||
ParentSubMenu_uk=²ñòîðè÷í³
|
||||
ContentType=image/jpeg
|
||||
asLayer=0
|
||||
DefURLBase=http://mosday.ru/map/tiles/mw1904/
|
||||
projection=1
|
||||
sradiusa=6378137
|
||||
sradiusb=6378137
|
||||
NameInCache=mosday.1904
|
||||
separator=0
|
||||
Ext=.jpg
|
||||
UseDwn=1
|
||||
Usestick=1
|
||||
UseGenPrevious=1
|
||||
Usedel=1
|
||||
Usesave=1
|
||||
UseAntiBan=0
|
||||
Sleep=0
|
||||
DefHotKey=
|
After Width: | Height: | Size: 672 B |
After Width: | Height: | Size: 888 B |
|
@ -0,0 +1,12 @@
|
|||
begin
|
||||
ResultURL:=GetUrlBase+inttostr(GetZ-1)+'/'+inttostr(GetZ-1)+'_'+inttostr(GetY)+'_'+inttostr(GetX)+'.jpg';
|
||||
RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 +
|
||||
'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 +
|
||||
'Accept-Language: en-us,en;q=0.5' + #13#10 +
|
||||
'Accept-Encoding: gzip, deflate' + #13#10 +
|
||||
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 +
|
||||
'DNT: 1' + #13#10 +
|
||||
'Proxy-Connection: keep-alive' + #13#10 +
|
||||
'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10;
|
||||
end.
|
||||
|
|
@ -0,0 +1 @@
|
|||
<a href="http://mosday.ru/map/">http://mosday.ru/map/</a>
|
|
@ -0,0 +1,26 @@
|
|||
[PARAMS]
|
||||
pnum=
|
||||
GUID={9A360A5D-7A71-402D-1912-D670BD739B7B}
|
||||
name=Êàðòà Ìîñêâû 1912 (mosday.ru)
|
||||
name_en=Moscow Map 1912 (mosday.ru)
|
||||
name_uk=Êàðòà Ìîñêâû 1912 (mosday.ru)
|
||||
ParentSubMenu=Èñòîðè÷åñêèå
|
||||
ParentSubMenu_en=Historic
|
||||
ParentSubMenu_uk=²ñòîðè÷í³
|
||||
ContentType=image/jpeg
|
||||
asLayer=0
|
||||
DefURLBase=http://mosday.ru/map/tiles/mw1912/
|
||||
projection=1
|
||||
sradiusa=6378137
|
||||
sradiusb=6378137
|
||||
NameInCache=mosday.1912
|
||||
separator=0
|
||||
Ext=.jpg
|
||||
UseDwn=1
|
||||
Usestick=1
|
||||
UseGenPrevious=1
|
||||
Usedel=1
|
||||
Usesave=1
|
||||
UseAntiBan=0
|
||||
Sleep=0
|
||||
DefHotKey=
|
After Width: | Height: | Size: 672 B |
After Width: | Height: | Size: 888 B |
|
@ -0,0 +1,50 @@
|
|||
var res:string;
|
||||
i:byte;
|
||||
osX,osY,prX,prY:integer;
|
||||
begin
|
||||
res:='';
|
||||
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+'1';
|
||||
end
|
||||
else begin
|
||||
osY:=osY+prY;
|
||||
res:=res+'3';
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
osX:=osX+prX;
|
||||
if Gety<osy then begin
|
||||
osY:=osY-prY;
|
||||
res:=res+'2';
|
||||
end
|
||||
else begin
|
||||
osY:=osY+prY;
|
||||
res:=res+'4';
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
res := Copy(res, 4, 99);
|
||||
ResultURL:=GetURLBase + inttostr(GetZ-1)+ '/' + res + '.jpg';
|
||||
|
||||
RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 +
|
||||
'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 +
|
||||
'Accept-Language: en-us,en;q=0.5' + #13#10 +
|
||||
'Accept-Encoding: gzip, deflate' + #13#10 +
|
||||
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 +
|
||||
'DNT: 1' + #13#10 +
|
||||
'Proxy-Connection: keep-alive' + #13#10 +
|
||||
'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10;
|
||||
end.
|
||||
|
|
@ -0,0 +1 @@
|
|||
<a href="http://mosday.ru/map/">http://mosday.ru/map/</a>
|
|
@ -0,0 +1,26 @@
|
|||
[PARAMS]
|
||||
pnum=
|
||||
GUID={9A360A5D-7A71-402D-1964-D670BD739B7B}
|
||||
name=Êàðòà Ìîñêâû 1964 (mosday.ru)
|
||||
name_en=Moscow Map 1964 (mosday.ru)
|
||||
name_uk=Êàðòà Ìîñêâû 1964 (mosday.ru)
|
||||
ParentSubMenu=Èñòîðè÷åñêèå
|
||||
ParentSubMenu_en=Historic
|
||||
ParentSubMenu_uk=²ñòîðè÷í³
|
||||
ContentType=image/jpeg
|
||||
asLayer=0
|
||||
DefURLBase=http://mosday.ru/map/tiles/mw1964/
|
||||
projection=1
|
||||
sradiusa=6378137
|
||||
sradiusb=6378137
|
||||
NameInCache=mosday.1964
|
||||
separator=0
|
||||
Ext=.jpg
|
||||
UseDwn=1
|
||||
Usestick=1
|
||||
UseGenPrevious=1
|
||||
Usedel=1
|
||||
Usesave=1
|
||||
UseAntiBan=0
|
||||
Sleep=0
|
||||
DefHotKey=
|
After Width: | Height: | Size: 1.0 KiB |
After Width: | Height: | Size: 1.7 KiB |
|
@ -0,0 +1,38 @@
|
|||
var res:string;
|
||||
i:byte;
|
||||
osX,osY,prX,prY:integer;
|
||||
begin
|
||||
res:='';
|
||||
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+'0';
|
||||
end
|
||||
else begin
|
||||
osY:=osY+prY;
|
||||
res:=res+'2';
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
osX:=osX+prX;
|
||||
if Gety<osy then begin
|
||||
osY:=osY-prY;
|
||||
res:=res+'1';
|
||||
end
|
||||
else begin
|
||||
osY:=osY+prY;
|
||||
res:=res+'3';
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
ResultURL:=GetURLBase + res + '.jpg';
|
||||
end.
|
|
@ -0,0 +1,26 @@
|
|||
[PARAMS]
|
||||
pnum=
|
||||
GUID={9A360A5D-1987-402D-8A11-D670BD739B7B}
|
||||
name=Êàðòà Ìîñêâû 1987 (retromap.ru)
|
||||
name_en=Moscow Map 1987 (retromap.ru)
|
||||
name_uk=Êàðòà Ìîñêâû 1987 (retromap.ru)
|
||||
ContentType=image/jpeg
|
||||
ParentSubMenu=Èñòîðè÷åñêèå
|
||||
ParentSubMenu_en=Historic
|
||||
ParentSubMenu_uk=²ñòîðè÷í³
|
||||
asLayer=0
|
||||
DefURLBase=http://www.retromap.ru/f19f53e/FFd2da_051987/
|
||||
projection=1
|
||||
sradiusa=6378137
|
||||
sradiusb=6378137
|
||||
NameInCache=retromap.1987
|
||||
separator=0
|
||||
Ext=.jpg
|
||||
UseDwn=1
|
||||
Usestick=1
|
||||
UseGenPrevious=1
|
||||
Usedel=1
|
||||
Usesave=1
|
||||
UseAntiBan=0
|
||||
Sleep=0
|
||||
DefHotKey=
|