@@ -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= |
@@ -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= |
@@ -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= |
@@ -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= |