Browse Source

update zmp

pull/1/head
sasbot 4 years ago
parent
commit
b91813b2b3
20 changed files with 204 additions and 0 deletions
  1. BIN
      Bing.map.zmp/18.bmp
  2. BIN
      Bing.map.zmp/24.bmp
  3. +38
    -0
      Bing.map.zmp/GetUrlScript.txt
  4. +18
    -0
      Bing.map.zmp/params.txt
  5. BIN
      _ESRI/ArcGIS.Landsat.zmp/24.bmp
  6. +3
    -0
      _ESRI/ArcGIS.Landsat.zmp/GetUrlScript.txt
  7. +2
    -0
      _ESRI/ArcGIS.Landsat.zmp/info.txt
  8. +19
    -0
      _ESRI/ArcGIS.Landsat.zmp/params.txt
  9. BIN
      _OSM/4umaps.eu.zmp/18.bmp
  10. BIN
      _OSM/4umaps.eu.zmp/24.bmp
  11. +9
    -0
      _OSM/4umaps.eu.zmp/GetUrlScript.txt
  12. +6
    -0
      _OSM/4umaps.eu.zmp/info.txt
  13. +20
    -0
      _OSM/4umaps.eu.zmp/params.txt
  14. BIN
      _historic/harvard.edu.russianempire.zmp/24.bmp
  15. +3
    -0
      _historic/harvard.edu.russianempire.zmp/GetUrlScript.txt
  16. +21
    -0
      _historic/harvard.edu.russianempire.zmp/params.txt
  17. BIN
      _local/karta.tatar.ru.zmp/24.bmp
  18. +48
    -0
      _local/karta.tatar.ru.zmp/GetUrlScript.txt
  19. +1
    -0
      _local/karta.tatar.ru.zmp/info.txt
  20. +16
    -0
      _local/karta.tatar.ru.zmp/params.txt

BIN
Bing.map.zmp/18.bmp View File

Before After

BIN
Bing.map.zmp/24.bmp View File

Before After

+ 38
- 0
Bing.map.zmp/GetUrlScript.txt View File

@@ -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+'?g=1180&mkt=en-us&lbl=l1&stl=h&shading=hill&n=z';
end.

+ 18
- 0
Bing.map.zmp/params.txt View File

@@ -0,0 +1,18 @@
[PARAMS]
pnum=9
GUID={11772221-1ec8-42cb-bc48-8f6e1d9f6cfc}
name=Bing Maps
name_en=Bing Maps
name_uk=Bing Maps
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/r
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=bing.map
Ext=.png
UseDwn=1
ContentType=image/jpeg;image/png

BIN
_ESRI/ArcGIS.Landsat.zmp/24.bmp View File

Before After

+ 3
- 0
_ESRI/ArcGIS.Landsat.zmp/GetUrlScript.txt View File

@@ -0,0 +1,3 @@
begin
ResultURL:=GetURLBase+'exportImage?f=image&bandIds=0%2C1%2C2&bbox='+RoundEx(GetLLon,15)+'%2c'+RoundEx(GetBLat,15)+'%2c'+RoundEx(GetRLon,15)+'%2c'+RoundEx(GetTLat,15);
end.

+ 2
- 0
_ESRI/ArcGIS.Landsat.zmp/info.txt View File

@@ -0,0 +1,2 @@
ESRI<br>
<a href="http://www.arcgis.com/home/webmap/viewer.html?useExisting=1">www.arcgis.com</a>

+ 19
- 0
_ESRI/ArcGIS.Landsat.zmp/params.txt View File

@@ -0,0 +1,19 @@
[PARAMS]
pnum=
GUID={7B743985-BC5F-4AB6-8915-AC5DBBB8F553}
asLayer=0
name=ArcGIS.Landsat
name_en=ArcGIS.Landsat
NameInCache=ArcGIS.Landsat
ParentSubMenu=ESRI
ParentSubMenu_en=ESRI
DefURLBase=http://imagery.arcgisonline.com/arcgis/rest/services/LandsatGLS/GLS2010_Enhanced/ImageServer/
ContentType=image/jpeg, image/png
Ext=.jpg
separator=0
UseDwn=1
Sleep=0
DefHotKey=0
EPSG=4326
[ViewInfo]
EPSG=3785

BIN
_OSM/4umaps.eu.zmp/18.bmp View File

Before After

BIN
_OSM/4umaps.eu.zmp/24.bmp View File

Before After

+ 9
- 0
_OSM/4umaps.eu.zmp/GetUrlScript.txt View File

@@ -0,0 +1,9 @@
begin
ResultURL:=GetURLBase+'/'+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.png';
RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0' + #13#10 +
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' + #13#10 +
'Accept-Language: en-us,en;q=0.5' + #13#10 +
'Accept-Encoding: gzip, deflate' + #13#10 +
'Referer: http://www.4umaps.eu/map.htm' + #13#10 +
'Connection: keep-alive' + #13#10;
end.

+ 6
- 0
_OSM/4umaps.eu.zmp/info.txt View File

@@ -0,0 +1,6 @@
OpenStreetMap - это карта всего мира,
которую может редактировать каждый,
которая создается практически с чистого листа
и распространяется под свободной лицензией.
Первоисточник: http://www.openstreetmap.org/

+ 20
- 0
_OSM/4umaps.eu.zmp/params.txt View File

@@ -0,0 +1,20 @@
[PARAMS]
pnum=116
GUID={D643C5A1-3333-4387-9BE2-DDDF185C117E}
asLayer=0
name=4umaps.eu
name_en=4umaps.eu
name_uk=4umaps.eu
NameInCache=4umaps.eu
DefURLBase=http://www.4umaps.eu
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6356752
separator=0
UseDwn=1
Sleep=0
DefHotKey=
PARENTSUBMENU=OSM
License=(c) OpenStreetMap contributors, CC-BY-SA

BIN
_historic/harvard.edu.russianempire.zmp/24.bmp View File

Before After

+ 3
- 0
_historic/harvard.edu.russianempire.zmp/GetUrlScript.txt View File

@@ -0,0 +1,3 @@
begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,8)+','+RoundEx(GetBMetr,8)+','+RoundEx(GetRMetr,8)+','+RoundEx(GetTMetr,8);
end.

+ 21
- 0
_historic/harvard.edu.russianempire.zmp/params.txt View File

@@ -0,0 +1,21 @@
[PARAMS]
GUID={4334AD70-75F3-476B-8D92-13BE9426C255}
asLayer=0
name=harvard.edu.russianempire
name_en=harvard.edu.russianempire
NameInCache=harvard.edu.russianempire
ParentSubMenu=Èñòîðè÷åñêèå
ParentSubMenu_en=Historic
ParentSubMenu_uk=²ñòîðè÷í³
DefURLBase=http://worldmap.harvard.edu/geoserver/wms?STYLES=&FORMAT=image%2Fpng&TRANSPARENT=TRUE&LAYERS=geonode%3ARussian_mosaic_1827_3395&EXCEPTIONS=application%2Fvnd.ogc.se_inimage&VERSION=1.1.1&SERVICE=WMS&REQUEST=GetMap&LLBBOX=-179.99999682449794,19.809777149815613,180,85.99996901076048&URL=http%3A%2F%2Fworldmap.harvard.edu%2Fgeoserver%2Fwms&TILED=true&SRS=EPSG%3A900913&WIDTH=256&HEIGHT=256&BBOX=
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6356752
separator=0
UseDwn=1
Sleep=0
DefHotKey=0

BIN
_local/karta.tatar.ru.zmp/24.bmp View File

Before After
Width: 30  |  Height: 30  |  Size: 2.9 KiB

+ 48
- 0
_local/karta.tatar.ru.zmp/GetUrlScript.txt View File

@@ -0,0 +1,48 @@
var
X, Y, X1, X2, Y1, Y2, Z: integer;
SX1, SX2, SY1, SY2, SZ: string;
begin
Z := GetZ - 1;
Y := round(intpower(2,Z)) - 1 - GetY;
X := GetX;
Y1 := Y div 1000;
Y2 := Y mod 1000;
X1 := X div 1000;
X2 := X mod 1000;
case Y1 of
0..9: SY1 := '00'+IntToStr(Y1);
10..99: SY1 := '0'+IntToStr(Y1);
100..999: SY1 := IntToStr(Y1);
end;
case Y2 of
0..9: SY2 := '00'+IntToStr(Y2);
10..99: SY2 := '0'+IntToStr(Y2);
100..999: SY2 := IntToStr(Y2);
end;
case X1 of
0..9: SX1 := '00'+IntToStr(X1);
10..99: SX1 := '0'+IntToStr(X1);
100..999: SX1 := IntToStr(X1);
end;
case X2 of
0..9: SX2 := '00'+IntToStr(X2);
10..99: SX2 := '0'+IntToStr(X2);
100..999: SX2 := IntToStr(X2);
end;
case Z of
0..9: SZ := '0'+IntToStr(Z);
10..99: SZ := IntToStr(Z);
end;
if ((Z >= 3) and (Z <= 18)) then
ResultURL:=GetURLBase+SZ+'/000/'+SX1+'/'+SX2+'/000/'+SY1+'/'+SY2+'.png';
end.
// http://karta.tatar.ru/tilecache/satellite/13/000/005/215/000/005/631.png

+ 1
- 0
_local/karta.tatar.ru.zmp/info.txt View File

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

+ 16
- 0
_local/karta.tatar.ru.zmp/params.txt View File

@@ -0,0 +1,16 @@
[PARAMS]
pnum=114
GUID={63833E5D-09F2-4732-9D21-6350124302CB}
asLayer=0
name=Òàòàðñòàí - Ñïóòíèê (karta.tatar.ru)
name_en=Tatarstan Sat (karta.tatar.ru)
name_uk=Òàòàðñòàí - Ñïóòíèê (karta.tatar.ru)
ParentSubMenu=Ëîêàëüíûå êàðòû
ParentSubMenu_en=Local maps
ParentSubMenu_uk=Ëîêàëüí³ êàðòè
NameInCache=karta.tatar.ru
DefURLBase=http://karta.tatar.ru/tilecache/satellite/
ContentType=image/png
Ext=.png
UseDwn=1
EPSG=3785

Loading…
Cancel
Save