update zmp

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

Bing.map.zmp/params.txt

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

_ESRI/ArcGIS.Landsat.zmp/GetUrlScript.txt

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

_ESRI/ArcGIS.Landsat.zmp/info.txt

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

_ESRI/ArcGIS.Landsat.zmp/params.txt

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

_OSM/4umaps.eu.zmp/GetUrlScript.txt

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

_OSM/4umaps.eu.zmp/info.txt

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

_OSM/4umaps.eu.zmp/params.txt

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

_historic/harvard.edu.russianempire.zmp/GetUrlScript.txt

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

_historic/harvard.edu.russianempire.zmp/params.txt

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

_local/karta.tatar.ru.zmp/GetUrlScript.txt

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

_local/karta.tatar.ru.zmp/info.txt

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

_local/karta.tatar.ru.zmp/params.txt

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