sasbot 4 лет назад
Родитель
Сommit
e82886b8ca
19 измененных файлов: 257 добавлений и 0 удалений
  1. Двоичные данные
      _historic/mosday.1904.zmp/18.bmp
  2. Двоичные данные
      _historic/mosday.1904.zmp/24.bmp
  3. +50
    -0
      _historic/mosday.1904.zmp/GetUrlScript.txt
  4. +1
    -0
      _historic/mosday.1904.zmp/info.txt
  5. +26
    -0
      _historic/mosday.1904.zmp/params.txt
  6. Двоичные данные
      _historic/mosday.1912.zmp/18.bmp
  7. Двоичные данные
      _historic/mosday.1912.zmp/24.bmp
  8. +12
    -0
      _historic/mosday.1912.zmp/GetUrlScript.txt
  9. +1
    -0
      _historic/mosday.1912.zmp/info.txt
  10. +26
    -0
      _historic/mosday.1912.zmp/params.txt
  11. Двоичные данные
      _historic/mosday.1964.zmp/18.bmp
  12. Двоичные данные
      _historic/mosday.1964.zmp/24.bmp
  13. +50
    -0
      _historic/mosday.1964.zmp/GetUrlScript.txt
  14. +1
    -0
      _historic/mosday.1964.zmp/info.txt
  15. +26
    -0
      _historic/mosday.1964.zmp/params.txt
  16. Двоичные данные
      _historic/retromap.1987.zmp/18.bmp
  17. Двоичные данные
      _historic/retromap.1987.zmp/24.bmp
  18. +38
    -0
      _historic/retromap.1987.zmp/GetUrlScript.txt
  19. +26
    -0
      _historic/retromap.1987.zmp/params.txt

Двоичные данные
_historic/mosday.1904.zmp/18.bmp Просмотреть файл

До После

Двоичные данные
_historic/mosday.1904.zmp/24.bmp Просмотреть файл

До После

+ 50
- 0
_historic/mosday.1904.zmp/GetUrlScript.txt Просмотреть файл

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

+ 1
- 0
_historic/mosday.1904.zmp/info.txt Просмотреть файл

@@ -0,0 +1 @@
<a href="http://mosday.ru/map/">http://mosday.ru/map/</a>

+ 26
- 0
_historic/mosday.1904.zmp/params.txt Просмотреть файл

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

Двоичные данные
_historic/mosday.1912.zmp/18.bmp Просмотреть файл

До После

Двоичные данные
_historic/mosday.1912.zmp/24.bmp Просмотреть файл

До После

+ 12
- 0
_historic/mosday.1912.zmp/GetUrlScript.txt Просмотреть файл

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

+ 1
- 0
_historic/mosday.1912.zmp/info.txt Просмотреть файл

@@ -0,0 +1 @@
<a href="http://mosday.ru/map/">http://mosday.ru/map/</a>

+ 26
- 0
_historic/mosday.1912.zmp/params.txt Просмотреть файл

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

Двоичные данные
_historic/mosday.1964.zmp/18.bmp Просмотреть файл

До После

Двоичные данные
_historic/mosday.1964.zmp/24.bmp Просмотреть файл

До После

+ 50
- 0
_historic/mosday.1964.zmp/GetUrlScript.txt Просмотреть файл

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

+ 1
- 0
_historic/mosday.1964.zmp/info.txt Просмотреть файл

@@ -0,0 +1 @@
<a href="http://mosday.ru/map/">http://mosday.ru/map/</a>

+ 26
- 0
_historic/mosday.1964.zmp/params.txt Просмотреть файл

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

Двоичные данные
_historic/retromap.1987.zmp/18.bmp Просмотреть файл

До После

Двоичные данные
_historic/retromap.1987.zmp/24.bmp Просмотреть файл

До После

+ 38
- 0
_historic/retromap.1987.zmp/GetUrlScript.txt Просмотреть файл

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

+ 26
- 0
_historic/retromap.1987.zmp/params.txt Просмотреть файл

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

Загрузка…
Отмена
Сохранить