update zmp

gp_Landsat.zmp/GetUrlScript.txt

@@ -0,0 +1,44 @@
+var res,resx,resy:string;
+    i:byte;
+    osX,osY,prX,prY:integer;
+begin
+   (* 1/1-1.jpg *)
+    resx := '';
+    resy := '';
+    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;
+            resx := resx + '0';
+          end
+        else begin
+            osX := osX + prX;
+            resx := resx + '1';
+          end;
+
+        if GetY < osY then begin
+            osY := osY - prY;
+            resy := resy + '0';
+          end
+        else begin
+            osY := osY + prY;
+            resy := resy + '1';
+          end;
+    end;
+
+    if GetZ > 7 then begin
+        for i:=1 to GetZ-7 do begin
+            res := res + Copy( resy, 1, i ) + '-' + Copy( resx, 1, i ) + '/';
+          end;
+      end;
+
+    ResultURL := GetURLBase + inttostr(GetZ-1) +'/' + res + resy + '-' + resx + '.jpg';
+end.

gp_Landsat.zmp/params.txt

@@ -0,0 +1,27 @@
+[PARAMS]
+pnum=9
+GUID={9A360A54-7A70-402C-8A11-D570BD759B00}
+name=Geoportal-Ëàíäñàò
+name_en=Geoportal-Landsat
+name_uk=Geoportal-Ëàíäñàò
+asLayer=0
+DefURLBase=http://geoportal.ntsomz.ru/coverages/images_landsat/
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+NameInCache=gp_landsat
+separator=0
+Ext=.jpg
+UseDwn=1
+Usestick=1
+UseGenPrevious=1
+Usedel=1
+Usesave=1
+UseAntiBan=0
+Sleep=0
+DefHotKey=0
+ContentType=image/jpeg
+BanIfLen=0
+ParentSubMenu=Ãåîïîðòàë
+ParentSubMenu_en=Geoportal
+ParentSubMenu_uk=Geoportal

gp_Meteor.zmp/GetUrlScript.txt

@@ -0,0 +1,44 @@
+var res,resx,resy:string;
+    i:byte;
+    osX,osY,prX,prY:integer;
+begin
+   (* 1/1-1.jpg *)
+    resx := '';
+    resy := '';
+    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;
+            resx := resx + '0';
+          end
+        else begin
+            osX := osX + prX;
+            resx := resx + '1';
+          end;
+
+        if GetY < osY then begin
+            osY := osY - prY;
+            resy := resy + '0';
+          end
+        else begin
+            osY := osY + prY;
+            resy := resy + '1';
+          end;
+    end;
+
+    if GetZ > 7 then begin
+        for i:=1 to GetZ-7 do begin
+            res := res + Copy( resy, 1, i ) + '-' + Copy( resx, 1, i ) + '/';
+          end;
+      end;
+
+    ResultURL := GetURLBase + inttostr(GetZ-1) +'/' + res + resy + '-' + resx + '.jpg';
+end.

gp_Meteor.zmp/params.txt

@@ -0,0 +1,27 @@
+[PARAMS]
+pnum=9
+GUID={9A360A54-7A70-402C-8A11-D570BD759B02}
+name=Geoportal-Ìåòåîð
+name_en=Geoportal-Meteor
+name_uk=Geoportal-Ìåòåîð
+asLayer=0
+DefURLBase=http://geoportal.ntsomz.ru/coverages/images_meteor/
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+NameInCache=gp_meteor
+separator=0
+Ext=.jpg
+UseDwn=1
+Usestick=1
+UseGenPrevious=1
+Usedel=1
+Usesave=1
+UseAntiBan=0
+Sleep=0
+DefHotKey=0
+ContentType=image/jpeg
+BanIfLen=0
+ParentSubMenu=Ãåîïîðòàë
+ParentSubMenu_en=Geoportal
+ParentSubMenu_uk=Geoportal

gp_Ortho_region.zmp/GetUrlScript.txt

@@ -0,0 +1,44 @@
+var res,resx,resy:string;
+    i:byte;
+    osX,osY,prX,prY:integer;
+begin
+   (* 1/1-1.jpg *)
+    resx := '';
+    resy := '';
+    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;
+            resx := resx + '0';
+          end
+        else begin
+            osX := osX + prX;
+            resx := resx + '1';
+          end;
+
+        if GetY < osY then begin
+            osY := osY - prY;
+            resy := resy + '0';
+          end
+        else begin
+            osY := osY + prY;
+            resy := resy + '1';
+          end;
+    end;
+
+    if GetZ > 7 then begin
+        for i:=1 to GetZ-7 do begin
+            res := res + Copy( resy, 1, i ) + '-' + Copy( resx, 1, i ) + '/';
+          end;
+      end;
+
+    ResultURL := GetURLBase + inttostr(GetZ-1) +'/' + res + resy + '-' + resx + '.jpg';
+end.

gp_Ortho_region.zmp/params.txt

@@ -0,0 +1,27 @@
+[PARAMS]
+pnum=9
+GUID={9A360A54-7A70-402C-8A11-D570BD759B01}
+name=Geoportal-Alos
+name_en=Geoportal-Alos
+name_uk=Geoportal-Alos
+asLayer=0
+DefURLBase=http://geoportal.ntsomz.ru/coverages/images_ortho_region/
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+NameInCache=gp_ortho_region
+separator=0
+Ext=.jpg
+UseDwn=1
+Usestick=1
+UseGenPrevious=1
+Usedel=1
+Usesave=1
+UseAntiBan=0
+Sleep=0
+DefHotKey=0
+ContentType=image/jpeg
+BanIfLen=0
+ParentSubMenu=Ãåîïîðòàë
+ParentSubMenu_en=Geoportal
+ParentSubMenu_uk=Geoportal