diff --git a/gp_Landsat.zmp/18.bmp b/gp_Landsat.zmp/18.bmp new file mode 100644 index 00000000..a942fa46 Binary files /dev/null and b/gp_Landsat.zmp/18.bmp differ diff --git a/gp_Landsat.zmp/24.bmp b/gp_Landsat.zmp/24.bmp new file mode 100644 index 00000000..e46b7562 Binary files /dev/null and b/gp_Landsat.zmp/24.bmp differ diff --git a/gp_Landsat.zmp/GetUrlScript.txt b/gp_Landsat.zmp/GetUrlScript.txt new file mode 100644 index 00000000..3be4b08f --- /dev/null +++ b/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. \ No newline at end of file diff --git a/gp_Landsat.zmp/params.txt b/gp_Landsat.zmp/params.txt new file mode 100644 index 00000000..b5848d76 --- /dev/null +++ b/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 diff --git a/gp_Meteor.zmp/18.bmp b/gp_Meteor.zmp/18.bmp new file mode 100644 index 00000000..a942fa46 Binary files /dev/null and b/gp_Meteor.zmp/18.bmp differ diff --git a/gp_Meteor.zmp/24.bmp b/gp_Meteor.zmp/24.bmp new file mode 100644 index 00000000..e46b7562 Binary files /dev/null and b/gp_Meteor.zmp/24.bmp differ diff --git a/gp_Meteor.zmp/GetUrlScript.txt b/gp_Meteor.zmp/GetUrlScript.txt new file mode 100644 index 00000000..3be4b08f --- /dev/null +++ b/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. \ No newline at end of file diff --git a/gp_Meteor.zmp/params.txt b/gp_Meteor.zmp/params.txt new file mode 100644 index 00000000..803e05c1 --- /dev/null +++ b/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 diff --git a/gp_Ortho_region.zmp/18.bmp b/gp_Ortho_region.zmp/18.bmp new file mode 100644 index 00000000..a942fa46 Binary files /dev/null and b/gp_Ortho_region.zmp/18.bmp differ diff --git a/gp_Ortho_region.zmp/24.bmp b/gp_Ortho_region.zmp/24.bmp new file mode 100644 index 00000000..e46b7562 Binary files /dev/null and b/gp_Ortho_region.zmp/24.bmp differ diff --git a/gp_Ortho_region.zmp/GetUrlScript.txt b/gp_Ortho_region.zmp/GetUrlScript.txt new file mode 100644 index 00000000..3be4b08f --- /dev/null +++ b/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. \ No newline at end of file diff --git a/gp_Ortho_region.zmp/params.txt b/gp_Ortho_region.zmp/params.txt new file mode 100644 index 00000000..9f311799 --- /dev/null +++ b/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