sasgis пре 54 година
родитељ
комит
9e478efe7f
8 измењених фајлова са 237 додато и 237 уклоњено
  1. +37
    -37
      Bing/Bing_Sat.zmp/GetUrlScript.txt
  2. +22
    -22
      Bing/Bing_Sat.zmp/params.txt
  3. +38
    -38
      Bing/Bing_Sat_BE_N.zmp/GetUrlScript.txt
  4. +25
    -25
      Bing/Bing_Sat_BE_N.zmp/params.txt
  5. +37
    -37
      Bing/Bing_roads.en.zmp/GetUrlScript.txt
  6. +20
    -20
      Bing/Bing_roads.en.zmp/params.txt
  7. +37
    -37
      Bing/Bing_roads.ru.zmp/GetUrlScript.txt
  8. +21
    -21
      Bing/Bing_roads.ru.zmp/params.txt

+ 37
- 37
Bing/Bing_Sat.zmp/GetUrlScript.txt Прегледај датотеку

@@ -1,38 +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+'.jpeg?g='+version;
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+'.jpeg?g='+version;
end.

+ 22
- 22
Bing/Bing_Sat.zmp/params.txt Прегледај датотеку

@@ -1,22 +1,22 @@
[PARAMS]
pnum=10
GUID={9A360A54-7A70-402D-8A11-D570BD759B5B}
name=Bing Maps - ñïóòíèê
name_en=Bing Maps - satellite
name_uk=Bing Maps - ñóïóòíèê
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/a
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=vesat
separator=0
Ext=.jpg
UseDwn=1
Sleep=0
DefHotKey=86
ContentType=image/jpeg; image/png
version=0
[PARAMS]
pnum=10
GUID={9A360A54-7A70-402D-8A11-D570BD759B5B}
name=Bing Maps - ñïóòíèê
name_en=Bing Maps - satellite
name_uk=Bing Maps - ñóïóòíèê
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/a
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=vesat
separator=0
Ext=.jpg
UseDwn=1
Sleep=0
DefHotKey=86
ContentType=image/jpeg; image/png
version=0

+ 38
- 38
Bing/Bing_Sat_BE_N.zmp/GetUrlScript.txt Прегледај датотеку

@@ -1,38 +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+'.jpeg?g='+version+'&dir=dir_n';
end.
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+'.jpeg?g='+version+'&dir=dir_n';
end.

+ 25
- 25
Bing/Bing_Sat_BE_N.zmp/params.txt Прегледај датотеку

@@ -1,26 +1,26 @@
[PARAMS]
pnum=11
GUID={9A360A5D-7A70-402D-8A11-D670BD739B7B}
name=Bing Maps - Bird's Eye Ñåâåð
name_en=Bing Maps - Bird's Eye North
name_uk=Bing Maps - Bird's Eye ϳâí³÷
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.t3.tiles.virtualearth.net/tiles/svi
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=vesatbird_N
separator=0
Ext=.jpg
UseDwn=1
Sleep=0
DefHotKey=86
ContentType=image/jpeg; image/png
TILERLEFT=0
TILERRIGHT=256
TILERTOP=0
TILERBOTTOM=180
[PARAMS]
pnum=11
GUID={9A360A5D-7A70-402D-8A11-D670BD739B7B}
name=Bing Maps - Bird's Eye Ñåâåð
name_en=Bing Maps - Bird's Eye North
name_uk=Bing Maps - Bird's Eye ϳâí³÷
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.t3.tiles.virtualearth.net/tiles/svi
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=vesatbird_N
separator=0
Ext=.jpg
UseDwn=1
Sleep=0
DefHotKey=86
ContentType=image/jpeg; image/png
TILERLEFT=0
TILERRIGHT=256
TILERTOP=0
TILERBOTTOM=180
Version=0

+ 37
- 37
Bing/Bing_roads.en.zmp/GetUrlScript.txt Прегледај датотеку

@@ -1,38 +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+'?mkt=en-us&it=G,VE,BX,L,LA&shading=hill';
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+'?mkt=en-us&it=G,VE,BX,L,LA&shading=hill';
end.

+ 20
- 20
Bing/Bing_roads.en.zmp/params.txt Прегледај датотеку

@@ -1,21 +1,21 @@
[PARAMS]
pnum=8
GUID={36cfd00c-ad02-4d3a-bd3e-acf4075115fe}
name=Bing Maps - äîðîãè (en)
name_en=Bing Maps - roads (en)
name_uk=Bing Maps - äîðîãè (en)
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.dynamic.t0.tiles.virtualearth.net/comp/CompositionHandler/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=bing_roads_en
separator=0
Ext=.png
UseDwn=1
Sleep=0
DefHotKey=16470
[PARAMS]
pnum=8
GUID={36cfd00c-ad02-4d3a-bd3e-acf4075115fe}
name=Bing Maps - äîðîãè (en)
name_en=Bing Maps - roads (en)
name_uk=Bing Maps - äîðîãè (en)
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.dynamic.t0.tiles.virtualearth.net/comp/CompositionHandler/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=bing_roads_en
separator=0
Ext=.png
UseDwn=1
Sleep=0
DefHotKey=16470
ContentType=image/jpeg;image/png

+ 37
- 37
Bing/Bing_roads.ru.zmp/GetUrlScript.txt Прегледај датотеку

@@ -1,38 +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+'?mkt=ru-ru&it=G,VE,BX,L,LA&shading=hill';
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+'?mkt=ru-ru&it=G,VE,BX,L,LA&shading=hill';
end.

+ 21
- 21
Bing/Bing_roads.ru.zmp/params.txt Прегледај датотеку

@@ -1,21 +1,21 @@
[PARAMS]
pnum=9
GUID={11772221-1ec8-42ca-bc48-8f6e1d9f6cfc}
name=Bing Maps - äîðîãè (ru)
name_en=Bing Maps - roads (ru)
name_uk=Bing Maps - äîðîãè (ru)
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.dynamic.t0.tiles.virtualearth.net/comp/CompositionHandler/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=bing_roads_ru
separator=0
Ext=.png
UseDwn=1
Sleep=0
DefHotKey=16470
ContentType=image/jpeg;image/png
[PARAMS]
pnum=9
GUID={11772221-1ec8-42ca-bc48-8f6e1d9f6cfc}
name=Bing Maps - äîðîãè (ru)
name_en=Bing Maps - roads (ru)
name_uk=Bing Maps - äîðîãè (ru)
ParentSubMenu=Bing
ParentSubMenu_en=Bing
ParentSubMenu_uk=Bing
asLayer=0
DefURLBase=http://ecn.dynamic.t0.tiles.virtualearth.net/comp/CompositionHandler/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=bing_roads_ru
separator=0
Ext=.png
UseDwn=1
Sleep=0
DefHotKey=16470
ContentType=image/jpeg;image/png

Loading…
Откажи
Сачувај