Browse Source

update zmp

master
sasbot 4 years ago
parent
commit
742aab6963
7 changed files with 68 additions and 3 deletions
  1. BIN
      VirtualEarth/VEMap.Bing.zmp/18.bmp
  2. BIN
      VirtualEarth/VEMap.Bing.zmp/24.bmp
  3. +38
    -0
      VirtualEarth/VEMap.Bing.zmp/GetUrlScript.txt
  4. +27
    -0
      VirtualEarth/VEMap.Bing.zmp/params.txt
  5. +1
    -1
      VirtualEarth/VEMap.zmp/params.txt
  6. +1
    -1
      VirtualEarth/VESat.zmp/GetUrlScript.txt
  7. +1
    -1
      VirtualEarth/VESat.zmp/params.txt

BIN
VirtualEarth/VEMap.Bing.zmp/18.bmp View File

Before After

BIN
VirtualEarth/VEMap.Bing.zmp/24.bmp View File

Before After

+ 38
- 0
VirtualEarth/VEMap.Bing.zmp/GetUrlScript.txt View File

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

+ 27
- 0
VirtualEarth/VEMap.Bing.zmp/params.txt View File

@@ -0,0 +1,27 @@
[PARAMS]
pnum=10
GUID={E47F6EE4-BC40-422E-85BB-4A57C4E49175}
name=Êàðòà (Bing Maps)
name_en=Map (Bing Maps)
name_uk=Êàðòà (Bing Maps)
ParentSubMenu=Bing (Virtual Earth)
ParentSubMenu_en=Bing (Virtual Earth)
ParentSubMenu_uk=Bing (Virtual Earth)
asLayer=0
DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/r
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=vemap-b
separator=0
Ext=.png
UseDwn=1
Usestick=1
UseGenPrevious=1
Usedel=1
Usesave=1
UseAntiBan=0
Sleep=0
DefHotKey=16470
ContentType=image/png
BanIfLen=0

+ 1
- 1
VirtualEarth/VEMap.zmp/params.txt View File

@@ -13,7 +13,7 @@ projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=vemap
separator=1
separator=0
Ext=.png
UseDwn=1
Usestick=1


+ 1
- 1
VirtualEarth/VESat.zmp/GetUrlScript.txt View File

@@ -34,5 +34,5 @@ begin
end;
end;
end;
ResultURL:=GetURLBase+res+'.jpeg?g=72';
ResultURL:=GetURLBase+res+'.jpeg?g=685&mkt=en-us&n=z';
end.

+ 1
- 1
VirtualEarth/VESat.zmp/params.txt View File

@@ -8,7 +8,7 @@ ParentSubMenu=Bing (Virtual Earth)
ParentSubMenu_en=Bing (Virtual Earth)
ParentSubMenu_uk=Bing (Virtual Earth)
asLayer=0
DefURLBase=http://a0.ortho.tiles.virtualearth.net/tiles/a
DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/a
projection=1
sradiusa=6378137
sradiusb=6378137


Loading…
Cancel
Save