sasbot 4 роки тому
джерело
коміт
8c9ec723bf
12 змінених файлів з 213 додано та 0 видалено
  1. BIN
      gp_Landsat.zmp/18.bmp
  2. BIN
      gp_Landsat.zmp/24.bmp
  3. +44
    -0
      gp_Landsat.zmp/GetUrlScript.txt
  4. +27
    -0
      gp_Landsat.zmp/params.txt
  5. BIN
      gp_Meteor.zmp/18.bmp
  6. BIN
      gp_Meteor.zmp/24.bmp
  7. +44
    -0
      gp_Meteor.zmp/GetUrlScript.txt
  8. +27
    -0
      gp_Meteor.zmp/params.txt
  9. BIN
      gp_Ortho_region.zmp/18.bmp
  10. BIN
      gp_Ortho_region.zmp/24.bmp
  11. +44
    -0
      gp_Ortho_region.zmp/GetUrlScript.txt
  12. +27
    -0
      gp_Ortho_region.zmp/params.txt

BIN
gp_Landsat.zmp/18.bmp Переглянути файл

Перед Після

BIN
gp_Landsat.zmp/24.bmp Переглянути файл

Перед Після

+ 44
- 0
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.

+ 27
- 0
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

BIN
gp_Meteor.zmp/18.bmp Переглянути файл

Перед Після

BIN
gp_Meteor.zmp/24.bmp Переглянути файл

Перед Після

+ 44
- 0
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.

+ 27
- 0
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

BIN
gp_Ortho_region.zmp/18.bmp Переглянути файл

Перед Після

BIN
gp_Ortho_region.zmp/24.bmp Переглянути файл

Перед Після

+ 44
- 0
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.

+ 27
- 0
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

Завантаження…
Відмінити
Зберегти